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

1
2
 
Fichier = "file:///C:/blanc.ods"

histoire de "disculper" les erreurs possibles sur nom de fichier..

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

non tjs pas. Peut-être devrais-je déclarer le fichier.

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

Envoyé par bbil

et ton fichier il s'ouvre bien dans open office...?
..

**SilkyRoad** · 29/08/2006, 23h20

bonsoir

que veux tu dire par

il me marque incorrect à l'extérieur de la procédure

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

oui il s'ouvre bien avec OOo

et j'entends par incorrect à l'extérieur de la procédure c'est lorsque je lance le programme vb m'indique ce message.

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

Envoyé par m_didi

oui il s'ouvre bien avec OOo

et j'entends par incorrect à l'extérieur de la procédure c'est lorsque je lance le programme vb m'indique ce message.

sur quelle ligne.. c'est vrai que tu ne nous montre pas toute la procédure .. l'on voit pas les Sub / End Sub

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

voilà tout le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
  Dim serviceManager As Object
    Dim Desktop As Object, Document As Object
    Dim Fichier As String
    Dim args()
 
    'Bien respecter les Slashs /
    Fichier = "file:///C:/blanc.ods"
 
    '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)
 
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
Dim today As Date
Lbl_timer.Caption = Format$(Date, "dddd dd mmmm yyyy")
Lbl_timer.Caption = UCase(Left(Lbl_timer.Caption, 1)) & Right(Lbl_timer.Caption, Len(Lbl_timer.Caption) - 1)
Lbl_timer.Caption = Lbl_timer.Caption & " " & " " & Format$(Time, " - hh:mm:ss")
 
End Sub