Discussion :

[amnorian]

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 ?

[amnorian]

Personne pour m'aider, me dire si je fais fausse route, ou si la gestion vba/web est bien trop compliqué à gérer

[Godzestla]

Personne pour m'aider,

Si si.

Regarde ici et aussi là

Le site est une mine d'info mais la recherche d'info y est très fastidieuse, car pas ou peu de liens directs.

Regarde bien les liens sur cette page.
La solution y est mais pas moyen de retrouver la bonne page... et j'ai ma dose.

[amnorian]

Merci pour ton aide godzestla, j'ai justement cherché sur ce site, mais ca ne fonctionne pas.
Avec le premier code rien ne se passe (probablement parceque j'ai une nouvelle fenêtre qui s'ouvre (demandant login et password) et je ne sais pas comment y acceder)

Concernant la deuxieme solution (les sendkeys), il commence à inscrire les 3 premières lettres dans le formulaire la ou je veux, puis inscrit le reste dans mon VBE (et je ne sais pas pourquoi).
A un moment il est fait mention de appactivate pour que ce problème n'arrive pas, mais je n'arrive pas à bien l'utiliser sur l'adresse web et ce formulaire qui s'ouvre

[trash_07]

Bonjour,

Est ce que cette fenêtre est provoqué par le serveur IIS?
Si tu peux le faire, je te conseille d'enlever cette demande d'authentification !!!

J'avais la possibilité de l'enlever, je l'ai fait donc je ne pourrais pas apporter de solution miracle.

[amnorian]

Malheureusement non je ne peux pas l'enlever

J'ai beau chercher je ne comprends pas j'ai l'impression qu'il stoppe complètement la macro lors de l'ouverture de ce formulaire car si je fais annuler (pour ne pas saisir d'identifiant et de mot de passe il bugge sur les autres éléments (ou m'inscrit les sendkeys un peu n'importe ou)

Quelqu'un à t'il une idée ?