récupérer le Login

[Francois]

Bonjour tout le monde.
Je voudrai savoir comment dans excel récupérer le nom de la personne qui est loguée.
Merci

 

[@+Thierry]

Salut François

Si on parle de log-in sous system NT ou 2000, voici une function qui fait appel à une API qui récupère l'ID du User :

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Sub Get_User_Name()

Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
MsgBox UserName

End Sub

Dans Office 2000 tu as un fichier "Sample.xls" qui contient pas mal d'exemple dont celui là.

Bon Aprèm
@+Thierry