7 messages in org.openoffice.fr.progRe: [prog] Changement de comportement...
FromSent OnAttachments
fabs...@wanadoo.frMay 21, 2009 12:51 am 
Francois GattoMay 21, 2009 11:06 am 
fabs...@wanadoo.frMay 23, 2009 7:14 am 
Didier Dorange-PattoretMay 24, 2009 12:29 am 
Francois GattoMay 24, 2009 8:31 am 
fabs...@wanadoo.frMay 25, 2009 4:59 am 
Laurent GodardMay 25, 2009 5:32 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Changement de comportement dans OOo3.1Actions...
From:Didier Dorange-Pattoret (ddor@dmaths.com)
Date:May 24, 2009 12:29:48 am
List:org.openoffice.fr.prog

Bonjour,

fabs@wanadoo.fr a écrit :

Quelqu'un sait-il comment récupérer la version d'OOo par code pour contourner le problème?

Fabien.

Function OOoNumVersion() As Integer 'Retreives the running OOO version Dim aSettings, aConfigProvider Dim aParams2(0) As new com.sun.star.beans.PropertyValue Dim sProvider$, sAccess$ sProvider = "com.sun.star.configuration.ConfigurationProvider" sAccess = "com.sun.star.configuration.ConfigurationAccess" aConfigProvider = createUnoService(sProvider) aParams2(0).Name = "nodepath" aParams2(0).Value = "/org.openoffice.Setup/Product" aSettings = aConfigProvider.createInstanceWithArguments(sAccess, aParams2()) If aSettings.hasbyname("ooSetupVersionAboutBox") Then sOOOVersion = aSettings.getbyname("ooSetupVersionAboutBox") Else sOOOVersion = aSettings.getbyname("ooSetupVersion") EndIf If Len(sOOOVersion) = 3 Then sOOOVersion = sOOOVersion & ".0" OOoNumVersion = Cint(Mid(sOOOVersion,1,1))*100 + Cint(Mid(sOOOVersion,3,1))*10 + Cint(Mid(sOOOVersion,5,1)) End Function

Cette fonction peut convenir.

-- Didier Dorange-Pattoret

http://www.dmaths.org http://sesamath.net

Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre
établissement ! http://www.dmaths.org/documentation/doku.php?id=presentation:club