Microsoft 365 Initiales du Username

[Claudy]

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

 

[Staple1600]

Re

Tu as le nom du PC en bonus
On peut rajouter un Split (sans la banane)
Pardon, j'ai pas pu m'empêcher

 

[Staple1600]

Re

Ce qui donnerait

Sub testB_ok()
Dim tmp$
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer In colComputer
tmp = objComputer.UserName
Next
MsgBox "User Name: " & Split(tmp, "\")(1), vbExclamation, "I know who you are, Baby!"
End Sub

PS: je sais que ton code fonctionnera demain quand je serai au boulot (car connecté sur un domaine)

 

[Bernard_XLD]

car connecté sur un domaine

merci, j'avais compris d'où

j'ai souvent eu des problèmes en entreprise ou chez des particuliers avec Environ("UserName")

si tu avais lié ton compte local à un compte krosoft, cela aurait fonctionné

 

[Staple1600]

Re

si tu avais lié ton compte local à un compte krosoft, cela aurait fonctionné

C'est surtout ce que je ne veux pas faire.
Je n'utilise mon compte Microsoft que pour Office.
(et uniquement pour son installation)
Et me logue en local sur mon PC.

 

[Bernard_XLD]

pour ma part, après avoir passé mes seven en 10 gratuitement, j'ai lié tous mes ordis à mon compte krosoft pour récupérer les licences windows 10 numériques valables à vie. Remarques, j'aurai pu ensuite supprimer la connexion et repasser en compte local mais j'aime bien le report de mes paramétres sur tous mes ordis !