Récupérer valeur fenêtre Internet Explorer

**QuestVba** · 26/11/2012, 07h36

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

**Jean-Philippe André** · 26/11/2012, 12h06

salut,

la lecture du très complet article de Qwazerty t'aiderait-elle à aller de l'avant ?
http://qwazerty.developpez.com/tutor...-et-vba-excel/
par exemple
http://qwazerty.developpez.com/tutor...a-excel/#LIV-F

**QuestVba** · 26/11/2012, 13h13

Merci pour l'info.

En fait, j'ai déjà ("mal") lu le document mais je n'arrive pas à trouver l'info. D'après ce que j'ai compris, il faut que je trouve le numéro de l'item. Pour cela, je dois utiliser l'espion.

Peux-tu me dire où je dois mettre mon espion dans mon code

?

**Jean-Philippe André** · 26/11/2012, 13h28

En fait je ne sais pas ce que tu cherches exactement à récupérer, vu que tu as mis du rouge partout, sans indiquer celui sur lequel tu buttes actuellement

**patricktoulon** · 26/11/2012, 15h22

Bonjour

Au vu de ce que tu a mis en rouge tu cherche le innertext des éléments a partir du <td>".
Rien que cela devrait te mettre sur la voie.

Si tu as lu le tuto de qwazerty tu as pu voir que l'on pouvait faire une recherche par le typetag des éléments.

En ce qui te concerne tu a un "td" et les autre sont des "class"

getelementsbytagname
getelementsbyclassename

Tu as çà dans son tutoriel.

au plaisir

**QuestVba** · 27/11/2012, 08h41

Salut patricktoulon & jpcheck,

Merci de prendre un peu de votre temps pour m'aiguiller.

Pour enlever tout doute, j'ai mis en attaché une copie de l'écran, avec les données que je veux récupérer.

Mais décidemment, je lis relis le tuto qui est bien fait mais je ne peux déjà pas le mettre en pratique à cause du surfcontrol de mon job. Donc, c'est un peu théorique.

J'ai un peu avancé en mettant le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Set htmlTagCol = IEDoc.getElementsByTagName("td")
        x = htmlTagCol(10).innerText

je récupère la donnée suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"1080 Ville Molenbeek-Saint-Jean Pays Belgique"

Ce qui ne me convient pas vraiment puisque je voudrai les données 1 à 1 (1080 / Molenbeek-Saint-Jean / Belgique).

J'essaie d'utiliser getelementsbytagname, getelementsbyclassename de faire la différence entre "td" et "class"; si vous aviez encore quelques idées .... merci merci merci

Récupérer valeur fenêtre Internet Explorer [XL-2003]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager