Discussion :

[EDE95]

Bonjour,

J'ai 2 macros qui me permettent de me connecter sur une page web (avec login / mot de passe)

La première (Test1) utilise les obj de la page IE mais n'active pas le bouton "se connecter" (je ne trouve pas l'objet !!)
La 2e (Test2) fonctionne avec la fonction SendKeys.

Ma question:
Est-il possible d'avoir le même résultat avec la macro (Test1)

Merci de votre aide

Cordialement,

[patricktoulon]

re
ben c'est normal c'est une protection anti robot
j'ai tenté de la passer mais elle est bien ficelé
pour ta test2 tu t'y prends très mal tu risque de taper a coté avec application.sendkeys il faut le faire avec un object externe (wscript.shell)

[patricktoulon]

une methode sendkeys plus rapide

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
 
Sub Test3()
    Dim IE As Object, WsH As Object
    Set WsH = CreateObject("wscript.shell")
    Set IE = CreateObject("InternetExplorer.application")
    With IE
        .Visible = True
        .Navigate ("https://client.relayhub.eu.pitneybowes.com")
        Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop    'chargement de la page
        .Document.all("username").Focus    'on met le focus sur le username
        WsH.SendKeys "toto@hotmail.fr"    'on tape l'email
        WsH.SendKeys "{TAB}"    'on passe au password
        WsH.SendKeys "mon mot de passe"    'on tape le password
        Application.Wait (Now + TimeValue("0:00:01"))    'on laisse une seconde au script de protection pour debloquer le bouton
        WsH.SendKeys "{TAB}"    'on passe au bouton (il prend le focus(voir bordure bleu cyan autour))
        WsH.SendKeys "{ENTER}"    'on tape enter pour l'activer
    End With
    Set WsH = Nothing
    'set ie=nothing
End Sub

[EDE95]

Merci Patrick pour cette solution et ce retour,

mais le problème que je rencontre avec du "SendKeys" c'est que parfois ma page Ie n'est pas tout le temps en premier plan et cela provoque des erreurs.

IE2.xlsm

[patricktoulon]

re
et comment fait tu pour perdre la fentre ie du first plan !!!!
tu dois jouer avec d'autre fenêtres alors que la navigation IE est incomplète
ma fois change ca
on est soit au four soit au moulin mais pas les deux

[patricktoulon]

re
je viens de tester ton fichier et je n'ai pas ce problème le UserForm reste bien derrière