Dim objAD As Object
Dim objUser As Object
Set objAD = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objAD.UserName)
MsgBox objUser.DisplayName
Re : Ouvrir un fichier Excel en fonction de l'Username
Si tu utilises un "active directory"
Code:Dim objAD As Object Dim objUser As Object Set objAD = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objAD.UserName) MsgBox objUser.DisplayName