Sub ouvrir_page_web2()
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 ("http://www.developpez.net/forums/forumdisplay.php?f=664")
Do Until IE.ReadyState = 4
DoEvents
Loop
Set MaPageHtml = IE.Document
'Numéro d'abonné
Set Helem = MaPageHtml.getElementsByName("vb_login_username").Item
Helem.Value = "fred65200"
'mot de passe
Set Helem = MaPageHtml.getElementsByName("vb_login_password").Item
Helem.Value = "XXXX"
Helem.Select
'Le Bouton de connexion
Set Helem = MaPageHtml.Forms(0)
Helem.submit
End Sub