Tuto Qwazerty: Requête WEB et importation

**Sebphyto** · 17/02/2015, 15h27

Bonjour le Forum,

En cours d'apprentissage sur les requêtes WEB et VBA, je me suis intéressé au Tuto de QWAZERTY, Fort bien construit soit dit en passant....

Mais je pense que soit je n'arrive pas à faire fonctionner les codes présents dans le tuto, soit le tuto est obsolète avec les versions d'Excel 2013 et IE 11....

Je viens juste de commencer avec ce code, qui ne veux pas "simuler un clic sur le bouton de recherche", à savoir que dans le Tuto le bouton de recherche Google est (en HTML) :

Code :

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

IEDoc.all("btnG")

Et que dorénavant il est :

Code :

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

IEDoc.all("btnK")

J'ai fait cette modif mais rien ne se fait....

Voici le code entier:

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
54
55
56
57
58
59
Sub RechercheVBAExcel()
'Inscrire du texte dans une zone de texte ex: zone de recherche google
'*********************************************************************
 
'Déclaration de variables
 
'Dim IE As New InternetExplorer 'en référencant
Dim IE As Object 'en Late Binding
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
 
    Set IE = CreateObject("internetexplorer.application") 'en Late Binding
 
    'Chargement d'une page Web
    IE.Navigate "http://www.google.fr/"
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
    'Attente chargement
    WaitIE IE
 
    'on pointe le membre du document
    Set IEDoc = IE.document
    WaitDoc IEDoc
    'on pointe notre zone de texte
    Set InputGoogleZoneTexte = IEDoc.all("q")
 
    'on définit le texte que l'on veut saisir dans zone de rech
    InputGoogleZoneTexte.Value = "VBA Excel"
 
    'on pointe le bouton rech
    Set InputGoogleBouton = IEDoc.all("btnK") '------> NE FONCTIONNE PAS, PAS DE CLIC
 
    ' on simule un clic
    InputGoogleBouton.Click
 
    'Attente la fin de chargement
    WaitIE IE
 
    'libération de la variable
    Set IE = Nothing
    Set IEDoc = Nothing
 
End Sub
Sub WaitIE(IE As InternetExplorer)
'Boucle tant que la page n'est pas totalement chargée
'****************************************************
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
 
End Sub
Sub WaitDoc(doc As HTMLDocument)
  Do While Not doc.readyState = "complete"
    DoEvents
  Loop
End Sub

A la suite de ce tuto j'aimerai pouvoir récupérer pas mal d'info sur un site, que je ne peux citer ici dû aux CGU du site "développez.net".

Je pense avoir besoin de vous au cours de mon apprentissage.

Et merci de votre aide

**Sebphyto** · 17/02/2015, 16h03

Re,

Après analyse, lorsque je place un point d'arrêt ici:

Code :

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

1
2
' on simule un clic
    InputGoogleBouton.Click

puis que je l'enlève et relance la procédure cela fonctionne????

Y aurait-il un problème d'attente?

Si vous avez une explication !!!!!

A+

**Sebphyto** · 17/02/2015, 17h13

Re,

Bon j'ai essayé de changer le code afin de cibler directement Id du bouton, mais en vain
Toujours pareil, il faut que je mette un point d'arrêt ici et relancer pour que la recherche se termine:

Code :

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

1
2
' on simule un clic
    SelectGoogleBouton.Click

Voici le code avec ID:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
Sub RechercheVBAExcel()
'Inscrire du texte dans une zone de texte ex: zone de recherche google
'*********************************************************************
 
'Déclaration de variables
 
'Dim IE As New InternetExplorer 'en référencant
Dim IE As Object 'en Late Binding
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
'Dim InputGoogleBouton As HTMLInputElement
Dim SelectGoogleBouton As HTMLSelectElement
 
 
    Set IE = CreateObject("internetexplorer.application") 'en Late Binding
 
    'Chargement d'une page Web
    IE.Navigate "https://www.google.fr/"
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
    'Attente chargement
    WaitIE IE
 
    'on pointe le membre du document
    Set IEDoc = IE.document
        WaitDoc IEDoc
 
    'on pointe notre zone de texte
    Set InputGoogleZoneTexte = IEDoc.all("q")
 
    'on définit le texte que l'on veut saisir dans zone de rech
    InputGoogleZoneTexte.Value = "VBA Excel"
 
    'on pointe le bouton rech
    Set SelectGoogleBouton = IEDoc.getElementById("gbqfsa") ' ou Set InputGoogleBouton = IEDoc.all("btnK")
 
    ' on simule un clic
    SelectGoogleBouton.Click
 
    'Attente la fin de chargement
    WaitIE IE
    WaitDoc IEDoc
 
    'libération de la variable
    Set IE = Nothing
    Set IEDoc = Nothing
 
 
 
 
End Sub
Sub WaitIE(IE As InternetExplorer)
'Boucle tant que la page n'est pas totalement chargée
'****************************************************
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
 
End Sub
Sub WaitDoc(doc As HTMLDocument)
  Do While Not doc.readyState = "complete"
    DoEvents
  Loop
End Sub

A tchao

**Marc-L** · 17/02/2015, 18h47

Bonjour,

là il n'est pas question de requête mais de pilotage d'Internet Explorer !
Pour faire la différence, dans le forum Contribuez voir la contribution
Automatiser l'ouverture d'un fichier compatible Excel depuis le Web (téléchargement) …

Pour une requête ne pas oublier aussi la fonction de feuille de calculs du menu Données : A partir du Web !
QueryTable en VBA.

Sinon indiquer clairement les manipulations en utilisation manuelle et le but recherché …

__________________________________________________________________________________________________
Tous unis, tous Charlie

**Sebphyto** · 17/02/2015, 19h44

Bonjour Marc,

là il n'est pas question de requête mais de pilotage d'Internet Explorer !

Certe, je suis dans la partie pilotage du tuto, c'est vrai.....

sinon ma demande sur le tuto, et avec mon code, est :

Pourquoi quand je lance la procédure, je ne vois pas le résultat de la recherche Google???
Alors que si je mets un point d'arrêt ici et que je la relance, tout fonctionne.....

Code :

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

1
2
' on simule un clic
    InputGoogleBouton.Click

Pour une requête ne pas oublier aussi la fonction de feuille de calculs du menu Données : A partir du Web !
QueryTable en VBA.

Je connais cette pratique, mais on en revient toujours au même point que dans un autre sujet que j'ai posté (ICI).

Mais je ne veux pas faire doublon de mes post

A+

**Marc-L** · 17/02/2015, 20h07

Donc tu n'as même pas navigué sur cette URL pour comprendre comment maintenant fonctionne cette page ?!
Elle n'a plus rien à voir avec l'époque de la parution du tutoriel …

Changer de page en prenant un cas concret ou sinon, expliquer enfin
les manipulations lors de l'utilisation de cette page manuellement jusqu'au but recherché …

Ne pas oublier avec le pilotage d'IE : ce qui est valable pour une page ne l'est pas forcément pour une autre,
même sur le même site ! A la moindre modification du code source de la page, il faut tout revoir ! De l'éphémère …

Tuto Qwazerty: Requête WEB et importation [XL-2013]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager