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