Tuto Qwazerty: Requête WEB et importation

Version imprimable

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:

IEDoc.all("btnG")

Et que dorénavant il est :

Code:

IEDoc.all("btnK")

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

Voici le code entier:
Code:

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

17/02/2015, 16h03
Sebphyto

Point d'arrêt
Re,

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

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+

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:

1
2
' on simule un clic
    SelectGoogleBouton.Click

Voici le code avec ID:

Code:

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

17/02/2015, 18h47
Marc-L

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
17/02/2015, 19h44
Sebphyto
Bonjour Marc,

Citation:

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:

1 2 ' on simule un clic InputGoogleBouton.Click
Citation:

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+
17/02/2015, 20h07
Marc-L

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 …
17/02/2015, 20h16
Sebphyto

Re,

Citation:

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 :koi:, on parle bien de Google!!!

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

Citation:

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
18/02/2015, 19h02
Marc-L

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 …
18/02/2015, 19h42
Sebphyto

Re Marc,

Citation:

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

Citation:

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

Citation:

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
19/02/2015, 07h25
Qwazerty

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:

<input id="gbqfq"

Pour le bouton

Code:

<button id="gbqfba"

Bonne journée

++
Qwaz

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:

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

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:

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

20/02/2015, 10h48
Sebphyto

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 :roi:

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
21/02/2015, 17h03
Sebphyto

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

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:

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

21/02/2015, 21h44
Sebphyto

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