Salut,
essaye ce code, trouver sur le site web d'un des intervenants du forum dont j'ai malheureusement oublié le nom :
'Ceci dans la partie déclaration du module
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long 'Windows API function
'Jusqu'ici
Function CurrentUserName() As String
Dim sBuffer As String * 25, lReturn As Long
lReturn = GetUserName(sBuffer, 25)
CurrentUserName = Left$(sBuffer, InStr(sBuffer, Chr(0)) - 1)
CurrentUserName = LCase(CurrentUserName)
End Function
Sub LoginUser()
Dim sUserName As String
sUserName = CurrentUserName()
MsgBox sUserName
End Sub
Michael