Rechercher sur google depuis Excel VBA

Bonjour,

J’aimerai bien faire une recherche sur google depuis excel VBA

J’ai bien met mon code mais ça bloque au niveau de WaitIE IE ci-dessous mon code :

Merci de votre aide d’avance

Private Sub CommandButton1_Click()
'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 "www.google.fr"

   '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("q")

   'On définit le texte que l'on souhaite placer à l'intérieur
   InputGoogleZoneTexte.Value = "VBA Excel"

   'On attend la fin de la recherche
   WaitIE IE

   'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing

End Sub

je reste disponible pour plus d'informations

Cdt,

Mayouga

Bonjour,

Tu as semble-t-il oublié d'intégrer cette procédure :

Private 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

Bonjour,

Exactement après vérifications et recherche sur internet j’ai rajouté la deuxième partie de scripte sauf que la commande reste bloque au niveau de la saisir il ne tape pas le bouton pour effectue la recherche.

Voilà le code modifié :

Private Sub CommandButton1_Click()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim FormGoogleCherche As HTMLFormElement

   'Affichage de la fenêtre IE
   IE.Visible = True
'Chargement d'une page Web Google
   IE.navigate "www.google.fr"
      '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("q")
      'On définit le texte que l'on souhaite placer à l'intérieur
   InputGoogleZoneTexte.Value = "Excel VBA"
   'On pointe notre bouton
Set InputGoogleBouton = IEDoc.all("btnG")
'On simule un clic
InputGoogleBouton.Click
'On pointe la Form qui contient Zone de Texte + Bouton (entre autres)
Set FormGoogleCherche = IEDoc.forms("f")
      '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

je reste disponible pour plus d'informations.

Cdt;

Mayouga