Hello,
Moi j'utilise cette macro :
'récupère le nom de l'utilisateur courant Windows dans la variable ses_user
Function User_Name()
Dim S As String
Dim N As Long
Dim Res As Long
S = String$(200, 0)
N = 199
Res = GetUserName(S, N)
ses_user = Left(S, N - 1)
End Function
qui fonctionne dans toutes les versions de office et windows
(je crois que celle d'arnaud ne fonctionne pas sur NT ou un truc dans le genre)
@+