Comment afficher le nom d'utilisateur actuel dans une cellule?
La plupart des ressources en ligne que je trouve me montrent généralement comment récupérer ces informations dans VBA. Existe-t-il un moyen direct d'obtenir cette information dans une cellule?
Par exemple, aussi simple que =ENVIRON('User') (qui n'a pas fonctionné)
Selon les instructions sur le lien ci-dessous, procédez comme suit.
Dans VBA, insérez un nouveau module et collez ce code:
Public Function UserName()
UserName = Environ$("UserName")
End Function
Appelez la fonction en utilisant la formule:
=Username()
Basé sur les instructions à:
Exemple: pour afficher le nom d'utilisateur Windows sur la cellule C5, vous pouvez utiliser ce script:
Range("C5").Value = ": " & Environ("USERNAME").
Le moyen le plus simple est de créer une macro VBA qui enveloppe cette fonction, comme suit:
Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function
Puis appelez-le depuis la cellule:
=UserNameWindows()
Voir cet article pour plus de détails et d’autres moyens.
Ceci affiche le nom de l'utilisateur actuel:
Function Username() As String
Username = Application.Username
End Function
La propriété Application.Username contient le nom entré lors de l'installation de MS Office.
Entrez cette formule dans une cellule:
=Username()
Sans macro VBA, vous pouvez utiliser ces astuces pour obtenir le nom d'utilisateur à partir du chemin:
=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))