Discussion :

[patricktoulon]

bonjour a tous

je voudrais savoir si il y a un moyen de trouver le nom utilisateur au demarage d'un userform

en effet j'ai un classeur que je met a jour journalierement
et dans un userform j'ai un bouton qui enregistre et ferme le classeur
le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Application.Visible = True
Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:="C:\Users\patrick\Desktop\Classeur14.xltm" _
                , FileFormat:=xlOpenXMLTemplateMacroEnabled, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close

ce code fonctionne tres bien mais je travail sur deux ordis differents (maison::boulo) et il n'ont pas le meme nom d'utilisateur et je voudrais enregistrer a chaque fois sur le bureau a la maison ou au boulo

''''''a la place de "C:\Users\patrick\Desktop\Classeur14"
''''y aurait -il pas un moyen de trouver le nom de l'user
''''comme par exemple:

''''nomutilisateur =system user ou quelque chose comme ca
'''''destination="C:\Users\" & nomutilisateur &"\Desktop\Classeur14"

[drakkar_agfa]

Bonjour,

Essais avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Dim sNom As String
 
    sNom = Application.UserName
 
    MsgBox "Bonjour " & sNom

Tu auras le nom de l'utilisateur!

[patricktoulon]

merci drakkar_agfa

impec!! ca marche

[kiki29]

Salut, attention
si nom donné lors de l'installation d'Office
"License d'utilisation accordée à :"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.UserName

si nom de login windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Environ("USERNAME")