Sub Connexion_prix_carburants_gouv_fr1()
Dim i As Integer
'Dim IE As InternetExplorer
Dim IE As Object
'Dim maPageHtml As HTMLDocument
Dim maPageHtml As Object
'Dim Helem As Object
Dim Helem As IHTMLElementCollection
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "[URL="http://www.prix-carburants.gouv.fr/index.php?module=internaute"]Prix des carburants en France, site gouvernemental[/URL]" '<>
Do Until IE.readyState [COLOR=red]= 4[/COLOR] 'READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
'Set maPageHtml = IE.Document
'Set Helem = maPageHtml.getElementsByTagName("input")
'Helem(0).innerText = "login"
'Helem(1).innerText = "MDP"
'Helem(2).Click
End Sub