Insertion automatique du nom de l'utilisateur Windows

E

Eric_C

Guest

• 29 Décembre 2004

• #2

bonjour le forum
Bonjour Mi

En VBA : à placer dans ThisWorkBook :

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

@ + Eric C

 

Vote positif 0 Vote négatif

M

Mi

Guest

• 29 Décembre 2004

• #3

Bonjour Eric,
J'ai réussi ! Milles merci !
@+

 

Vote positif 0 Vote négatif

M

Mi

Guest

• 29 Décembre 2004

• #4

Je reviens avec une question :
"Application.UserName" ne se réfère pas uniquement au nom d'utilisateur enregistré dans la licence d'Excel ?
Car celui-ci peut être différent du nom du login Windows.

Merci,
Mi

 

Vote positif 0 Vote négatif

M

michel

Guest

• 29 Décembre 2004

• #5

bonsoir Mi , bonsoir Eric

en suivant le lien ci dessous , tu trouveras un solution donnée par @+Thierry

Lien supprimé

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

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


bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

M

Mi

Guest

• 29 Décembre 2004

• #6

Bonsoir Michel
Merci pour le lien et pour la formule.
J'ai copié/collé ce que tu a mis dans VBA, mais rien ne se passe.
Au fait, où est indiquée la cellule dans laquelle sera introduite automatiquement le nom d'utilisateur Windows ?
Pour le moment j'ai reussi à introduire "Application.UserName" décrite par Eric, en detail.
J'ai besoin de plusieurs details, car je suis débutant.
Merci pour tout conseils,
Mi

 

Vote positif 0 Vote négatif