Récuperer le nom d'utilisateur

[eastonrad]

Bonjour à tous

J'ai un petit souci avec Excel 2000 (sous XP) et malgré ma recherche sur le forum, je n'arrive pas à trouver l'info pour continuer.
Je fais une feuille de calcul dans laquelle doit se trouver un numéro de référence (que je génère à partir de la date) et un nom d'utilisateur, par exemple le login de l'utilisateur.
J'ai bien trouvé un post assez complet ici:
https://www.excel-downloads.com/threads/recurer-le-nom-dutilisateur-windows.67420/
mais je ne sais pas comment faire pour que ce login s'affiche dans une case prédéfinie...😕

Merci d'avance ! 🙂

 

[Toine]

Re : Récuperer le nom d'utilisateur

si tu arive et récupérer le login dans un var alors s est asser simple na sest quoi te pose probléme ?? le recup ou donner la valeur a la celule ???

 

[Pierrot93]

Re : Récuperer le nom d'utilisateur

Bonjour,

regarde la macro ci dessous :

Sub test()
Range("A1").Value = Application.UserName 'nom de l'utilisateur Excel
Range("A2").Value = Environ("UserName") ' nom de l'utilisateur windows
End Sub

bon après midi.
@+

 

[Jam]

Re : Récuperer le nom d'utilisateur

Salut eastonrad, Toine,

Dans le module de la feuille tu crées une fonction:

Function NomUtilisateur() As String
NomUtilisateur=Application.UserName
End Function

Dans une cellule de ta feuille tu saisis:
=monNumDeRéférence & NomUtilisateur()
Attention le nom renvoyé est celui renseigné dans l'onglet Général du menu Options. Ce nom n'est pas toujours correctement renseigné sur des PC en rézo et ne change pas d'un utilisateur à un autre.

Autre méthode qui te donne le Login de l'utilisateur (via l'API windows). Code à coller dans un module:

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

Function GetLoginName()
'Chris Amess, mpep
'Gets the currently logged on user from the system

Dim strName As String
Dim lngReturn As Long
Dim strLoginName As String

    'Gets users Name using API call
    strName = Space$(25)
    lngReturn = GetUserName(strName, 25)

    If lngReturn = 1 Then
        strLoginName = Trim$(strName)
        DoEvents
        GetLoginName=strLoginName
    Else
        GetLoginName= "Nom d'utilisateur réseau nom trouvé."
    End If

End Function

Dans une cellule de ta feuille tu saisis:
=monNumDeRéférence & GetLoginName()
Bon courage,

Salut à Pierrot qui a répondu plus vite avec un code plus simple...(mais j'aime bien les API 😉)

 

[eastonrad]

Re : Récuperer le nom d'utilisateur

Bonjour

Merci pour vos réponses rapides !

J'ai copié/collé le code à Pierrot93 dans ma feuille VBA. Mais comme je m'y attendais, et c'est un peu là le fond du problème, je ne sais pas comment dire à ma cellule (A3) d'aller exécuter ce code. Comment fait on alors ?

Merci d'avance ! 🙂

 

[Toine]

Re : Récuperer le nom d'utilisateur

je te propose de mettre dans this workbook
code :

Private Sub Workbook_Open()
Range("A.3").Value = Application.UserName 'nom de l'utilisateur Excel
end sub

tien nous o courant

 

[Toine]

Re : Récuperer le nom d'utilisateur

adapte en fonction du nom de ta feuille peut etre

 

[eastonrad]

Re : Récuperer le nom d'utilisateur

Merci Toine pour ta proposition

J'ai copié ton code dans ma feuille VBA mais rien ne se passe sur la case A3 (ma feuille s'appelle INTERNE pour info).
Je n'ai rien à marquer dans ma cellule A3 pour que Excel aille executer le programme dans la feuille VBA ? 😕

Merci d'avance ! 🙂

 

[Pierrot93]

Re : Récuperer le nom d'utilisateur

Re


si tu as bien mis ce code dans le module de"ThisWorkBook", la macro se déclenche uniquement à l'ouverture du classeur, ferme, enregistre et ré ouvre le classeur.

@+

 

[Pierrot93]

Re : Récuperer le nom d'utilisateur

il y a un point en trop...

Sheets("INTERNE").Range("A3").Value = Application.UserName 'nom de l'utilisateur Excel

@+

 

[Toine]

Re : Récuperer le nom d'utilisateur

jai interpreter pour le thisworkbook
peut etre que cetait pas ce que tu voul
na.???

 

[eastonrad]

Re : Récuperer le nom d'utilisateur

Re

Je ne savais pas ce que c'était le "ThisWorkBook", un petit tour sur Internet plus tard et j'ai collé le code de Toine dedans et ça marche ! 😀
Merci à tous pour ce coup de pouce (rapide!) et bonne continuation.

 

[Toine]

Re : Récuperer le nom d'utilisateur

de rien en avancent a deux les deux profite (enfin la sa fait 3 ou 4 mais on avance ^^ (s est le plus importent ) 😉