navigation Html depuis excel avec une const

Sub test()
Dim IE As Object 'InternetExplorer
Dim Helem As Object 'IHTMLElement
Dim MaPageHtml As Object 'HTMLDocument

Set IE = CreateObject("InternetExplorer.Application")
IE.Width = 1280
IE.Height = 1024
IE.Left = 0
IE.Top = 0
IE.Visible = True
IE.Navigate ("http url du serveur intranet:")

Do Until IE.ReadyState = 4
DoEvents
Loop
Set MaPageHtml = IE.Document

'Numéro d'abonné
Set Helem = MaPageHtml.getElementsByName("IDToken1").Item
Helem.Value = "toto"


'mot de passe
Set Helem = MaPageHtml.getElementsByName("IDToken2").Item
Helem.Value = "mon mot de pass"

Set Helem = MaPageHtml.getElementsByName("Login.Submit").Item
Helem.Click

depuis ici pour appeler une autre page qui contient le document à ouvrir

Application.Wait (Now + TimeValue("0:00:1")) '


IE.Navigate2 ("http url du document intranet:")


End Sub

Cliquez pour agrandir...