jannoman
Messages postés256Date d'inscriptionjeudi 17 avril 2003StatutMembreDernière intervention20 février 2008
-
10 mars 2006 à 13:55
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 2008
-
10 mars 2006 à 17:33
Bonjour !
J'aimerai savoir comment ouvrir un tableur open office depuis VB. (je sais faire depuis excel, mais avec open office on trouve rien sur internet)
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 200832 10 mars 2006 à 17:33
bonjour
j'espere que ces 2 exemples pourront t'aider
Sub ouvrirTableurExistant()
Dim ServiceManager As Object
Dim Desktop As Object, Document As Object
Dim Fichier As String
Dim args()
Fichier = "[file:///C:/Documents file:///C:/Documents] and Settings/michel/dossier/monTableur.ods"
Set ServiceManager = CreateObject("com.sun.star.ServiceManager")
Set Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop")
Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, args)
End Sub
Sub creerNouveauTableurOOo()
Dim oServiceManager As Object
Dim Desktop As Object, Document As Object
Dim args()
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set Desktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
Set Document = Desktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
End Sub