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

 

[Staple1600]

Re : Session Windows dans TextBox

Re


Tu as testé le code de mon précédent message?

 

[biloute91]

Re : Session Windows dans TextBox

Oui,

j'obtiens bien les utilisateurs Windows et Excel mais dans une Msg .
Ce que je souhaite en fai, c'est autoriser des CommandButton dans mon USF en fonction de la personne qui est en session Windows car l'utilsateur Excel est le même pour tout le monde puisqu'il s'agit de la licence de l'entreprise.

 

[Staple1600]

Re : Session Windows dans TextBox

Re

Oui je sais

Mais obtiens-tu le même nom dans les deux MsgBox ?

La première normalement c'est le nom de l'utilisateur de la session ouverte
le second c'est le nom utilisateur enregistré

(sauf erreur de ma part)

(PS: ce code n'est là que pour tester)

 

[biloute91]

Re : Session Windows dans TextBox

Oui 1ere MsgBox : session Windows
2ème MsgBox : utilisateur Excel

Désolé de ne pas avoir compris ta question

 

[Staple1600]

Re : Session Windows dans TextBox

Re



Donc en adaptant le code de bhbh, ca devrait le faire

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub UserForm_Initialize()
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
CommandButton1.Visible = IIf(Not IsError(Application.Match(UserName, _
    Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").[A65000].End(xlUp).Row), 0)), True, False)
End Sub

 

[Pierrot93]

Re : Session Windows dans TextBox

Bonjour à tous

raté quelques épisodes, mais pour renvoyé le nom de l'utilisateur windows dans une variable, le code ci dessous devrait suffire, enfin me semble t'il :

Dim x As String
x = Environ("username")

bon après midi
@+

 

[biloute91]

Re : Session Windows dans TextBox

J'ai essayé et cela ne fonctionne pas. Je joins mon fichier qui a été modifié pour des raisons de confidentialité. Veuillez m'excuser par avance sur mon ecriture mais je débute.