Changer le nom d'utilisateur avec VBA - Exemples de code VBA

Ce court tutoriel montrera comment utiliser la méthode Application.UserName.

Obtenir et modifier le nom d'utilisateur de l'application dans VBA

Obtenir le nom d'utilisateur

Vous pouvez utiliser Application.NomUtilisateur pour retourner ou définir le nom de l'utilisateur actuel. C'est le nom par défaut qui apparaît dans "macro enregistrée par", les nouveaux commentaires, "dernier enregistré par" etc…

Vous pouvez afficher le nom de l'utilisateur actuel dans une boîte de message comme celle-ci :

MsgBox "L'utilisateur actuel est " & Application.UserName

Changer le nom d'utilisateur

Vous pouvez modifier le nom d'utilisateur actuel comme ceci :

Application.UserName = "MonkeyCoder"

Si vous souhaitez savoir qui est l'auteur du classeur actuel, vous pouvez l'obtenir comme ceci :

UserNameAuthor = ThisWorkbook.BuiltinDocumentProperties("Auteur")

Vous pouvez également le modifier :

ThisWorkbook.BuiltinDocumentProperties("Auteur") = "C'est moi"

Le nom d'utilisateur Windows peut être obtenu comme ceci :

NomUtilisateurWindows = Environ("NomUtilisateur")

<