Bonjour

merci francois ;)

à noter que depuis quelques temps (OOo 2.x iirc), on peut utiliser egalement "ooSetupVersionAboutBox" qui donne la version complete sur 3 chiffres

HTH

Laurent

function getVersionOOO() as string 'recupère version de OOo dim aSettings

aSettings = getConfigSetting("/org.openoffice.Setup/Product", false) getVersionOOO=aSettings.getbyname("ooSetupVersionAboutBox")

end function

function getConfigSetting(target as string, forUpdate as boolean) ' retourne le noeud de config demandé ' exemple: aSettings = getConfigSetting( "/org.openoffice.Office.Common/Path/Current", false)

dim service as String ' nom du service d'acces à la configuration dim aSettings, aConfigProvider dim aParams(0) As new com.sun.star.beans.PropertyValue

if forUpdate then service = "com.sun.star.configuration.ConfigurationUpdateAccess" else service = "com.sun.star.configuration.ConfigurationAccess" endif

aConfigProvider = createUnoService( "com.sun.star.configuration.ConfigurationProvider" ) aParams(0).Name = "nodepath" aParams(0).Value = target aSettings = aConfigProvider.createInstanceWithArguments(service, aParams() )

getConfigSetting = aSettings

end function