[XL-2010] VBA : comment récupérer valeur contenue dans une page web? [Résolu]

[pegase33]

Bonjour,
J'aimerais en vba récupérer dans une feuille excel la valeur contenue dans une page web
code source :
<SPAN class=Montant>5,40&nbsp;€</SPAN> </A>

J'ai mis ceci en code :

Code :

1
2
3
Dim helem As IHTMLElementCollection
Set maPageHtml = IE.document
Set helem= maPageHtml.getElementsByTagName("SPAN")

Comment faire ?

[Qwazerty]

Salut

Voila un début de code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub EssaiIE()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
 
'Chargement d'une page web Google
IE.Navigate "www.google.fr"
 
'Affichage de la fenêtre IE
IE.Visible = True
 
'On attend le chargement complet de la page
WaitIE IE
 
End Sub
 
 
Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas totalement chargée
Do Until IE.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop
End Sub

Et la ligne du code source que tu nous donnes, ne nous sera d'aucun secours, elle ne contient ni ID ni Name, il faut donc passer par des moyens détournés pour la pointer.
Si tu peux, met une plus grande partie de la source de la page, ou mieux encore si tu pouvais nous donner directement l'URL mais je sais que c'est rarement possible.

++
Qwaz

[pegase33]

Merci bcp à Qwazerty pour m'avoir bien éclairé et donné cette solution :

Code :

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
Sub EssaiIE()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim htmlProfil As HTMLGenericElement
 
'Chargement d'une page web Google
IE.Navigate "Site_Web"
 
'Affichage de la fenêtre IE
IE.Visible = True
 
'On attend le chargement complet de la page
WaitIE IE
 
'On pointe sur la page chargé dans le navigateur
Set IEDoc = IE.document
 
'On va chercher un des éléments ayant un id
Set htmlProfil = IEDoc.all("profil")
 
'Ensuite à partir de la on va chercher l'info dont on a besoin
ThisWorkbook.Sheets("Feuil1").Range("A1") = htmlProfil.all(2).innerText
 
End Sub
 
 
Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas totalement chargée
Do Until IE.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop
End Sub