affichage utilisateur

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Février 2009

• #2

Re : affichage utilisateur

Bonjour,

Dans un module Alt+F11 puis Insertion/Module:

Function NomUser()
NomUser = Environ("username")
End Function

Dans une cellule:
=NomUser()


JB
Formation Excel VBA JB

 

Dernière édition: 10 Février 2009

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 10 Février 2009

• #3

Re : affichage utilisateur

bonjour cher BOISGONTIER

merci pour cette réponse qui fonctionne très bien mais qui affiche le nom de l'utilisateur d'excel (ce qui est déjà pas mal)

mais ce que je cherche c'est faire apparaitre l'user qui entre dans le classeur par le filtre user/code dont je parle dans mon premier message

merci d'y jeter un oeil

Kinel

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 10 Février 2009

• #4

Re : affichage utilisateur

re bonjour

pas moyen de trouver la solution

je vous joints le code en question, mon but est de placer le nom de l'utilisateur actif en H1 de la page administrateur

merci de votre aide

Kinel

 

Pièces jointes

• Nouveau Dossier compressé.zip

  26.9 KB · Affichages: 31
• Nouveau Dossier compressé.zip

  26.9 KB · Affichages: 40
• Nouveau Dossier compressé.zip

  26.9 KB · Affichages: 39

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 16 Février 2009

• #5

Re : affichage utilisateur

bonjour à tous

bon, ce sujet n'a pas l'air de passionner les foules mais comme à force de faire des essais j'ai trouvé la solution je vous la publie au cas ou ...

dans l'userform j'ai ajouté :

Private Sub Txb_ID_Util_Change()
Range("H1") = Txb_ID_Util
End Sub

ce qui a pour effet de copier l'user en H1 de la même feuille
ensuite je la recopie dans toutes les feuilles du classeur afin d'afficher l'user actif.
ça insite aussi l'user à quitter le classeur quand il n'y travaille plus.

bien cordialement

Kinel

 

Vote positif 0 Vote négatif

L

Lexan007

Guest

• 15 Février 2010

• #6

Re : affichage utilisateur

BOISGONTIER à dit:

Bonjour,

Dans un module Alt+F11 puis Insertion/Module:

Function NomUser()
NomUser = Environ("username")
End Function

Dans une cellule:
=NomUser()


JB
Formation Excel VBA JB

Cliquez pour agrandir...

Bonjour,
Cette macro correspond à ce que je recherche, mais elle ne fonctionne que 2 secondes ... je m'explique. Lorsque l'affichage du NomUser() commence, le nom de l'utilisateur apparait 2 seconde puis le nom est remplacer par #VALEUR! !!!
D'où viens ce problème ?
Cordialement

Lexan007

 

Vote positif 0 Vote négatif