[VBA E] recuperer le nom de l'utilisateur

[treza88]

Bonjour à tous

Je voudrais savoir comment arrivé à recupèrer le nom d'utilisateur qui se log lors du demarrage d'une session sur un réseau.

 

[MichelXld]

Re : [VBA E] recuperer le nom de l'utilisateur

bonsoir

tu peux essayer

MsgBox Environ("username")

bonne soirée
MichelXld

 

[treza88]

Re : [VBA E] recuperer le nom de l'utilisateur

Merci MichelXld

mais je viens de tester:

ActiveCell.Offset(0, 3).Value = UserName

est le resultat est une cellule vide.

J'avais au paravant le code suivant:

ActiveCell.Offset(0, 3).Value = Application.UserName

Mais le resultat est egalement une cellule vide.

 

[MichelXld]

Re : [VBA E] recuperer le nom de l'utilisateur

rebonsoir

ce n'est pas ce que j'ai écrit dans mon précédent message ...tu as oublié la fonction Environ

ActiveCell.Offset(0, 3).Value = Environ("username")

bonne soirée
MichelXld

 

[treza88]

Re : [VBA E] recuperer le nom de l'utilisateur

Merci MichelXld

j'ai mal interpreter ton code, le environ je me demandais à quoi il sert donc je l'ai supprimé, j'ai pas capté que ça voulait dire environnement, donc l'utilisateur actuel de la session.

ActiveCell.Offset(0, 3).Value = Environ("USERNAME")

 

[philg61]

Re : [VBA E] recuperer le nom de l'utilisateur

Excellent, je pose ma question sur google et sur le 1er lien, j'ai ma réponse.
Merci

 

[jarjar]

Re : [VBA E] recuperer le nom de l'utilisateur

POur moi, ca ne fonctionne pas. Lorsque je lance la macro, il se met sur environ et affiche "projet ou bibliothèque introuvable"

bonsoir

tu peux essayer

MsgBox Environ("username")

bonne soirée
MichelXld

 

[Cousinhub]

Re : [VBA E] recuperer le nom de l'utilisateur

Bonjour,
MacIntosh?
si oui, regarde l'aide : "Non disponible sur MacIntosh"

 

[Spitnolan08]

Re : [VBA E] recuperer le nom de l'utilisateur

Bonjour tous,

Avec le code suivant tu devrais obtenir le résultat souhaité :

Sub test()
Range("A1") = Application.UserName
MsgBox Application.UserName
End Sub

Cordialement

Edit : j'ai peut être mal lu... Le code que j'ai fourni fonctionne mais il ne donne peut être pas l'information recherchée.

 

[MichelXld]

Re : [VBA E] recuperer le nom de l'utilisateur

bonjour

POur moi, ca ne fonctionne pas. Lorsque je lance la macro, il se met sur environ et affiche "projet ou bibliothèque introuvable"

Dans ce cas, essaye:

MsgBox VBA.Environ("username")

bon week end
MichelXld

 

[Wyrgle]

Re : [VBA E] recuperer le nom de l'utilisateur

Bonjour,

Avec MsgBox Environ("username") j'obtiens bien le username de ma session Windows dans une fenetre.
Mais j'aimerai que le username apparaisse dans un userform deja defini (avec ses ascenseurs, etc).

Comment faire cela et comment positionner le username dans cette fenetre ?

Merci pour votre aide.

 

[Pierrot93]

Re : [VBA E] recuperer le nom de l'utilisateur

Bonjour,

bah... mets le code dans l'événement "initialize" de l'usf sur lquel tu auras posé un "label" par exemple.... A voir ce que cela apportera de plus ??

UserForm1.Label1.Caption = Environ("username")

bonne journée
@+

 

[Wyrgle]

Re : [VBA E] recuperer le nom de l'utilisateur

Merci Pierrot pour ta reponse.
En fait mon equipe utilise un fichier partagé qui lance un USF, chacun tape ses données et celles-ci sont dispatchés dans le fichier xls.
Pour l'instant chacun rentre ses propres initiales, ainsi ta ligne de code devrait leur permettre d'éviter cette saisie, xls reconnaissant l'utilisateur et affichant son nom dans l'USF avant de le copier dans le fichier xls

 

[Tieum78]

Re : [VBA E] recuperer le nom de l'utilisateur

Merci MichelXld

j'ai mal interpreter ton code, le environ je me demandais à quoi il sert donc je l'ai supprimé, j'ai pas capté que ça voulait dire environnement, donc l'utilisateur actuel de la session.

ActiveCell.Offset(0, 3).Value = Environ("USERNAME")

J'adore le "je me demandais à quoi il sert donc je l'ai supprimé" précédé d'un "ça marche pas"

 

[VIARD]

Bonjour à tous

Pour en savoir plus.
Voilà ce que donne la fonction "ENVIRON"
Salutation

Jean-Paul