Discussion :

[Symone]

Bonjour,

J'ai lu cette discussion.

Pour ma part j'ai deux problèmes à peu près pareil...

Dans l'espion, lorsque je déploie IE, j'ai tout un tas de paramètres ; ensuite, lorsque je déploie 'Document', je tombe sur <No Variables>...

J'ai trouvé une personne ayant le même problème (http://www.vbaexpress.com/forum/show...BA-No-Document) mais j'en déduis juste que le problème vient des références choisies (qui ne sont pas spécifiées)

Est-ce que tu peux spécifier l'ensemble de tes références actives stp? (Des fois que le problème viendrait d'une réf. génante)


Deuxième problème, j'ai dans mon code :

Code :

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

1
2
3
    With IE.document
        MsgBox .body.ID
    End With

En lecture (F5), le code s'arrête sur la ligne

Code :

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

With IE.document

et m'insulte avec un

Run-time error '-21474667259 (80004005)

Automation error
Unspecified error

Seulement, je peux continuer en mode pas à pas (F8) et tout se déroule normalement...

Aurais-tu plus de pistes?

Merci!

PS : je me suis aussi basé sur le tuto de Qwazerty qui, jusqu'à ce que çà foire, était top !

[Qwazerty]

Salut

Donne une plus large parti de ton code et si possible le site que tu manipules.

++
Qwaz

[Symone]

Bonjour,

voilà le 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
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
51
52
53
Sub Open_Pages2()
 
'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
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
 
    'Chargement d'une page web Google
    IE.navigate "http://www.google.com"
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
    'On attend la fin de la recherche
    WaitIE IE
 
    With IE.document
        MsgBox .body.ID
    End With
 
    '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"
    'WaitIE IE
 
    'On pointe la Form qui contient Zone de Texte + Bouton (entre autres)
    'Set FormGoogleCherche = IEDoc.forms("gbqf")
    'On exécute l'action Submit de la Form
    'FormGoogleCherche.submit
    'WaitIE IE
 
    'On pointe notre bouton
    'Set InputGoogleBouton = IEDoc.all("btnK")
    'On simule un clic
    'InputGoogleBouton.Click
    'WaitIE IE
 
    'On libère les variables
    Set IE = Nothing
    Set IEDoc = Nothing
 
 
End Sub

Il change pas beaucoup du tuto que t'as donné
Il y a juste les valeurs données à 'FormGoogleCherche' et 'InputGoogleBouton' qui étaient différentes sur mon Internet Explorer

Sinon j'utilise Google pour mes essais

Par contre, j'ai rajouté deux espions :
IE.document et IE.document.all ; le 1er marque également <no variables> et le second me permet de découvrir l'arborescence de 'document'... Seulement, il y a énormément de champs vides, du coups je ne sais pas si je peux m'y fier ou non :/

[Qwazerty]

Salut

Ce n'est pas ta version d'Excel qui fait que les noms des éléments ne sont pas identiques à ceux contenu dans mon tuto, c'est le site google qui a évolué.
Comme tu l'as remarqué, ce sont juste les nom qui change, donc pas de soucis particulié, de mon coté IEDoc se renseigne bien

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
'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
 
'Initialisation des variables
Set IE = CreateObject("InternetExplorer.Application")
 
 
'Chargement d'une page web Google
IE.navigate "http://www.google.com"
 
'Affichage de la fenêtre IE
IE.Visible = True
 
'On attend la fin de la recherche
WaitIE IE
 
'On pointe le contenu de la page
Set IEDoc = IE.document
 
'On pointe la zone de texte
Set InputGoogleZoneTexte = IEDoc.all("gbqfq")
 
'On pointe le bouton
Set InputGoogleBouton = IEDoc.all("gbqfba")

++
Qwaz