Discussion :

[shaftJackson]

Salut,

J'ai une appli qui gère des documents Excel MSOffice. Cette appli doit être étendue pour pouvoir gérer des documents avec open office. Je cherche des indications pour avoir les équivalences excel en open office (gestion de classeur, etc), mais je sèche pas mal.
j'ai trouvé quelque chose ici : http://silkyroad.developpez.com/VBA/PiloterOpenOffice/
Mais c'est assez incomplèt par rapport à ce que je souhaite faire.
Quelqu'un s'aurait-il où trouver des informations pour pouvoir gérer des classeurs comme le fait excel (workbooks.add, workbook.saveas, workbooks.count, ....)

Merci

[SilkyRoad]

bonjour

J'espere que ce lien ...assez incomplet...pourra t'aider...;o)

http://silkyroad.developpez.com/OOo/faq/FaqOpenOffice/


bonne journée
michel

[shaftJackson]

Merci pour ta réponse

Code :

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

1
2
3
4
5
6
7
8
 
	Dim Fichier As String
	Dim Wb As Object
	Dim Args()
 
	Fichier = "c:/temp/file.xls"
	Wb = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )
End Sub

J'ai vu le code ci-dessus dans une procédure existante. Mais ca ne lance pas calc
Ai-je oublié quelque chose ?
La création des instances est inutile ??

Merci !

[SilkyRoad]

Ai-je oublié quelque chose ?

Oui, tu as oublié une ligne, relit l'exemple de la FAQ ...

La création des instances est inutile ??

Je ne comprend pas ton message: Tu utilises bien cette macro dans Open Office?


michel

[Kokito]

C'est mieux comme ca :

Code :

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

1
2
3
4
5
6
7
 
'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)

[shaftJackson]

Mon post n'a peut-être pas été complet à la base.
J'avais utilisé l'exemple pour l'ouverture d'un document existant.
En fait je développe une appli en vb6. Les utilisateurs doivent pouvoir gérer aussi bien des document Excel que Calc via cette appli.

C'est plus clair ??

[Kokito]

Mon post n'a peut-être pas été complet à la base.
J'avais utilisé l'exemple pour l'ouverture d'un document existant.
En fait je développe une appli en vb6. Les utilisateurs doivent pouvoir gérer aussi bien des document Excel que Calc via cette appli.

C'est plus clair ??

C'est exactement ce sur quoi je suis en train de bosser

Pour l'instant j'en suis réduit à l'état de test (pour voir comment ca marche) mais voilà ce que je fais :

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
 
    Dim serviceManager As Object
    Dim Desktop As Object, Document As Object
    Dim args()
    Dim test As Object
    Dim test2 As Object
    Dim test3 As Object
    Dim test4 As String
 
    'Transformation du chemin pour l'ouvrir au format URL
    Fichier = "file:///" & Fichier
    Fichier = Replace(Fichier, "\", "/")
 
    '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)    
    Set test = Document.Sheets 
    Set test2 = test.getByName("Sheet1")  
    Set test3 = test2.getCellRangeByName("A10")
    test4 = test3.String

C'est juste pour récupérer la valeur d'une cellule.

J'utilise rien d'autres pour l'instant mais bon je continue à chercher d'autres fonctions intéressantes