Private Declare Function GetUserName Lib 'advapi32.dll' Alias 'GetUserNameA' _
(ByVal lpBuffer As String, nSize As Long) As Long
Sub nomUtilisateur()
Dim lpBuff As String * 25
Dim ret As Long
ret = GetUserName(lpBuff, 25)
MsgBox Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Sub