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
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?
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
J'espère avoir été suffisamment clair et merci par avance pour votre aide
Partager