Public Sub IEConnectToURL(ByVal sURL As String)
Const READYSTATE_COMPLETE = 4
Dim IE As Object
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = False
With IE
.Navigate sURL
Do Until .ReadyState = 4
DoEvents
Loop 'attend la fin du chargement
End With
Dim bOk As Boolean
Dim loDoc As HTMLDocument
Set loDoc = IE.Document
DoEvents
Dim ContainerDiv As HTMLDivElement, ResultDIV As HTMLDivElement, SubResultDIV As HTMLDivElement
DoEvents
Set ContainerDiv = loDoc.getElementById("market-data")
DoEvents
For Each ResultDIV In ContainerDiv.getElementsByTagName("div")
If ResultDIV.className = "marketData" Then ' "md-data" Then
'Debug.Print ResultDIV.innerHTML
For Each SubResultDIV In ResultDIV.getElementsByTagName("div")
Debug.Print SubResultDIV.innerText
Next
End If
Next
Set IE = Nothing
End Sub