[Résolu] [Basic] Accès aux options de configuration

[PW]

je voudrais accéder avec une macro OOBasic aux options générales de OOo, notamment les chemins par défaut.
je cherche la façon de le faire. Dans VBA (MSOffice) c'est relativement simple avec la méthode Word.Options.DefaultFilePath.
y a-t-il un équivalent dans OOo ?

merci de vos conseils

[Pierre-Yves Samyn]

Bonjour et bienvenue

Code : Tout sélectionner

option explicit

sub PysMontrerChemin
msgbox PysChemin("Template")
end sub

function PysChemin(PysType as string)
Dim PysInstall as Object
Dim PysTrav as String

PysInstall  = CreateUnoService("com.sun.star.util.PathSettings")
select case PysType
    case "Template"
        PysTrav=PysInstall.Template
    case "AutoText"
        PysTrav=PysInstall.AutoText
    case "Backup"
        PysTrav=PysInstall.Backup
    case else
        PysTrav="erreur param"
end select

PysChemin =PysTrav

end function 

[PW]

Merci Pierre-Yves

je débute avec OOO.
Ce conseil me permet de mieux comprendre comment fonctionne OOO.

j'en déduit que c'est avec des objets du type "com.sun.star.*" que l'on peut accéder à diverses propriétes notamment d'application.