Nom d'utilisateur dans pied de page

Bonjour à tous,

j'ai un petit soucis tout bête... En fait, j'ai ajouté la ligne de code suivant à mon classeur Excel :

Code:

---

1 2 3

Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.LeftFooter = "&D&T " & Environ("username") End Sub

---

pour ajouté le nom d'utilisateur qui a demandé l'impression. Le souci c'est que le nom d'utilisateur s'est inscrit une seule fois et reste toujours le même ensuite, peut importe sur quel ordinateur le fichier est lancé... il me semblait que l'événement "BeforePrint" était appelée à chaque impression....

Merci d'avance de m'éclairer!
al_bert

bonjour

a tu essayer de memoriser au depart (a l'ouverture de du classeur)l'utilisateur

pour le reinjecter ensuite

le classeur n'est pas sur un serveur au moins???

au plaisir

Bonjour,

je viens tout juste d'essayer et ça ne fonctionne toujours pas... C'est vraiment étrange...

Et non, je te rassures, le classeur est placé en local sur plusieurs machines, il n'est pas sur un serveur.

Merci,
al_bert

Un petit ajout... Je viens de me rendre compte en fait que la ligne de code ne fait rien du tout. Ce que j'avais d'écrit était en fait des vestige d'une vieille version.

Maintenant que c'est enlevé, je n'ai tout simplement plus rien qui ne s'affiche...

Merci,
al_bert

Bonjour,

J’ai effectué le même test.
Ajout du code suivant dans le module ThisWorkbook

Code:

---

1 2 3

Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.LeftFooter = "&D&T " & Environ("username") End Sub

---

Et j’obtiens bien le résultat attendu.

Cordialement.

Bonjour,

merci beaucoup, ça a finit par fonctionner! Finalement, le problème était au niveau de la feuille active... bien que je plaçais la feuille 2 comme active, Excel, pour une raison qui m'échappe, gardait toujours la feuille 1 comme active... J'ai donc tout simplement remplacé ActiveSheet par Sheets("Feuille2") et ça fonctionne maintenant parfaitement!

Merci encore pour votre aide!
al_bert