Bonjour à tous !
Voilà mon problème, je souhaiterais créer une macro afin d'automatiser la connection à un compte google (identifiant et Mot de passe).
J'ai commencé en glanant un code sur le web que j essaie adapter.
j'arrive à ouvri la bonne page web à saisir l'email (identifiant) et valider ma saisie.
Arrivé à la page mot de passe, je n'arrive plus à renseigner le mot de passe...rien ne se passe.
l'extrait que je joins prend en compte les identifiants en dur dans le code.
j'essaierai d introduire une variable en fonction du compte souhaité.
Pour le moment je coince sur ce champs mot de passe ggrrrr HEEELLLLP svp.
Merci de votre aide
EXTRAIT DE LA MACRO JUSQU AU FAMEUX CHAMP MP...
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45 Sub googleconnectionl() 'Déclaration des variables Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim InputGoogleZoneTexte As HTMLInputElement Dim InputGoogleBouton As HTMLInputElement 'Chargement d'une page Web Google IE.navigate "https://accounts.google.com/ServiceLogin/identifier" 'Affichage de la fenêtre IE IE.Visible = True 'On attend le chargement complet de la page WaitIE IE 'On pointe le membre Document Set IEDoc = IE.document 'On pointe notre Zone de texte Set InputGoogleZoneTexte = IEDoc.all("identifier") 'On définit le texte que l'on souhaite placer à l'intérieur InputGoogleZoneTexte.Value = "toto@gmail.com" 'On attend la fin de la recherche WaitIE IE SendKeys "{ENTER}" 'On attend la fin de la recherche WaitIE IE 'On libère les variables Set IE = Nothing Set IEDoc = Nothing End Sub Sub WaitIE(IE As InternetExplorer) 'On boucle tant que la page n'est pas totalement chargée Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop End Sub
Partager