Session Windows dans TextBox

Staple1600

XLDnaute Barbatruc

• 8 Avril 2008

• #16

Re : Session Windows dans TextBox

Re


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

 

Vote positif 0 Vote négatif

B

biloute91

XLDnaute Occasionnel

• 8 Avril 2008

• #17

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Avril 2008

• #18

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)

 

Vote positif 0 Vote négatif

B

biloute91

XLDnaute Occasionnel

• 8 Avril 2008

• #19

Re : Session Windows dans TextBox

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

Désolé de ne pas avoir compris ta question

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Avril 2008

• #20

Re : Session Windows dans TextBox

Re



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

Code:

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

 

Dernière édition: 8 Avril 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Avril 2008

• #21

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 :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

B

biloute91

XLDnaute Occasionnel

• 8 Avril 2008

• #22

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.

 

Pièces jointes

• test.zip

  38.4 KB · Affichages: 17
• test.zip

  38.4 KB · Affichages: 16
• test.zip

  38.4 KB · Affichages: 15

Vote positif 0 Vote négatif