Bonjour
Voici une nouvelle question envoyée à l'aide du formulaire de demande d'aide (http://fr.libreoffice.org/get-help/poser-une-question/).
Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de votre logiciel de courrier électronique de façon que le demandeur reçoive une copie de votre réponse.
Email:: jeanmichel.noel@yahoo.fr
Sujet:: Récuperation de donnée dans une page HTML
OS:: Windows 10
Version:: 5.4.x
Question:: Bonjour,
je souhaite remplir des cellules dans CALC avec les données d'un tableau sur un site Internet.
Voici un extrait de mon code:
Sub ouverture_Html()
Dim oObj, oPageHtml, oNavigateur, oElem As Object
oObj = createUnoService( "com.sun.star.bridge.OleObjectFactory" )
oNavigateur = oObj.createInstance( "InternetExplorer.Application.1" )
oNavigateur.visible = false
oNavigateur.navigate( "{adresse}.html" )
Wait_Chargement( oNavigateur )
oPageHtml = oNavigateur.document
oElem = oPageHtml.all
…{traitement des données}
End Sub
Sub Wait_Chargement(oIE As Object)
Do Until oIE.readyState = 4
wait(1000)
Loop
End Sub
Je me heurte à une erreur sur "readyState".
Merci de votre soutien.
Cordialement.