Discussion :

[QuestVba]

Bonjour,

J'essaie mais je patauge.
Au départ j'ai des données dans une fenêtre IE. Je mets en attaché le code HTML.

Avec le code suivant

Code :

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

1
2
Set iddecouvert = IE.Document.getElementById("blockheader")
nomgest = Trim(iddecouvert.Children.Item(6).innerText)

Je récupère les données mais elles sont toutes les unes à la suites des autres du style

Code :

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

Bureau18 - GARANTIES Numéro d'agent00000699 Tél.02-237 27 26 Nom de l'agentPiette, Patricia

Sur la capture, j'ai fluoté ce que je veux récupérer (des enfants d'enfants), soit

Code :

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

1
2
3
00000699
02-237 27 26
PIETTE, PATRICIA

Mon problème est donc de récupérer un sous enfant mais je n'arrive pas à trouver la bonne formule. Merci pour toutes les infos qui me mettront sur la piste.

[patricktoulon]

Bonjour

"element.children(x).children(y)'pour x et y ca peut etre 0,1,2,3,4,5...ect....

[QuestVba]

Bonjour, patricktoulon,

Je t'attendais sur le sujet . Merci, merci tu m'as éclairé en qq minutes. C'est fantastique. Voici du coup mon code

Code :

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

= iddecouvert.Children(6).Children(0).Children(1).Children(2).Children(1).innerText

C'est beaucoup plus facile que le traitement que j'effectuais pas dépis -> surtout ne pas suivre cette voie ...

Code :

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

1
2
3
chl = Len(NOMGEST)
ch1 = Mid(NOMGEST, InStr(NOMGEST, "Nom de l'agent") + 14, chl)
extractagent = ch1 'Left(ch1, InStr(ch1, "Nom de l'agent") - 0)

[patricktoulon]

Bonjour, patricktoulon,

Je t'attendais sur le sujet . Merci, merci tu m'as éclairé en qq minutes. C'est fantastique. Voici du coup mon code

Code :

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

= iddecouvert.Children(6).Children(0).Children(1).Children(2).Children(1).innerText

Attention il n'est pzs forcé que ce soit pareil pour tout les iddecouvert.children(6)
sachant que tu le trouve avec

Code :

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

Set iddecouvert = IE.Document.getElementById("blockheader")

je suppose que tu en a plusieurs donc a observer

je serai toi je serai plus basic que ca
un truc du genre (attention pas testé je n'est pas la page pour ca)

Code :

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

1
2
3
4
for each elem in iddecouvert.children(6)
if elem.children(i).classename="datalabel"
 
next

mais tu a un truc du genre dans le tuto de qwazerty il me semble

ainsi si les elements ne sont pas a la meme place tu les attrape quand meme