Discussion :

[Montor]

bonjour
ce code ne marche pas non ?

Code :

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

Nom = Application.Environ("USERNAME")

je utilise

Code :

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

1
2
3
4
5
Private Type Users
    name       As String * 255
End Type
 
Private Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" (dd As Users, ss As Long) As Boolean

[JackOuYA]

Bonsoir,

En VBA sous excel tu peu écrire tout simplement :

Code :

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

Nom =  Environ("USERNAME")

[fring]

Bonjour tlm,

En complément de ce qu'a dit Jack

Code :

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

1
2
MsgBox Application.UserName '<-- renvoie la propriété "auteur" du classeur
MsgBox Environ("username") '<-- renvoie le login de l'utilisateur du pc