Recherche & référence User_FullName, trouver l'utilisateur

[Bernard_XLD]

Bonjour

Une petite fonction, pour Windows uniquement, récupérant les noms et prénoms de l'utilisateur quand ceux ci sont renseignés au niveau système, quasiment toujours le cas en entreprise.
Par défaut, renvoie le nom d'utilisateur domaine puis, par défaut, renvoie le nom d'utilisateur environnement puis, par défaut, renvoie le nom d'ordinateur
Pratique pour la rédaction de mails automatisés avec signature.
Fonctionne pour vba et formule (PC uniquement)

Bien cordialement, @+

Function User_FullName$(Optional Evite_Alerte$ = "") 'le paramètre optional non utilisé évite d'avoir le message d'alerte de fonction sans paramètre dans une feuille
    'Fonction Trouver_Utilisateur V1.2 By Bernard_XLD, Excel toutes versions (sauf Mac)
    'renvoie le nom et prénom (UserFullName) de l'utilisateur, par défaut le Nom d'utilisateur (UserName), par défaut le nom de l'ordinateur (ComputerName)
    Dim ObjectUserAccount As Object
    On Error Resume Next
    Set ObjectUserAccount = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2:Win32_UserAccount.Domain='" & _
        Environ("userdomain") & "',Name='" & Environ("username") & "'")  'récupération du compte utilisateur en cours
    If Not Error And Not ObjectUserAccount.FullName = "" Then _
        User_FullName = ObjectUserAccount.FullName Else _
        User_FullName = IIf(Environ("username") = "", Environ("computername"), Environ("username"))
End Function

Sub Test_User_FullName()
MsgBox User_FullName, vbOKOnly + vbInformation
End Sub