Date: prev next · Thread: first prev next last
2018 Archives by date, by thread · List index


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. 


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.