NomUserName = Environ("UserName")
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
Sub a()
MsgBox Application.UserName
End Sub
Sub Initiales()
CallMe = "Debbie Harry"
Initiales_BB = Left(Split(CallMe)(0), 1) & Left(Split(CallMe)(1), 1)
MsgBox UCase(Initiales_BB)
End Sub
@Staple1600 , tu as essayé cette fonction ?Personnellement, il n'y pas d'espace dans mon Username
Sub Test()
MsgBox Trouver_Utilisateur
End Sub
Function Trouver_Utilisateur$()
Dim Compte_Utilisateur As Object
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 Trouver_Utilisateur = Compte_Utilisateur.FullName Else Trouver_Utilisateur = "Utilisateur inconnu"
End Function
' Access the GetUserNameA function in advapi32.dll and
' call the function GetUserName.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
' Main routine to retrieve user name.
Function GetLogonName() As String
' Dimension variables
Dim lpBuff As String * 255
Dim ret As Long
' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 255)
If ret > 0 Then
GetLogonName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
Else
GetLogonName = vbNullString
End If
End Function
Sub Quivala()
MsgBox GetLogonName
End Sub
l'info est présente puisque pas d'erreur mais la chaine renvoyée est vide, doncTon code ne fonctionne pas en ma demeure.
Ou plutôt, il affiche un MsgBox qui dit que je suis personne.
Il ne ne dit même pas ce que je suis un utilisateur inconnu!
Sub test_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 = "User Name = " & objComputer.UserName
tmp = objComputer.UserName
Next
MsgBox tmp, vbExclamation, "I know who you are, Baby!"
End Sub
mais moi je ne sais plus ! [enfin, plus qui je suis vraiment !]Là de nouveau, je sais qui je suis