Recuperer le login de l'utilisateur connecté

[fdlb]

Bonjour,

je cherche à récupérer le login de la personne qui utilise le fichier excel.
merci pour votre aide

François

 

[jpb388]

Re : Recuperer le login de l'utilisateur connecté

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

 

[Papou-net]

Re : Recuperer le login de l'utilisateur connecté

Bonjour fdlb,

Tu peux afficher le nom d'utilisateur comme ceci:

MsgBox Application.UserName

ou l'affecter à une variable, du genre:

Nom_Utilisateur = Application.UserName

A +

Cordialement.

Edit : Bonjour jp.

 

[john]

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

 

[john]

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

 

[fdlb]

Re : Recuperer le login de l'utilisateur connecté

merci pour l'info

François

 

[jpb388]

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

 

[Pierrot93]

Re : Recuperer le login de l'utilisateur connecté

Bonjour,

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

MsgBox Environ("UserName")

bon après midi
@+