Lancer plusieurs recherche google avec plusieurs onglet IE8

Bonjour,

Je suis débutant en VBA et j'ai besoin de vos compétences pour résoudre le problème suivant. Je souhaiterais après avoir ouvert IE avec un certain nombre d'onglet (2 par exemple) pouvoir inscrire le login et le Pass. Voici le code, inutile de préciser que cela n'est pas de moi. A l'éxécution de celui-ci, j'ai une erreur '438'. Que dois-je corriger?

...

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate URLToOpen
IE.Visible = True

'1er Onglet
IE.Navigate ("http://www.google.fr/webhp?hl=fr&tab=ww")
Do While Not IE.ReadyState = 4
Loop
IE.document.getElementByName("q").Value = "test"

'2eme Onglet
IE.Navigate2 ("http://www.google.fr/webhp?hl=fr&tab=ww"), 2048
Do While Not IE.ReadyState = 4
Loop
IE.document.getElementByName("q").Value = "test"

IE.Visible = True

...

Merci

Bonjour,

Déjà vaux mieux laisser windows travailler !

    While IE.ReadyState <> READYSTATE_COMPLETE
            DoEvents
    Loop

Ensuite.. où ça plante ? quel est le message d'erreur ?

A+

Bonsoir lermite,

...

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate URLToOpen
IE.Visible = True

IE.Navigate ("http://www.google.fr/webhp?hl=fr&tab=ww")

Do While IE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop

'Plantage sur cette ligne
IE.document.getElementByName("q").Value = "test"

'Erreur => La méthode 'Document' de l'objet 'IwebBrowser2' a échoué
'Erreur Automation (erreur 440)

IE.Navigate2 ("http://www.google.fr/webhp?hl=fr&tab=ww"), 2048

Do While IE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop

IE.document.getElementByName("q").Value = "test"

IE.Visible = True

...

Merci

IE.document.getElementByName("q").Value = "test"

Apparemment tu laisse les noms des arguments tel qu'il sont dans la démo que tu a trouvé !

Il faut fournir le vrai nom de l'élément et la vraie donnée attendue.

Mais je doute que tu puisse trouver ces renseignements surtout si c'est, comme je pense, un loggin et un passe, ces éléments étant sécurisés.

De plus tu ouvre la page d’accueil de Google et il n'y a aucun élément à entrer.

Dans un premier temps supprime ces deux lignes ou met les vraie URL.

A+

Je souhaiterais inscrire automatiquement "Test" dans le champ de recherche de la page d'accueil de Google mais la macro s'arrête sur IE.document.getElementByName("q").Value = "test"

Erreur => La méthode 'Document' de l'objet 'IwebBrowser2' a échoué

Erreur Automation (erreur 440)

Pourtant le Name du champ de recherche est "q", j'ai vérifié dans le code source de la page.

Merci de ton aide, je poursuit les recherches @+

Je viens de regarder le code de la page, ça sait pas fonctionner, c'est de l'HTLM et probablement du java (j'ai pas tout regarder), pour avoir accès ça doit être du code PHP.

A+

Bonsoir lermite, je n'ais plus le message d'erreur.

Le code ci-dessous ouvre IE et 2 onglets (Google), rien ne s'inscrit dans le champ de recherche du 2e onglet mais la valeur "Recherche2" s'inscrit dans le 1er onglet. Est-il possible avec un code de pointer sur le 2e onglet afin que la valeur "Recherche2" puisse s'inscrire?

...

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

'Ouverture du 1er onglet
IE.Navigate ("http://www.google.fr/")

Do While IE.Busy = True Or IE.ReadyState <> 4
DoEvents
Loop

IE.document.getElementByid("gbqfq").Value = "Recherche1"
Application.Wait (Now + TimeValue("0:00:02"))

'Ouverture du 2eme onglet'
IE.Navigate2 ("http://www.google.fr"), 2048

Do While IE.Busy = True Or IE.ReadyState <> 4
DoEvents
Loop

IE.document.getElementByid("gbqfq").Value = "Recherche2"

...

@+

Bonsoir, si un admin passe par là, merci de supprimer ce compte. Au revoir.