Discussion :

[PascalROY]

Bonjour,

Ma boite semblerait vouloir tourner le dos à MS0 pour aller vers OOo. Je suis plutôt pour, mais avant de donner mon accord à ma hiérarchie, j'ai besoin de me rassurer.

En effet, mon job consiste (entre autres) à développer les logiciels de gestion de production et commerciale en interne. Dans ces logiciels (développés avec Windev) j'utilise souvent comme support d'entrée ou de sortie des documents MSo (Excel et Word).
Je sais que OLE existe pour OOo mais est très différent de celui de MSo. Avec Word ou Excel j'enregistre des macros de ce que je veux faire, et puis je les traduits en langage Windev ( une fois les constantes trouvées, c'est très simple). J'ai essayé de voir comment OOo se comporte mais c'est beaucoup plus ardu ! Et les macros générées sont obscures et pas clair.
Je recherche donc un guide (le plus complet possible) sur les possibilités OLE de OOo et les moyens de les mettre en œuvre.

Si quelqu'un à ça sous la main (un PDF, un code ...) je suis preneur, merci !

[rberthou]

Un tout petit exemple :

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
28
29
30
31
32
33
34
 
Sub callOpenOffice( NomduFichier As String)
	Dim objServiceManager As Variant
	Dim objCoreReflection As Variant
	Dim  objDesktop  As Variant
	Dim   objDocument  As Variant
	Dim  	objSheet  As Variant
	Dim  	Cell  As Variant
 
'The service manager is always the starting point
'If there is no office running then an office is started up
	Set objServiceManager= CreateObject("com.sun.star.ServiceManager")
 
' Create the Desktop
	Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
 
'Open a new empty writer document
	Dim args()	
	Set objDocument = objDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
 
	Set objSheet = objDocument.Sheets.getByIndex(0)
 
	Dim J As Integer
	J = 0
 
	Do While (J<10 )
		Set Cell = objSheet.getCellByPosition(0, J)
		Cell.String = "Cell " & Cstr(J)
		Set Cell = objSheet.getCellByPosition(1, J)
		Cell.Value = 110
		J = J  + 1
	Loop
 
End Sub

[PascalROY]

Merci rberthou,

C'est tout à fait le genre de code que j'arrive à traduire en Windev.
Et c'est ce qu'il me faudrait mais pour réaliser beaucoup de choses.

Et ma question, mal posée, c'est comment/où je peux trouver la doc qui me permet de piloter OOo par OLE ?

[rberthou]

regarde du coté de UNO

http://wiki.services.openoffice.org/wiki/Uno/OLE

[PascalROY]

Merci pour le lien, mais il n'y a pas grand chose.

Je me demande s'il existe des livres sur le pilotage d'OOo par une application tierce sous Windows !