Extraction d'infos HTML depuis VBA

Bonjour,

J'essaye depuis quelques heures de récupérer des informations d'une page HTML depuis VBA.
J'ai beau suivre (le tuto de Qwazerty), j'ai un cas de figure que je ne trouve pas, et que je n'arrive pas à solutionner.

Mon HTML se présente comme ça :

Code:

---

1 2 3 4 5 6 7 8 9

<li> <span class="label">Age:</span> 74 years old </li> <li> <span class="label">Birthdate:</span> April 25th 1940 </li>

---

J'arrive bien a extraire Age, grâce à :

Code:

---

Age = (Docu.getElementsByClassName("label")(4).innerText) '(4) car il se trouve que "label" existe déjà plusieures fois dans la liste.

---

mais je n'arrive pas à extraire "74"

L'idée serait de chercher directement "Age:", mais je ne trouve pas la méthode (et encore moins celle qui me donnera : "74")

Bonjour,

il suffit juste de créer une variable soit sur le document soit sur un élément
puis de vérifier sa structure dans la fenêtre des Variables locales …

Le parent du Label Age contient le texte voulu dans sa propriété innerText.
Sinon, comme indiqué dans le tutoriel, chercher dans la collection des éléments li …

Bonjour Marc-L et merci pour la réponse.

Je ne comprends pas trop. Il faut que je modifie le document HTML ?
Or il ne m'appartient pas, et est issu d'Internet.

Non, c'est de la lecture uniquement comme dans le tutoriel, juste pointer un élément via une variable,
relire mon précédent message …

Avec le code suivant :

Code:

---

1 2	Set htmlTagCol = IEDoc.getElementsByTagName("li") MaVal = htmlTagCol(i).innerText 'i est le numéro de l’élément recherché

---

J'arrive à récupérer le texte désiré.
J'ai juste à faire une manipulation de chaîne de caractère pour l'adapter à mes besoins.

Par contre, y a t'il une manière plus facile de trouver le texte? En tapant par exemple "Age:" quelque part ?
Ça éviterait déjà de faire un tri sur les différents éléments.

Merci.

Non car "Age:" n'est pas dans le même élément …

L'autre voie serait de ne pas piloter IE mais de récupérer le code source de la page
via une requête (VBA et développement Web) puis d'utiliser les fonctions de texte internes au VBA …

Voir les exemples dans les discussions de ce forum, effectuer une recherche sur CreateObject("Microsoft.XMLHTTP"),
CreateObject("MSXML2.XMLHTTP") et CreateObject("WinHttp.WinHttpRequest.5.1") …

Merci, après avoir lu le tutoriel en détail, j'ai bien compris le fonctionnement.
J'ai essayé les WinHTTP et autres XMLHTTP, mais sans aboutir. Cela me semble trop compliqué maintenant que j'ai trouver une solution.

Encore merci pour le coup de main.