Insertion automatique du nom de l'utilisateur Windows

[Mi]

Bonjour,
J'ai déjà effectué une recherche à ce sujet mais je voudrais savoir si on peut éviter les Macros/VBA, donc je cherche une solution plus simple.

Donc comment pourrait-on avoir, dès l'ouverture d'une feuille Excel, le nom de l'utilisateur logué sous Windows (XP) dans la cellule A1 ?

Si jamais il faut utiliser VBA, je vous serais reconnaissant de m'indiquer exactement les pas pour l'insérer, car pour le moment je suis nul.

Merci d'avance pour vos conseils,
Mi

 

[Eric_C]

bonjour le forum
Bonjour Mi

En VBA : à placer dans ThisWorkBook :

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

@ + Eric C

 

[Mi]

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

 

[Mi]

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

 

[michel]

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

 

[Mi]

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