Session windows

[Maxime]

Bonjour,
est-il possible de récupérer le nom d'utilisateur de la session windows? Si oui, comment procéder?
Merci
Max 😉

 

[Dull]

Salut maxime

Private Sub Workbook_Open()
Range('A1') = Application.UserName
End Sub

A l'ouverture du Dossier en A1 s'inscrira le nom de l'utilisateur

Bonne Journée

 

[MichelXld]

bonjour Maxime , bonjour cher Dull

Dull, Application.UserName définit le nom de l'utilisateur de l'application Excel

l'equivalent de:
Menu Outils
Options
onglet general
nom utilisateur



essayes plutot

MsgBox Environ('username')


ou

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

Sub nomUtilisateur()
Dim lpBuff As String * 25
Dim ret As Long

ret = GetUserName(lpBuff, 25)
MsgBox Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Sub



bonne journée
MichelXld

Message édité par: michelxld, à: 14/06/2006 17:58

 

[Dull]

Re le fil,

Quand j'ai répondu à ce post, j'avais comme l'impression d'avoir dit une bétise sans savoir pourquoi... maintenant je sais. Heureusement que tu est là Michel pour corriger mes défaillances Merci Michel

 

[Maxime]

Merci beaucoup!
A+
Max