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 : 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 ' **** 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
Partager