[Résolu] Obtenir le chemin de "Mes documents"

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Kris74
NOOuvel adepte
NOOuvel adepte
Messages : 11
Inscription : 24 avr. 2007 08:40
Localisation : 74

[Résolu] Obtenir le chemin de "Mes documents"

Message par Kris74 »

Bonjour,

Est-il possible d'obtenir le chemin de "Mes documents" enregistré sous le menu Outils -> Options ->OpenOffice.Org -> Chemins -> Mes documents?

Je sais qu'il est possible d'obtenir les infos sur l'utilisateur, la version d'OpenOffice, ...

Si quelqu'un a eu idée, elle est la bienvenue. Merci :)

Voici une capture écran de ce que je cherche à obtenir :

Image

C'est le chemin de la ligne surlignée qui m'intéresse.

Merci à tous
Dernière modification par Kris74 le 30 avr. 2007 09:01, modifié 1 fois.
Open Office 3.1.0 - Windows XP
Pierre-Yves Samyn
Grand Maître de l'OOffice
Grand Maître de l'OOffice
Messages : 11276
Inscription : 02 mai 2006 08:42

Message par Pierre-Yves Samyn »

Bonjour

Cette question est déjà passée, cf. http://user.services.openoffice.org/fr/ ... tings.html

Ci-dessous le code modifié pour inclure le chemin "mes documents" :

Code : Tout sélectionner


sub PysMontrerChemin
msgbox PysChemin("Work")
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 "Work"
        PysTrav=PysInstall.Work
    case else
        PysTrav="erreur param"
end select

PysChemin =PysTrav

end function
Kris74
NOOuvel adepte
NOOuvel adepte
Messages : 11
Inscription : 24 avr. 2007 08:40
Localisation : 74

Message par Kris74 »

Merci Pierre-Yves pour cette solution "ultra rapide" comme d'habitude.

J'ai du mal effectuer ma recherche car je n'avais pas trouvé le fil que vous m'avez proposez.

En tout cas merci beaucoup :D
Open Office 3.1.0 - Windows XP