openoffice calc dans vb 6

**m_didi** · 29/08/2006, 22h24

Slt la compagnie
Voilà j'ai un pb . je voudrais ouvrir une feuille calc openoffice avec vb.
Voilà mon prog

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim serviceManager As Object
    Dim Desktop As Object, Document As Object
    Dim Fichier As String
    Dim args()
 
    'Bien respecter les Slashs /
    Fichier = "file:///C:/Documents and settings/mon nom/mes documents/lieu/nom du fichier.odt"
 
    'Création d'une instance Open Office
    Set serviceManager = CreateObject("com.sun.star.serviceManager")
    Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop")
 
   'Ouverture du fichier
    Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, args)

Auriez -vous une idée

**SfJ5Rpw8** · 29/08/2006, 22h37

j'ai essayé ton code il fonctionne... est tu sur du nom de fichier..? si c'est un "calc" .. l'extension est .ods pas .odt

tiens de la lecture pour le pilotage d'open office.. :
Piloter OpenOffice en VBA

**m_didi** · 29/08/2006, 23h03

oui j'ai écris correctement le nom du fichier. J'ai changé odt par ods. J'ai renommé mon fichier par un nom tout simple Blanc mais je n'ai rien obtenu, il me marque incorrect à l'extérieur de la procédure. J'ai écris ceci:
Fichier = "file:///C:/Documents and settings/monprénom monnom/mes documents/stage/blanc.ods"
Je sais pas pourquoi y bug.
Enfin merci pour ton aide

**SfJ5Rpw8** · 29/08/2006, 23h10

et ton fichier il s'ouvre bien dans open office...?
essai aussi de déplacer provisoirement ton fichier dans un répertoire "plus court" par exemple sous c:\
et ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part