identifiant window dans textbox

Bonjour à tous,

A l'ouverture d'un userform, je souhaite mettre l'identifiant window dans une textbox.

Avez-vous une idée du code ?

J'ai essayé ce genre de chose mais sans succé

Code:

---

1 2 3 4 5 6

Dim lpBuff As String * 25 Dim ret As Long   ret = GetUserName(lpBuff, 25) Me.TextBox5.Value = lpBuff

---

Merci

salut

et c'est quoi, GetUserName ?
- une fonction ?
- une procédure ?
- personnelle ?
- et avec quel code ?
- à moins que ce ne soit une fonction de l'Api de Windows ? Et déclarée comment, alors ?
etc...
Ta question reste floue, comme tu le vois !

Ceci fonctionne

Code:

---

1 2 3 4 5 6 7 8 9

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal utilisateur As String, taille As Long) As Long   Private Sub UserForm_Initialize() Dim lpBuff As String * 25 Dim ret As Long   ret = GetUserName(lpBuff, 25) Me.TextBox1.Value = lpBuff End Sub

---

salut mercatog

si ce n'est que cela : VBA a déjà ce qu'il faut !

Code:

---

1 2 3

Private Sub UserForm_Initialize() MsgBox Environ$("UserName") End Sub

---

Merci à vous babaothe et mercatog,

Effectivement, c'est ça que je cherchais !

Merci :ccool: