Ouvrir page html code abonnée

 Dim IE As Object 'InternetExplorer
 Dim Helem As Object 'IHTMLElement
 Dim MaPageHtml As Object 'HTMLDocument
 
 Set IE = CreateObject("InternetExplorer.Application")
 IE.Visible = True
 IE.Navigate ("[I]Ce lien n'existe plus[/I]")
 
 Do Until IE.ReadyState = 4
 DoEvents
 Loop
 Set MaPageHtml = IE.Document
 'Numéro d'abonné
 Set Helem = MaPageHtml.getElementsByName("TextboxUser").Item
 Helem.Value = 123456
 'mot de passe
 Set Helem = MaPageHtml.getElementsByName("TextBoxMdp").Item
 Helem.Value = "MOT_DE_PASSE"
 
 'Le Bouton de connexion
 Set Helem = MaPageHtml.getElementsByName("ImageButtonValiderInconnu").Item
 Helem.Click

 'Numéro d'abonné
 Set Helem = MaPageHtml.getElementsByName("[COLOR=blue]TextboxUser[/COLOR]").Item
 Helem.Value = 123456
 'mot de passe
 Set Helem = MaPageHtml.getElementsByName("[COLOR=blue]TextBoxMdp[/COLOR]").Item
 Helem.Value = "MOT_DE_PASSE"
 
 'Le Bouton de connexion
 Set Helem = MaPageHtml.getElementsByName("[COLOR=blue]ImageButtonValiderInconnu[/COLOR]").Item
 Helem.Click