récupérer donnée d'une classe dans EDGE ou Firefox au lieu de IE
Bonjour
je cherche à récupérer une zone "label" ayant une "classe" particulière MAIS avec le navigateur EDGE ou Firefox au lieu de Internet Explorer
Merci d'avance de votre aide
Voici mon code actuel :
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
|
' **** Source utilisée
' https://qwazerty.developpez.com/tutoriels/vba/ie-et-vba-excel/
' But : récupérer donnée d'une classe dans EDGE ou Firefox au lieu de IE
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim HtmlElementStandard As HTMLGenericElement
Dim LeTexteExtrait As String
'Initialisation des variables
Set IE = CreateObject("InternetExplorer.Application")
'Chargement d'une page web
' IE.navigate "https://www.impots.gouv.fr/"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
WaitIE IE
'On pointe le document
Set IEDoc = IE.document
'Allons chercher ce texte dans notre Item46
Set HtmlElementStandard = IEDoc.body.all(45)
'Set HtmlElementStandard = IEDoc.body.all.getElementsByClassName("menu--main menu")
'On le place dans notre variable prévue à cet effet
LeTexteExtrait = HtmlElementStandard.innerText
'On affiche le texte
MsgBox LeTexteExtrait, Title:="Le texte extrait de la page"
'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing |
