Discussion :

[NicolasMO]

Bonjour,
Je souhaiterais accorder des droits d'accès à des fonctions programmées sur une page Excel. Le programme doit reconnaître tout seul l'utilisateur du poste. (Ce doit correspondre au nom de l'utilisateur de la session). Y a-t-il une fonction qui existe pour cela?
Merci.
Nicolas.

[Michel_M]

Bonsoir,

Application.username renvoie le nom de l'utilisateur données type string

[SilkyRoad]

bonsoir Nicolas et cher Michel

J'utiliserais plutot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Environ("username")

bonne soirée ... ;o)
michel

[cavo789]

Autre piste : utiliser la fonction de l'API de Windows dédicacée à cet usage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
   (ByVal lpBuffer As String, nSize As Long) As Long

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
 
Private Function TrimNull(sTemp As String) As String
 
   TrimNull = Left$(sTemp, lstrlen(StrPtr(sTemp)))
 
End Function
 
' La fonction ci-dessous retourne le login utilisé sous Windows pour se connecter et lancer une session
 
Public Function GetUserName() As String
 
Dim wLen As Long
Dim sUsername As String
 
    ' Allocate a string variable of 255 characters
 
    sUsername = String$(254, 0)
 
    ' Get the user name and return his lenght
 
    wLen = apiGetUserName(sUsername, 255)
 
    sUsername = TrimNull(sUsername)
 
    If Left(sUsername, 2) = "id" Then sUsername = Mid(sUsername, 3, 6)
 
    GetUserName = sUsername
 
End Function