A propos de ta question JB.
Je dirai que ce n'est pas un bug, ou alors il est entre l'écran et le fauteuil... ;-) (bon c'est vrai que c'est pas trop
documenté non plus)
Pour avoir la version exacte (4.1.3.2 au lieu de 4.1) maintenant,
il faut utiliser ooSetupVersionAboutBox comme ci-dessous à la place de
ooSetupVersion
Comme on le trouve partout sur le net
Ce n'est donc pas un bug mais une nouvelle fonctionnalité ... ;-)
Sub Main
Dim cfgProv As Object
Set cfgProv =
CreateUnoService("com.sun.star.configuration.ConfigurationProvider")
Dim arg1 as new "com.sun.star.beans.PropertyValue"
Dim args(1) as new "com.sun.star.beans.PropertyValue"
arg1.Name = "nodepath"
arg1.Value="/org.openoffice.Setup/Product"
args(0) = arg1
Dim cfgAccess As Object
Set cfgAccess =
cfgProv.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess",
args)
MsgBox cfgAccess.ooName & " version " & cfgAccess.ooSetupVersionAboutBox & ", provided by """ & cfgAccess.ooVendor
& """"
End Sub
--
Samuel MOUNIER
INFORMATICIEN (CGO)
--
Envoyez un mail à [email protected] pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/qa/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
