Discussion :

[chyanon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim lpBuff As String * 25
Dim ret As Long
 
ret = GetUserName(lpBuff, 25)
Me.TextBox5.Value = lpBuff

Merci

[babaothe]

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 !

[mercatog]

Ceci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[babaothe]

salut mercatog

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
  MsgBox Environ$("UserName")
End Sub

[chyanon]

Merci à vous babaothe et mercatog,

Effectivement, c'est ça que je cherchais !

Merci