Discussion :

[Destiny]

Bonjour,

J'aimerais savoir si il est possible dans une application access de reprendre le nom d'utilisateur de la personne logué sur un poste client.

(je me connect avec ma session sur windows MonNom.MonPrenom, et j'aimerais récupérer cette information dans une application access 2003 que je lance sur mon poste.)


Merci de votre aide et bonne journée à tous!

[Tofalu]

bonjour

Un exemple :

Code :

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

msgbox environ("username")

[cafeine]

Hello,

regarde ce fil de discussion : http://www.developpez.net/forums/sho...d.php?t=275140

[Kloun]

Ca doit être dans la FAQ :

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
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Public Function UserName() As String
' Retourne le nom de l'utilisateur courant de l'ordinateur
Dim stTmp As String
Dim lgTmp As Long
 
    stTmp = Space$(250)
    lgTmp = 251
    GetUserName stTmp, lgTmp
    UserName = Mid$(stTmp, 1, InStr(1, stTmp, Chr$(0)) - 1)
End Function
 
Public Function ComputerName() As String
    ' Retourne le nom de l'ordinateur
    Dim stTmp As String, lgTmp As Long
    stTmp = Space$(250)
    lgTmp = 251
    Call GetComputerName(stTmp, lgTmp)
    ComputerName = Split(stTmp, Chr$(0))(0)
End Function

edit : pas assez rapide.
Et je vois qu'il y a bien plus simple que ce que j'utilise ...