[Résolu][Basic]Connaître le numéro de version de LibreOffice

[gerardmarquer]

Bonjour à tous !!!

Comme je ne savais pas où publier ce fil, je le poste ici.
Et je suppose que le titre pourrait être plus précis.

Et si la question a déjà été posée et résolue sur ce Forum... désolé... j'ai pas trouvé !!!

Je voudrais pouvoir faire ça à la fois sous Windows et sous Linux

Sous Windows, j'ai bien une petite idée : Explorer les dossiers sous "Program Files (x86)" et rechercher un dossier dont le nom commence par "LibreOffice" et le n° de Version suit
Sous mon vieux Windows 7 piraté, je n'ai pas pu installer de version plus récente que LibreOffice 5.0 et le dossier d'installation de LibreOffice se nomme bien "LibreOffice 5"

Mais sous Kubuntu 18.04 ??? Mystère !!!

Je vous remercie de votre aide !!!

[Oukcha]

Bonjour,

Avec près de 80 messages au compteur, vous ne savez pas qu’une question sur les macros se pose en section Macro ?

si la question a déjà été posée et résolue sur ce Forum.

Il faut donc faire une recherche, avec par exemple le terme version : https://forum.openoffice.org/fr/forum/s ... =titleonly

Sujet déplacé en section Macros et API.

[Hubert Lambert]

Bonjour,

Ou mieux encore : chercher dans l'aide intégrée de basic, avec le même mot clé "version"... .
Cordialement.

[gerardmarquer]

Bonjour aux gentils sages qui ont bien voulu me répondre !!!

Oui, Maître Oukcha, après près de 80 messages postés, je me considère toujours comme un débutant un peu noeud-noeud et, à bientôt 74 balais, j'ai l'impression de devenir de plus en plus débutant !!!
En tous cas, merci d'avoir déplacé ce fil là où il convenait de le placer et d'avoir complété son balisage !!!

Maître Hubert, je suis tété voir dans l'aide du BASIC mais ...
Pour "Version", on me dit de choisir "Aide / A propos de LibreOffice"... ça me fait une belle jambe, hein ??? Anyway, je connaissais déjà ce truc archi-connu !!!
Sinon, les réponses ne concernent que la comparaison des différentes "Versions" d'un document.
Pour "LibreOffice", on ne parle que de "LibreOffice Math, démarrage"
Rien non plus pour "Hote", "Systeme", ni pour tout ce qui m'est passé par la tête de demander !!!

Quand à la jolie formule de recherche du mot "Version", uniquement dans les "Titres"des fils, elle fournit une liste de réponses d'une impressionnante vacuité !!!

Avant d'ouvrir ce fil, j'avais posé la question à Gougoule, bien sûr, sous plein de formes différentes mais je n'ai eu que des réponses inintéressantes
et j'avais également posé la question sur ce Forum sous plein de formes différentes également et encadrées de guillemets pour ne pas avoir les signatures des intervenants... que dalle !!!

[Piaf]

Bonjour

getProduct.png

Charger la bibliothèque et récupérer le résultat de la fonction.

Code : Tout sélectionner

   GlobalScope.BasicLibraries.LoadLibrary("Tools")
   MsgBox(GlobalScope.Tools.Misc.GetProductName(),0,"Utilisation de la bibliothèque Tools")

ou en Local

Code : Tout sélectionner

Function NomProduitL() as String
Dim oConfigProvider as Object, GetRegistryKeyContent as Object
Dim sProdName as String, sVersion as String
Dim aNodePath(0) as new com.sun.star.beans.PropertyValue
   oConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
   aNodePath(0).Name = "nodepath"
   aNodePath(0).Value = "org.openoffice.Setup/Product"
   GetRegistryKeyContent = oConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", aNodePath()) 
   sProdName = GetRegistryKeyContent.getByName("ooName")
   sVersion = GetRegistryKeyContent.getByName("ooSetupVersion")
   sversionApropos = GetRegistryKeyContent.getByName("ooSetupVersionAboutBox")
   NomProduitL ="Vous êtes sous : " & sProdName & " et la version est : " & sVersion & Chr(13) & "La version de À propos de Libre Office est " & sversionApropos
   MsgBox (NomProduitL,0,"Utilisation en local")
End Function

A+

[Hubert Lambert]

L'aide intégrée renvoie également vers la méthode basic dédiée GetSolarVersion .

[gerardmarquer]

Whaaaaaaahouououououh !!!

Quel luxe !!!!!!!

Merci à tous, infiniment !!!!

Et un merci tout particulier à Piaf qui a si souvent et si généreusement répondu avec infiniment de gentillesse, de simplicité, de clarté et d'efficacité à mes questions de béotien, même quand elles avaient parfois préalablement soulevé un tollé d'indignations diverses chez les Modérateurs !!!

Donc, je balise "Résolu" !!!