Contenu d'une page Web depuis feuille XL

sroft

XLDnaute Nouveau
Bonjour,

Tout d'abord, bravo pour ce site que je découvre aujourd'hui.
:woohoo:

J'ai téléchargé un exemple sur le site (intitulé demo web browser) permettant d'inscrire une page web directement sur une feuille XL. Je suis hyper intéressé par ceci si quelqu'un est capable de me dire comment récupérer le contenu de cette page (dans mon cas, il ne s'agirait que de quelques mots clés afin de pouvoir activer la macro qui va bien).
Pour être plus complet : je souhaiterais avoir la fenêtre web pour me permettre d'ouvrir une page HTML (pour effectuer une requête sur le serveur web) et connaitre la réponse de cette requête par l'intermédiaire de la page web.
 

MichelXld

XLDnaute Barbatruc
bonsoir

tu dois tout d'abord déterminer l'emplacement des données dans ta page web pour pouvoir les importer dans Excel

la page Web peut par exemple etre constituée de tables , chaque table contenant des lignes , et chaque ligne des cellules


Private Sub CommandButton4_Click()
'nécéssite d'activer la référence Microsoft HTML Objects Library
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable

WebBrowser1.navigate 'http://www.excel-downloads.com'
Do
DoEvents
Loop While WebBrowser1.Busy

Set maPageHtml = WebBrowser1.document
Set Htable = maPageHtml.getElementsByTagName('table') 'objet type table
Set maTable = Htable(0) 'premier tableau dans la page Web

MsgBox maTable.Rows(0).Cells(0).innerText & _
vbLf & vbLf & maTable.Rows(2).Cells(1).innerText
End Sub



bonne soirée
MichelXld

Message édité par: MichelXld, à: 09/08/2005 22:01
 

Discussions similaires

Statistiques des forums

Discussions
312 875
Messages
2 093 148
Membres
105 641
dernier inscrit
Naoel