Microsoft 365 Initiales du Username

[Claudy]

Bonjour,
en VBA comment récupérer les initiales d'un username?
Merci,
Claudy

 

[sylvanu]

Bonjour Claudy,
En utilisant :

NomUserName = Environ("UserName")

mais pas d'initiales, uniquement le username complet.

 

[Bernard_XLD]

Bonjour Claudy, le forum

Voila un code qui te fera cela !

Cordialement

Sub Test()
MsgBox Initiales_Utilisateur, vbOKOnly + vbInformation
End Sub
Function Initiales_Utilisateur$()
    Dim Compte_Utilisateur As Object, Chaine_Test$
    On Error Resume Next
    Set Compte_Utilisateur = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2:Win32_UserAccount.Domain='" & Environ("userdomain") & "',Name='" & Environ("username") & "'")
    If Err = 0 Then
            Chaine_Test = Left(Compte_Utilisateur.FullName, 1)
            If InStr(1, Compte_Utilisateur.FullName, " ") > 0 Then Chaine_Test = Chaine_Test & Mid(Compte_Utilisateur.FullName, InStr(1, Compte_Utilisateur.FullName, " ") + 1, 1)
            Initiales_Utilisateur = UCase(Chaine_Test)
        Else
            Initiales_Utilisateur = "Utilisateur inconnu"
        End If
End Function

 

[Claudy]

Bonsoir à vous deux,
Merci ça roule,
Claudy

 

[soan]

Bonjour Claudy, le fil,

je propose ce code VBA :

Sub Essai()
  Dim T, s$, i As Byte
  T = Split(UCase$(Application.UserName), " ")
  For i = 0 To UBound(T): s = s & Left$(T(i), 1): Next i
  MsgBox s
End Sub

soan