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 …

**Sebphyto** · 17/02/2015, 20h16

Re,

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 …

Bah bien sur que j'ai navigué sur cette page

, on parle bien de Google!!!

Il a fallu que je change l'appellation du bouton entre autre....des recherches dans le code HTML, etc...

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é …

La page Google me sert seulement d'exemple, le but est dans l'autre sujet, stipulé plus haut....

Mais avant tout je souhaite comprendre et apprendre

Merci

**Marc-L** · 18/02/2015, 19h02

Sur la page Google de mon côté pas besoin de cliquer sur un quelconque bouton, d'où mon doute !
Donc sans une présentation claire et exhaustive de tes manipulations en utilisant manuellement un navigateur …

Sinon changer de page Web mais là aussi sans tenants & aboutissants car pas question d'incantation divinatoire !
Sans compter les nombreuses discussions de ce forum - et d'autres ! - traitant ce sujet …

**Sebphyto** · 18/02/2015, 19h42

Re Marc,

Sur la page Google de mon côté pas besoin de cliquer sur un quelconque bouton, d'où mon doute !

En suivant le tuto de Qwazerty, un de ces codes simule un clic, c de celui là dont je parle.
Hors dans ce code, il faut que je mets un pt d'arrêt au moment du clic, puis le basculer pour qu'il m'affiche la recherche

Donc sans une présentation claire et exhaustive de tes manipulations en utilisant manuellement un navigateur …

Je souhaite juste suivre le tuto, avec un code vba qui permet de saisir dans la zone recherche de Google et de simuler un clic

Sans compter les nombreuses discussions de ce forum - et d'autres ! - traitant ce sujet …

Le truc c'est que j'ai lu tous les post sur le tuto de Qwazerty, mais ce problème n'est jamais remonté

Bonne soirée

**Qwazerty** · 19/02/2015, 07h25

Salut

En effet le code de la page google a changé, voici les nouveau id qui doivent être utilisés (pas testé)

Pour le champs de saisi

Code :

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

<input id="gbqfq"

Pour le bouton

Code :

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

<button id="gbqfba"

Bonne journée

++
Qwaz

**Sebphyto** · 19/02/2015, 09h04

Salut Qwazerty,

Ravi de te voir sur mon fil de discussion, et merci pour ton tuto,

Les modifs que tu apportes, ont déjà été modifiée dans 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
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
67
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("gbqfq")
 
    '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("gbqfba") ' 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
 
    'Permet de quitter la page web
    'IE.Quit
 
 
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

Mais le problème persiste toujours
La recherche ne s'effectue pas sauf si pt d'arrêt et puis basculement de celui-ci

Je suis toujours dans l'interrogation du pourquoi et comment

Je regarde cela aujourd'hui et revient pour dire ce qu'il en n'est..

Bonne journée

**Qwazerty** · 20/02/2015, 07h51

Salut

Alors en effet il y a bien un soucis plus vaste que le nom des variables qui a changé.

Le soucis vient du fait que lorsqu'on commence à taper dans le champs de saisie, la page se modifie, hors dans le code du tuto, aucun événement n'est déclencher lors de la mise en place du texte à rechercher. Du coup lors du clique sur le bouton google n'effectue pas la recherche.
Pour résoudre le problème, il suffit de faire croire à google que le texte à été inscrit "manuellement", dans le code suivant j'ai simplement déclenché l'événement OnPaste pour simuler l'action coller. Le code associé à OnPaste sur la page est exécute par la page et elle se modifie en conséquence. Le reste du code ne change pas.

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
67
68
69
Option Explicit
 
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("gbqfq")
 
    'on définit le texte que l'on veut saisir dans zone de rech
    InputGoogleZoneTexte.Value = "VBA Excel"
    InputGoogleZoneTexte.FireEvent "OnPaste"
    'on pointe le bouton rech
    Set SelectGoogleBouton = IEDoc.getElementById("gbqfba") ' 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
 
    'Permet de quitter la page web
    'IE.Quit
 
 
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

Bonne fin de journée

++
Qwaz

**Sebphyto** · 20/02/2015, 10h48

Bonjour,
Qwazerty et le forum,

Merci pour ta réponse pertinante, je pense qu'elle aidera les prochaines personnes voulant suivre ton tuto.

C'est cool

Si tu as un peu de temps à m'accorder en vue de ta grande connaissance dans ce sujet, j'aimerai que tu regardes deux sujets que j'ai ouvert suite à ton tuto, pour une application personnelle.
- Test Date et critères sur page web
- Récup Web et Webtables

Bonne journée

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

Salut Qwazerty,

Bon après test, car pas le temps avant, je dois te dire qu'il fonctionne toujours pas, le même problème que précédemment....

De ton côté l'avais-tu essayer?

A bientôt

**Qwazerty** · 21/02/2015, 19h05

Salut

Oui j'avais fait des essais et ça passait... étrange, je vais retenter.

[Edit] Je te confirme que chez moi ça passe sans problème. Tu peux tenter de mettre un WaitIE, WaitDoc juste avant le click histoire de laisser le temps à la page de changer d'apparence... ou sinon tu peux essayer de mettre un sleep avec quelques millisecondes avant le click...

Essai de modifier la WaitIE comme suit

Code :

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

1
2
3
4
5
6
7
8
Sub WaitIE(IE As InternetExplorer)
'Boucle tant que la page n'est pas totalement chargée
'****************************************************
    Do Until IE.readyState = READYSTATE_COMPLETE And (Not IE.Busy)
        DoEvents
    Loop
 
End Sub

Après je ne vois pas trop quel serait le problème.

[/Edit]

++
Qwaz

**Sebphyto** · 21/02/2015, 21h44

Salut Qwazerty,
Merci pour le temps que tu passes a résoudre ce souci.
Je suis en soirée. Je teste ça dès demain.

Merci encore et as-tu regardé un peu mes autres sujets?

A pluche

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

Macros et VBA Excel

Discussions similaires

Partager

Partager