extract data from web to inside sheet without open website &refersh

[tubrak]

hi experts
I have this website CMA CGM | A world leader in maritime and logisticsshows me my cargo where is location & when arrive and departure . it depends on CONTAINER NO or B\L NO
let's take CONTAINER NO as the pic 1

and when press shipment tracking it will shows the detials as this picture

so what I want based on last picture show in columns A,B,C,D,E,F= DATE, TIME , MOVES,LOCATION,VESSEL,VOYAGE without open website
and I want put the CONTAINER NO or B\L NO into TEXTBOX1 ACTIVE X and I would press F5 to refresh the search inside the sheet
somtimes doesn't show detiales that's because CONTAINER NO or B\L NO is wrong then should show warning message" please make sure the right detiales "
by the way I use browser google chrome .
thanks

 

[Anthony47]

Thank you for the feedback
When Edge version changes you'll need to update the driver, as per instructions in post #25.

 

[tubrak]

hi
I try to understand your code . I will show another detials. i search the ID and I got this from source webpage
trackingsearchsection
and change this

Set mElem = WPage.FindElementById("gridTrackingDetails")

to this

Set mElem = WPage.FindElementById("trackingsearchsection")

but nothing changes
this is what I want showing

may you see it when you have freetime,please?

 

[Anthony47]

So you modified that instruction? And then?
What was you trying to obtain?

 

[tubrak]

the picture

the new based on picture should be

just question if there are some shapes can the code also brings as in end of the picture ?

 

[Anthony47]

This version should return what I think you asked for:

Sub myCaller()
Dim WPage As Object, TBColl As Object
Dim myUrl As String, mElem As Object
Dim I As Long, tbC As Long
'
'Crea Driver:
'    Set WPage = CreateObject("Selenium.EdgeDriver")
    Set WPage = CreateObject("Selenium.CHRomedriver")
'
Sheets("Main").Select
myUrl = Range("B1")
Range("A5").Resize(2000, 30).Clear      'Clear results area
Range("A4").Value = "Returned infos:"
WPage.Get myUrl
WPage.Wait 500
On Error Resume Next
    Set myDoc = WPage.FindElementById("track-number")
    Set myTrack = WPage.FindElementById("searchTracking")
    WPage.FindElementById("onetrust-accept-btn-handler").Click
    WPage.Wait 200
On Error GoTo 0
'
If (Not myDoc Is Nothing) And (Not myTrack Is Nothing) Then
    myDoc.SendKeys Sheets("Main").Range("B2")
    WPage.Wait 100
    myTrack.Click
Else
    MsgBox ("Error A, elements not found")
    GoTo SQuit
End If
WPage.Wait 1000
'ADDED LINES:
Sheets("Main").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Replace(WPage.FindElementsByClass("resume-filter")(1).Text, Chr(10), " ------ ", , , vbTextCompare)
Sheets("Main").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Replace(WPage.FindElementsByClass("timeline--progress-description")(1).Text, Chr(10), " ------ ", , , vbTextCompare)
Sheets("Main").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Replace(WPage.FindElementsByClass("timeline--items")(1).Text, Chr(10), " ------ ", , , vbTextCompare)
Sheets("Main").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = "'="
On Error Resume Next
    Set mElem = WPage.FindElementById("gridTrackingDetails")
    Set TBColl = mElem.FindElementsByTag("table")
    tbC = TBColl.Count
    Debug.Print "TBC= " & tbC
    Debug.Print TypeName(mElem), TypeName(TBColl)
On Error GoTo 0
'
For I = 1 To tbC
    TBColl(I).AsTable.ToExcel Sheets("Main").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next I

SQuit:
WPage.Quit
Set WPage = Nothing
MsgBox "Completed"
End Sub

There are some "ADDED LINES"

Yes, pictures could be imported, but I am not so good at playing with the pictures

 

[tubrak]

Yes, pictures could be imported, but I am not so good at playing with the pictures

this is not problem
perfect ! now the project is complete
many thanks for your time