Bonsoir à tous,

après avoir lu les excellents tuto de Qwazerty et Arkham46 relatifs aux diverses relations entre VBA et une page HTML, je bute sur la plus élémentaire des opérations : la récupération d'une donnée en HTML.

Mon but est de récupérer divers éléments sur une page de cotation d'action sur le site de bloomberg. Ici j'essaie de récupérer un élément pour l'afficher dans une box.

Voici mon code :
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
Private Sub bt_Bloomberg_Click()
 
Dim oNav As New SHDocVw.InternetExplorer
Dim oDoc As New MSHTML.HTMLDocument
Dim HtLM As MSHTML.HTMLGenericElement
Dim Txt As String
 
oNav.Navigate "http://www.bloomberg.com/quote/DG:FP"
oNav.Visible = True
 
WaitIE oNav
 
Set oDoc = oNav.Document
 
Set HtLM = oDoc.all("ticker")
Txt = HtLM.innerText
 
MsgBox Txt
 
End Sub
Problème : un message d'erreur ("Variable objet ou variable de bloc with non définie") s'affiche au niveau de l'instruction "Txt = HtLM.innerText" (L.16)

N'ayant rien trouvé nul part sur le web. je m'en remets à votre aide, car je tourne en rond.

Je vous remercie d'avance.