Insérer nom utilisateur à l'impression

[jonabenn02]

Bonjour le forum,

Je voulais juste savoir si dans excel on pouvait insérer le nom de l'utilisateur à l'impression en pied de page comme la date ou le chemin du fichier? (&[date]...)

Merci à tous et bonne journée.

Jonabenn

 

[SergiO]

Re : Insérer nom utilisateur à l'impression

Bonjour Jonabenn,

Tu mets le code suivant dans l'objet This Workbook du VBA

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Application.UserName
End Sub

@+

 

[jonabenn02]

Re : Insérer nom utilisateur à l'impression

Bonjour Sergio,

Nickel mais...
J'ai un bouton relié à une macro d'impression et elle ne m'imprime pas ces informations.
Si je fais fais imprimer manuellement ou "Ctrl+P" L'information s'imprime correctement.
Une petite idée?😕

Merci et bonne journée.

Jonabenn

 

[Startus]

Re : Insérer nom utilisateur à l'impression

Salut à tous,

Tu mets dans le code de ton bouton :

Private Sub CommandButton1_Click()
ActiveSheet.PrintOut PageSetup.RightFooter = Application.UserName
End Sub

Et ensuite tu mets dans ThisWorkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Cordialement...

 

[jonabenn02]

Re : Insérer nom utilisateur à l'impression

Bonjour à tous

Désolé pour le retard mais j'étais en train de déménager! 🙂

Startus si je mets ton code comme tu dis cela ne marche pas il me lance la commande de débogage sur "ActiveSheet.PrintOut PageSetup.RightFooter = Application.UserName" et si je laisse "cancel = true" Eh bien cela n'imprime pas. Là je suis un peu paumé.

Merci de ton aide

Jonabenn