Bonjour,

je tente de contrôler des pages web par le biais de vba mais je suis bloqué dès le départ par l'authentification.
je lance bien la page web (qui est une page intranet par acces ip de type 10.0.0.1/youou/etc.html) et une sorte de formulaire viens imédiatement s'ouvrir en me demandant le nom d'utilisateur et le mot de passe

j'ai tenté ce code trouvé sur developper.com
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub connexion()
 
    Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    Set ie = New InternetExplorer
    ie.visible = True
    ie.Navigate ("http://10.0.0.1/youou/etc.html")
 
    '  attente de fin de chargement
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
    Set IEdoc = ie.Document
 
    'login
     Set DOCelement = IEdoc.getElementsByName("vb_login_username").Item
     DOCelement.Value = "cafeine" 'ca bug ici déja
 
    'password
     Set DOCelement = IEdoc.getElementsByName("vb_login_password").Item
     DOCelement.Value = "etpuisquoiencore?turêves?"
     DOCelement.Select
 
    'connexion
     Set DOCelement = IEdoc.Forms(0)
     DOCelement.submit
 
End Sub
Mais ca ne fonctionne pas

après recherche j'ai tenté le sendkeys
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub connexion()
ThisWorkbook.FollowHyperlink "http://10.0.0.1/youou/etc.html", , True
Application.Wait (Now + TimeValue("00:00:10"))
 
DoEvents
Mot_de_Passe = inputbox("indiquez le mote de passe")
SendKeys ("toto") 'user
SendKeys "{TAB}"
SendKeys (Mot_de_Passe) 'password
SendKeys "{ENTER}"
End Sub
mais ca ne m'inscrit que quelque lettre dans le formulaire et le reste dans mon VBE (ce qui m'arrange pas)
j'ai encore d'autres pages après et je bloque dès le départ c'est rageant

Ou je me trompe ?