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.

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
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 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