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:: [email protected] 
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. 


-- 
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à 
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy

Répondre à