Bonjour le Forum,
Comme d'habitude, une question simple pour Vous mais un véritable casse tête pour moi. Je cherche à réupérer des données d'une fenêtre IE. Voici mon début de code qui fonctionne pour récupérer mes 4 premières données.
Mais pour la suite, mon problème est que la donnée se trouve sous un autre format et que je m'arrache les cheveux à essayer de l'extraire. Voici le code de la fenêtre . J'ai mis en rouge les données que j'aimerais récupérer.
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 Private Sub Worksheet_Calculate() Dim IE As New InternetExplorer Dim winShell As New ShellWindows Dim maPageHtml As HTMLDocument Dim HtmlElementStandard As HTMLGenericElement Dim objectif As HTMLGenericElement For Each IE In winShell If Mid(IE.LocationName, 1, 7) <> "ITinera" Then GoTo line1 Set IEDoc = IE.Document Set HtmlElementStandard = IE.Document.all("blockContentForm:inss") NISS = HtmlElementStandard.innerText Set HtmlElementStandard = IE.Document.all("blockContentForm:title") TITRE = HtmlElementStandard.innerText Set HtmlElementStandard = IE.Document.all("blockContentForm:name") NOM = HtmlElementStandard.innerText Set HtmlElementStandard = IE.Document.all("blockContentForm:firstName") PRENOM = HtmlElementStandard.innerText ==>> mon problème line1: Next IE Set IE = Nothing End Sub
Code html : 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 <body class="fileReadOnly" onload=""> <span id="contentPane"> <form name="blockContentForm" id="blockContentForm" action="/itinera/pages/showFileOwnerActor.xhtml" encType="application/x-www-form-urlencoded" method="post"> <div id="blockContent"> <div class="rich-panel " id="blockContentForm:officialAddressPanel"> <div class="rich-panel-body " id="blockContentForm:officialAddressPanel_body"> <table class="dataLines"> <tbody> <tr> <th> Texte - Rue <td id="address"> Texte - Quai de la Batte <span class="dataLabel"> Texte - Numéro <span class="dataValue"> Texte – 2 <span class="dataLabel"> Texte - Boîte <span class="dataValue"> Texte – 13 <tr> <th> Texte - Code postal <td id="location"> Texte – 4500 <span class="dataLabel"> Texte - Ville <span class="dataValue"> Texte – Huy <span class="dataLabel"> Texte - Pays <span class="dataValue"> Texte - Belgique
Merci pour vos idées
Partager