Connexion compte Google via EN UN CLIC?

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).

Nous intervenons sur des dizaines de fois sur des agenda google, plus de 300 comptes google en tout.

J'aimerais automatiser cette tache avec en table de base la liste des differents comptes (proprietaire du compte /identifiant/MP)

J'ai commencé en glanant un code sur le web que j essaie adapter.

j'arrive à ouvrir 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...

[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 "

"

'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]