Bonjour à tous,

Bon je l'avoue, le titre est un peu obscure!


Depuis Access, j'ouvre une page dans un browser web, peu m'importe le quel même si chacun à ses particularités. Puis j'émule un clic sur un bouton de cette page depuis Access qui lance le chargement d'une deuxième page.

Voici le code pompé sans vergogne sur l'excellent tuto de Qwazerty sur le sujetici

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
Sub RechercheVBAExcel()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
 
   'Chargement d'une page Web Google
   IE.Navigate "www.google.fr"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
 
   Set IEDoc = IE.document
 
   'On pointe notre bouton
   Set InputGoogleBouton = IEDoc.all("btnG") '--> Set InputGoogleBouton = Document.getElementsByName("btnG")(0)
 
   'On simule un clic
   InputGoogleBouton.Click
 
   'On attend la fin de la recherche
   WaitIE IE
 
   'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
End Sub
 
Sub WaitIE(IE As InternetExplorer)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.ReadyState = READYSTATE_COMPLETE : DoEvents : Loop
End Sub
Je voulais savoir si une fois la nouvelle page chargée, oDoc pointe bien par défaut sur cette nouvelle page chargée, ou est-il nécessaire de réinstancier oDoc?


J'espère avoir été suffisamment clair et merci par avance pour votre aide