Re: [fr-users] Numéro version LO

Bonjour Jean-François,

Effectivement je n'avais pas précisé le module mais dans ma tête quand 
je pense "document" c'est Writer. (désolé)

J'avais fini par trouver une macro, mais la tienne me semble beaucoup 
plus simple.

Merci beaucoup
Patrick




Le 08/09/2024 à 11:49, Jean-Francois Nifenecker a écrit :
> Bonjour Patrick,
>
> tu ne précises pas de quel type de document tu parles : Calc ? Writer 
> ? autre ?
>
> Donc, par macro on interroge le registre de LibO :
>
> 8< -----------------------------------------------------
> Function GetLibreOfficeVersion() As String
>
>     Dim lo_ProdNameAccess As Object
>     Dim l_Ver As String
>
>     GlobalScope.BasicLibraries.LoadLibrary("Tools")
>
>     lo_ProdNameAccess = 
> Tools.GetRegistryKeyContent("org.openoffice.Setup/Product")
>
>     l_Ver = lo_ProdNameAccess.getByName("ooSetupVersion")
>
>     GetLibreOfficeVersion = l_Ver
> End Function 'GetLibreOfficeVersion
> ----------------------------------------------------- >8
>
> Retourne "24.8" par exemple.
>
> Tu peux poser cette macro dans la bibliothèque Standard de Mes macros, 
> de façon qu'elle soit toujours accessible de tous les modules LibO.
> Par exemple, tu peux l'utiliser dans une formule Calc :
> = GETLIBREOFFICEVERSION()
>
>
> Bon week-end.

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy