VBA & IE : pose d'un espion qui reste vide

Bonjour à tous !

Je poste dans ce forum car j'ai un problème avec la pose d'un espion dans mon code (je dois surement m'y prendre mal ou bien alors le site n'est pas réceptif).
En effet, je cherche à m'entrainer à explorer une page web grâce à l'excellent tuto de qwazerty.

Voici donc mon code :

Code:

---

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

Sub RecupCodesAuchan() 'Déclaration des variables Dim IE As Object Dim IEDoc As HTMLDocument     'Identifier IE comme un objet Set IE = CreateObject("InternetExplorer.Application") 'Rendre la navigation visible/invisible IE.Visible = True   'Lancer IE IE.Navigate URL:="http://www.auchandrive.fr/drive/recherche/P791703" 'Attendre le chargement complet de la page Do Until IE.readyState = 4 DoEvents Loop   'Déclarer IEDoc comme objet Set IEDoc = IE.document   Set IE = Nothing   End sub

---

Je place mon cran d'arrêt sur Set IE = Nothing. Puis mon espion sur "IE". Viens ensuite le problème, je peux développer l'espion IE mais pas "document" qui se situe dans IE (j'espère que je suis assez compréhensible :?).

Les références que j'ai activées :

• Microsoft HTML Object Library
• Microsoft Internet Controls

J'espère vous avoir communiqué assez d'informations,


Merci d'avance pour votre réponse,

Guillaume

Bonjour je cite ton code

Citation:

---

Code:

---

1 2 3 4 5 6

'Déclarer IEDoc comme objet Set IEDoc = IE.document Set IE = Nothing End sub

---

---

si Ie =nothing IEdoc est mort aussi

d'autant plus que tu fait l'amalgame avec le early binding et le late binding
en effet tu déclare ta variable IEDoc en tant que document html donc en early binding ce qui implique que les références soit activée

Code:

---

Dim IEDoc As HTMLDocument

---

hors ta variable IE est un Object et devient une instance de l'application internet par la ligne " createObject" donc en (late binding)

donc en late binding tout est en Object et en early binding sont nommé et les références doivent êtres activées

code fonctionel

Code:

---

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

Sub RecupCodesAuchan() 'Déclaration des variables Dim IE As Object, IEDoc As Object     'Identifier IE comme un objet Set IE = CreateObject("InternetExplorer.Application") 'Rendre la navigation visible/invisible IE.Visible = True   'Lancer IE IE.Navigate URL:="http://www.auchandrive.fr/drive/recherche/P791703" 'Attendre le chargement complet de la page Do Until IE.readyState = 4: DoEvents: Loop   'Déclarer IEDoc comme objet Set IEDoc = IE.document   ' le reste de ton code ici   'on quit internet IE.quit 'on vide la variable Set IE = Nothing   End Sub

---

Salut Patrick !

Je n'ai pas tout compris mais il me semble que si je mets mon cran d'arrêt sur la dernière ligne (Set IE = nothing), ce code n'est pas lu par VBA, du coup je ne pense pas que l'erreur soit de ce côté.
J'ai bien testé ton code, mais ce dernier ne fonctionne pas non plus : j'obtiens le même résultat, à savoir je peux développer mon espion (IE) une fois, mais pas plus (en ce qui concerne "document").
D'ailleurs tu remarqueras que si on met l'espion sur IE.document (ce qui revient à développer l'espion IE puis document), alors l'espion est vide.

Est ce que cela peut venir du site en lui même ?

Merci pour ton aide rapide,

Guillaume

Salut

La question a été posée sur le fil du tutoriel, en fait pour résoudre ton problème il suffit de mettre l'espion sur IEDoc.

++
Qwaz

Salut !

Merci encore une fois pour ton tuto et surtout pour ta réponse !!
Tout fonctionne. Je présume que cela vient du fait que j'ai affecté IE.document à une variabke HTMLDocument qui permet ce genre de manipulation ?

Merci encore,

Guillaume

Salut

Oui, il semblerait que cela vienne du fait que VBE ne sache pas interpréter le contenu de la variable document directement dans IE ne sachant pas à quoi elle correspond.
Mais bon je suis dans l’expectative, je ne saisi pas trop où se trouve le problème exactement pour être franc, il faudrait sans doute que j'y passe un peu de temps ;).

++
Qwaz