Discussion :

[GuillaumeMorel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

Bonjour je cite ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

code fonctionel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[GuillaumeMorel]

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

[Qwazerty]

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

[GuillaumeMorel]

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

[Qwazerty]

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