Discussion :

[al_bert]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

[al_bert]

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

[gFZT82]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[al_bert]

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