[fr-qa] Pour les pros du basic : fdo#70949

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 à qa+unsubscribe@fr.libreoffice.org 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