chemin d'accés du bureau suivant utilisateur

  • Initiateur de la discussion Initiateur de la discussion Guigui
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guigui

XLDnaute Occasionnel
Bonjour le forum,

j'ai dans un code la ligne ci dessous :

Const CHEMIN As String = "C:\Documents and Settings\toto\Bureau\tempo_pmo.jpg"

Mon probleme est le suivant :

Comment modifier ce code pour le "toto" soit remplacé par le "username" de la session windows utilisé.
En effet, je souhaiterais que ce chemin (qui sert à enregistrer temporairement une image) designe le bureau mais forcement le chemin d'accés est different suivant l'utilisateur du PC (sessions windows differentes)

Si tata utilise le fichier, que le chemin soit : "C:\Documents and Settings\TATA\Bureau\tempo_pmo.jpg"
Si toto ouvre sa session, que le chemin désigne : "C:\Documents and Settings\TOTO\Bureau\tempo_pmo.jpg"

Jai pensé a inserer un "Environ("UserName")" pour determiner justement le TOTO ou TATA, mais bug en retour.

Merci d'avance pour vos lumieres et astuce

Slts
Guillaume
 
Re : chemin d'accés du bureau suivant utilisateur

Bonjour,
je pense que c'est parce que le chemin est défini en constante (Const) remplace par
Code:
dim chemin ,utilisateur as string
utilisateur=Environ("username")
chemin="C:\Documents and Settings\" & utilisateur & "\Bureau\tempo_pmo.jpg"
A+
 
Dernière édition:
Re : chemin d'accés du bureau suivant utilisateur

Bonjour Guillaume,

ci-dessous une code qui te retourne le chemin du bureau de l'utilisateur, si cela peut t'aider... :

Code:
Dim chemin As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")

bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour