Recuperer le login de l'utilisateur connecté

jpb388

XLDnaute Accro

• 14 Juin 2013

• #2

Re : Recuperer le login de l'utilisateur connecté

Bonjour à tous
en lui posant la question à l'ouverture : Quel est ton nom ?

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 14 Juin 2013

• #3

Re : Recuperer le login de l'utilisateur connecté

Bonjour fdlb,

Tu peux afficher le nom d'utilisateur comme ceci:

Code:

MsgBox Application.UserName

ou l'affecter à une variable, du genre:

Code:

Nom_Utilisateur = Application.UserName

A +

Cordialement.

Edit : Bonjour jp.

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 14 Juin 2013

• #4

Re : Recuperer le login de l'utilisateur connecté

Bonjour,
Dans un module tu tapes :
Function login() As String
login = Application.UserName
End Function

et dans une cellule tu entres :
=login()
Et là tu as les infos de l'utilisateur 😱)

Bonne journée.

John

 

Vote positif 0 Vote négatif

john

XLDnaute Impliqué

• 14 Juin 2013

• #5

Re : Recuperer le login de l'utilisateur connecté

Ou cette solution pour avoir le vrai login !!!

Dans un module tu tapes ceci :

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Const NoError = 0

Function GetUserName()
Const lpnLength As Integer = 255
Dim status As Integer
Dim lpName, lpUserName As String
lpUserName = Space$(lpnLength + 1)
status = WNetGetUser(lpName, lpUserName, lpnLength)
If status = NoError Then
lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
Else
MsgBox "Impossible d'obtenir le login."
End
End If
GetUserName = lpUserName
End Function

Dans une cellule tu entres ceci :
=GetUserName()

John

 

Vote positif 0 Vote négatif

F

fdlb

Guest

• 14 Juin 2013

• #6

Re : Recuperer le login de l'utilisateur connecté

merci pour l'info

François

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 14 Juin 2013

• #7

Re : Recuperer le login de l'utilisateur connecté

re
je pensai qu'il parlai de différents utilisateurs et non du titulaire

je te renvoi le bonjour Papou-net

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Juin 2013

• #8

Re : Recuperer le login de l'utilisateur connecté

Bonjour,

pour récupéré l'utilisateur de la session windows :

Code:

MsgBox Environ("UserName")

bon après midi
@+

 

Vote positif 0 Vote négatif