La méthode 'Document' de l'objet 'IWebBrowser2' a échoué

Bonjour,

Je viens à l'aide, j'ai récupérer une macro d'un collègue qui permet de piloter internet explorer.

Je dois reprendre cette macro et la modifier pour effectuer d'autres manipulations.

Mon soucis est que dès le lancement de la macro (manipulation d'Internet Explorer) une erreur apparait : "La méthode 'Document' de l'objet 'IWebBrowser2' a échoué" dès que l'on veut manipuler IE avec ie.methode

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Sub connecte() Set ie = CreateObject("internetexplorer.application") ie.Visible = True ie.navigate "https://distri-raccordement.edf.fr" wait If Not ie.document.all.item("HU_LOGIN") Is Nothing Then ie.document.all.item("HU_LOGIN").Value = "MonLogin" ie.document.all.item("HU_PW").Value = "MonMotdePasse" ie.document.vccform.submit wait End If posi = InStr(ie.document.body.innerhtml, "PHPSESSID") sessionId = Mid(ie.document.body.innerhtml, posi + 10, 26) End Sub   Public Sub wait() Do While ie.busy: Loop Do While ie.document.readystate <> "complete": Loop End Sub

---

Pour être précise, ça plante dès la ligne qui contient ie.busy

C'est la première fois que j'utilise l'objet internetexplorer donc je ne sais pas du tout comment faire pour résoudre mon soucis. Si l'un d'entre vous à une idée ça me serait d'une grande aide.

Merci d'avance ;)

utilise un:

Code:

---

1 2 3

Do until IE.readystate = READYSTATE_COMPLETE Doevents Loop

---

Ou un do while avec un timer

Je vais tester ça tout de suite :)

Petite question supplémentaire, est-ce normal que ça fonctionne sur le poste de mon collègue et pas sur le mien?

J'ai tester ta proposition, malheureusement même résultat :/

Tu crois que le programme sait ce que c'est qu'IE ?
Il faut lui envoyer en argument!

Code:

---

1 2 3 4 5

Sub waiting(IE As internetExplorer) Do until IE.readystate = READYSTATE_COMPLETE Doevents Loop End sub

---

Ou tout simplement un pause de 3 secondes (J'utilise toujours cela que je trouve bien plus fiable pour les interactions avec des serveurs)

Code:

---

1 2 3 4 5 6 7

Sub wait3secs() PauseTime=3 Start = Timer Do while Timer< Start + Pausetime Doevents Loop End sub

---

J'ai pris l'option de la pause de 3 secondes c'est vrai que c'est mieux.

Après avoir modifié pour mettre une pause de 3 secondes il me fait bien la pause mais bloque sur la prochaine instruction contenant ie.methode:

Code:

---

If Not ie.document.all.item("HU_LOGIN") Is Nothing Then

---

L'erreur est la suivante:

Citation:

---

Erreur d'éxécution '-2147023179 (800706b5)':

Erreur Automation
Interface inconnue.

---

Je ne sais pas si il manque une référence ou bien si le problème est ailleurs

all.item() ne marchera pas..

Il faut lui donner le numéro de l'item all(145) pour l'utiliser

je vais faire les modifications nécessaire je te remercie pour ton aide