Session Windows dans TextBox

[biloute91]

Bonjour à tout le monde,

J'ai recherché et trouvé un code permettant de connaitre la personne en session windows Msgbox Environ("UserName").
Toutefois je souhaiterais que le resultat s'affiche dans une TextBox.

Est-ce possible ?

Merci de votre aide

 

[RENAUDER]

Re : Session Windows dans TextBox

Bonjour,

Me.TextBox1.Text = Environ("UserName")

 

[Pierrot93]

Re : Session Windows dans TextBox

Bonjour biloute

essaye le code ci dessous :

TextBox1.Value = Environ("UserName")

bonne fin d'après midi
@+

 

[biloute91]

Re : Session Windows dans TextBox

Merci à tous les deux ,cela marche.

Super!!!

 

[biloute91]

Re : Session Windows dans TextBox / Bouton visible

Oui c'est encore moi,

voila dans un USF, j'ai un bouton qui me permet d'obtenir la personne en session windows.(grâce à Pierrot et Renauder,encore merci)
Cette valeur est affichée dans une textbox et en fonction de la valeur je voudrais qu'un autre bouton soit visible :
Voici mon bout de code
Private Sub CommandButton12_Click()
TextBox24.Value = Environ("UserName")
If TextBox24.Value = Sheets("Feuil1").Range("A1:A20").Value Then
CommandButton8.Visible = True
Else: CommandButton8.Visible = False
End If
End Sub

En fait la liste des utilisateurs est dans la colonne A de la Feuil1 et seuls ceux qui sont présents auront accès à ce bouton
Quelqu'un peut-il me dire où je me trompe

Merci pour votre aide

 

[Cousinhub]

Re : Session Windows dans TextBox

Bonsoir,
peut-être avec ce code (à adapter au niveau des objets (Textbox et commandbutton)) :

Private Sub UserForm_Initialize()
Me.TextBox1 = Environ("username")
CommandButton1.Visible = IIf(Not IsError(Application.Match(Me.TextBox1, _
    Range("A1:A" & [A65000].End(xlUp).Row), 0)), True, False)
End Sub

 

[biloute91]

Re : Session Windows dans TextBox

Bonjour Bhbh,

merci pour ta réponse mais cela ne fonctionne pas . L'utilisateur session est bien repris mais le bouton de command n'apparait pas. J'ai oublié de préciser que le USF n'est pas dans la même Feuille.
Je continue de chercher .

Merci

 

[Staple1600]

Re : Session Windows dans TextBox

Bonjour


le code de bhbh fonctionne je viens de tester

(sauf que sous Excel 2000, j'ai du tester avec
Me.TextBox1.Text = Application.UserName)

 

[Cousinhub]

Re : Session Windows dans TextBox

Re-,
bonsoir staple, et merci...😉
si la feuille active n'est pas celle contenant tes autorisations

Private Sub UserForm_Initialize()
Me.TextBox1 = Environ("username")
CommandButton1.Visible = IIf(Not IsError(Application.Match(Me.TextBox1, _
    Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").[A65000].End(xlUp).Row), 0)), True, False)
End Sub

A adapter.....

 

[Cousinhub]

Re : Session Windows dans TextBox

Re-,
et PS,
pas besoin de Textbox :

Private Sub UserForm_Initialize()
CommandButton1.Visible = IIf(Not IsError(Application.Match(Environ("username"), _
    Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").[A65000].End(xlUp).Row), 0)), True, False)
End Sub

 

[biloute91]

Re : Session Windows dans TextBox

Bonjour Stapple,

oui effectivement ce la marche mais si le nom de l'utilisateur est dans la même feuil que l'USF. Dans mon cas, la liste est dans une autre feuille. Peut-être est-il plus simple dans ce cas de la mettre dans la meme feuille.
Qu'en pensez-vous ?

 

[biloute91]

Re : Session Windows dans TextBox

Bonjour bhbh,

désolé je n'avais pas vu que tu avais repondu avant mon dernier post.
J'essaye ce matin et te tiens au courant

A+

 

[biloute91]

Re : Session Windows dans TextBox

Je viens d'essayer :

si j'utilise Private Sub UserForm_Initialize()
Me.TextBox1 = Environ("username")
CommandButton1.Visible = IIf(Not IsError(Application.Match(Me.TextBox1, _
Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").[A65000].End(xlUp).Row), 0)), True, False)
End Sub
cela ne fonctionne pas mais si j'utilise :

Private Sub UserForm_Initialize()
Me.TextBox1 = Application.UserName
CommandButton1.Visible = IIf(Not IsError(Application.Match(Me.TextBox1, _
Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").[A65000].End(xlUp).Row), 0)), True, False)
End Sub
cela fonctionne sauf que Application.UserName me donne le nom de l'utilisateur d'Excel alors que je souhaite bien le user Windows.

 

[Staple1600]

Re : Session Windows dans TextBox

Bonjour


Quelle est ta version de Windows?

En testant le code ci-dessous tu obtiens quoi?

EDITION:

 'Makes sure all variables are dimensioned in each subroutine.
'SOURCE:
'http://support.microsoft.com/kb/152970/fr
'/////////////////////////////////////////
     Option Explicit

     ' 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 Dimension variables, retrieve user name
     ' and display answer.
     Sub Get_User_Name()

     ' Dimension variables
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String

     ' Get the user name minus any trailing spaces found in the name.
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

     ' Display the User Name
     'MsgBox UserName
     
     'ajout
        '1
        MsgBox UserName, vbInformation, "GetUserName"
        '2
        MsgBox Application.UserName, vbInformation, "Application.UserName"
     End Sub

 

[biloute91]

Re : Session Windows dans TextBox

bonjour Stapple,

Il s'agit de Windows XP Pro - SR6 Pack 2 et Excel 2002 sur reseau entreprise