Le 30/01/2006 21:40, Pierre L. a écrit :
Je débute avec Ooo, mais je connais assez bien VBA de chez M$, donc j'ai
recherché dans l'aide du basic de Ooo et j'ai trouvé une procédure qui
renvoie un n° de version, pour moi sur ma machine (Xp-pro) et Ooo 2.0.1
ça renvoie : 680 alors que la manip Alt + SDT : 680m1(build:8990) =>
GetSolarVersion est insuffisant
Une recherche sur cette instruction m'a renvoyé vers :
http://fr.openoffice.org/Documentation/Guides/Andrew5.sxw
et au paragraph 5.6.2 Version de OOo on lit :
Malheureusement la fonction GetSolarVersion a tendance à ne pas changer,
même lorsque la version de OOo change. La version 1.0.3.1 renvoie “641”
et la 1.1RC3 renvoie 645, mais ceci ne suffit pas toujours pour donner
assez de précisions. La macro suivante renvoie la version actuelle de OOo.
suit une fonction que je ne sais pas pour le moment utiliser,
donc à suivre..
Bien cordialement
--
Pierre du 69
Je me répond ;-),
*************le code en question : une fonction
Function OOoVersion() As String
'récupère la version de OOo en cours d'exécution
'Auteur : Laurent Godard
'e-mail : [EMAIL PROTECTED]
'
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())
OOOVersion=aSettings.getbyname("ooSetupVersion")
End Function
****************** l'utilisation de la fonction
sub MaVersionOoo
msgbox OOoVersion()
end sub
et malheureusement ça donne 2.0 comme résultat ;-(
à creuser ....
Re
--
Pierre du 69
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
