Discussion :

[mgelec]

Bonjour,

Je me permets d'ouvrir un nouveau topic au sujet du tutorial "Interaction avec Internet Explorer via VBA Excel" de Qwazerty.
je suis novice en VBA et je suis confronté à un problème majeur.
Après avoir placé un espion sur la variable IE, dans l'arborescence VBA, je n'ai aucune variable dans l'onglet "Document".



J'ai bien rajouté les références dans les options de VBA:



Pour information, je suis sous Internet Explorer 10.

Merci pour votre aide

[Marc-L]

Bonjour, bonjour !

Conformément aux règles du forum - les lire donc ! - merci de poster le code entre balises (c'est dans les règles aussi !)
et d'indiquer le numéro de la ligne incriminée …

Normalement comme indiqué dans le tutoriel, il faut créer une variable pointant sur le document
pour voir son contenu dans la fenêtre des Variables locales …

[mgelec]

Merci de votre aide!
Je n'ai pas trouvé cette information: "Normalement comme indiqué dans le tutoriel, il faut créer une variable pointant sur le document"
Que dois-je faire exactement? quelle variable et ou dois-je la créer?


Voici le code quasiment identique à celui du tutorial:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
 
Sub WaitIE(IE As InternetExplorer)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.ReadyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub
 
 
Sub RechercheVBAExcel()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
Dim FormGoogleCherche As HTMLFormElement
 
   'Chargement d'une page Web Google
   IE.navigate "www.google.fr"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.document
 
   'On pointe notre Zone de texte
   Set InputGoogleZoneTexte = IEDoc.all("q")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputGoogleZoneTexte.Value = "VBA Excel"
 
   'On pointe notre bouton
   Set InputGoogleBouton = IEDoc.all("btnG")
 
   'On simule un clic
   InputGoogleBouton.Click
 
   'On attend la fin de la recherche
   WaitIE IE
 
   'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
 
End Sub

[Marc-L]

C'est bon, suffit de progresser dans le code en mode pas à pas via la touche F8
tout en vérifiant la fenêtre des Variables locales …

[mgelec]

Je m’excuse mais ce que tu appelles la fenêtre des variables locales est la fenêtre "espion"?
C'est justement ça mon problème, il est indiqué "aucune variable" dans l'onglet document (voir ma copie d'écran ci-dessus).
En mode pas à pas ou point d'arrêt, rien à faire l'onglet Document reste vide...
De ce fait, je ne peux analyser le code de la page et faire la correspondance VBA -> code source du browser

[Marc-L]

Non, juste ouvrir le menu Affichage !

Ensuite, il faut encore regarder la variable pointant sur le bon élément, voir le code …





_________________________________________________________________________________________________
Hebdo du jour : je suis Charlie …