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 :
  1. Comment peut-on lister toutes les URL trouvées ?
  2. 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 : 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
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