comment extraire des données sur internet via un programme vba ?
Hello Alain, Hello à tous!
J'ai lu cette discussion.
Citation:
Envoyé par
AlainTech
Bonjour,
Je ne comprends toujours pas pourquoi vous essayez de remplir le calendrier alors qu'il est possible d'atteindre la bonne page par l'URL. :marteau:
Enfin... Pourquoi faire simple quand on peut faire compliqué???
Je reprend le code et malheuresement je n'arrive pas à faire fonctionner le tiens (celui de Henri marche par contre, mais il m'a l'air un peu plus 'bourrin')
Je ne suis pas à l'aise en HTML et je ne comprend pas trop comment tu navigues dans les items, et je me demande si le site n'a pas changé (ce qui expliquerait peut être pourquoi il ne trouve rien).
Doit-on reproduire dans les boucle de recherche l'arborescence des balises ?
Du coup je pense que c'est cette partie là qui ne match plus :
Code:
1
2
3
4
5
6
7
8
9
10
|
For Each oDiv In oDoc.getElementsByTagName("DIV")
If oDiv.className = "bd" Then
If InStr(1, oDiv.innerHTML, "PMSelect") > 0 Then
Set oTable = oDiv.Children(2)
strDernEch = oTable.Cells(2).outerText
Exit For
End If
End If
Next oDiv |
Voici le lien que j'utilise comme exemple : http://www.boursorama.com/cours.phtm...ate=2008-01-30
Et la valeur que j'essaye d'avoir sur la page est celle face au champ : Dernier échange
Merci d'avance !
MonSavon :)
