'
' MiseAJour_Clic Macro
'
' Pour que la macro puisse utiliser les objets IE, dans Outils / référence, il faut cocher :
' - Microsoft Internet Control
' - Microsoft HTLM Object Library
Sub MiseAJour_Clic()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim nombre As Double
'IE.Visible = True
'---------------------------CAC40---------------------------
IE.Navigate "http://www.euronext.com/trader/summarizedmarket/stocks-2634-FR-FR0003500008.html?selectedMep=1"
WaitIE IE
Set IEDoc = IE.document
'Sheets("test" ).Select
'For i = 1 To 1000
' Range("B" & i) = IEDoc.all(i).innerText
'Next
'Sheets("Récapitulatif" ).Select
Range("M8" ) = Mid((IEDoc.all(695).innerText), 19, 29)
'Range("M8" ) = IEDoc.all(306).innerText
Range("P9" ) = Mid((IEDoc.all(678).innerText), 1, 14)
'Range("I5" ) = Mid((IEDoc.all(308).innerText), 1, 14)
IE.Quit
Set IE = Nothing
Set IEDoc = Nothing
MsgBox ("Mise à jour effectuée" )
End Sub
Sub WaitIE(IE As InternetExplorer)
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub
|