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