Bonjour
voici un petit code (recolté sur ce forum il me semble bien) qui te recolte le nom de ton username
En lançant la macro à l'ouverture de ton classeur tu peux l'utiliser dans tes macros puisque déclaré public
Public UserName As String
Declare Function GetUserName Lib 'advapi32.dll' Alias 'GetUserNameA' _
(ByVal lpBuffer As String, nSize As Long) As Long
Sub Get_User_Name()
Dim lpBuff As String * 25
Dim ret As Long
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Sub