IE - Lister toutes les pages trouvées - Boucle complémentaire
Bonjour à tous,
J'espère que tout le monde se porte à merveille.
Avec ce code, trouvé sur notre forum, je lance une recherche sur les mots 'allocations familiales'. Deux questions :
- Comment peut-on lister toutes les URL trouvées ?
- Comment demander de passer à la page de résultats suivantes si l'URL ne contient pas le mot 'famifed' ?
Un grand merci pour les pistes
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
| Option Explicit
' Nécessite d'activer les références:
' Microsoft Internet Controls
' Microsoft HTML Object Library
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.be"
'Affichage de la fenêtre IE
IE.Visible = True
'attend le chargement complet de la page
WaitIE IE
'pointe le membre Document
Set IEDoc = IE.Document
'pointe notre Zone de texte
Set InputGoogleZoneTexte = IEDoc.all("q")
'définit le texte que l'on souhaite placer à l'intérieur
InputGoogleZoneTexte.Value = "allocations familiales"
'--- ne fonctionne pas ---
'pointe le bouton
'Set InputGoogleBouton = IEDoc.all("btnK")
'simule un clic
'InputGoogleBouton.Click
'--- fonctionne ---
'pointe la Form qui contient Zone de Texte + Bouton (entre autres)
Set FormGoogleCherche = IEDoc.forms("f")
'exécute l'action Submit de la Form
FormGoogleCherche.submit
'attend la fin de la recherche
WaitIE IE
'libère les variables
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 |