vba avec Boutton IE

Version imprimable

03/05/2019, 15h25
EDE95

1 pièce(s) jointe(s)

vba avec Boutton IE

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,
03/05/2019, 16h16
patricktoulon

re

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)

une methode sendkeys plus rapide

Code:

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

03/05/2019, 19h00
EDE95

1 pièce(s) jointe(s)

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.

Pièce jointe 471922
03/05/2019, 19h32
patricktoulon

re

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
03/05/2019, 19h41
patricktoulon

re

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