Mettre en Pied de page le résultat d'une Cellule

[Isatessa]

Bonjour à tous,
Est-il possible de mettre dans la mise en page le nom d'une cellule donnée.
Exemple : Dans un onglet j'ai nommé une cellule site (Nom définir C3 = site)
Je voudrais dans mon impression pouvoir mettre par défaut le résultat de site (comme &[Fichier] par exemple mais cela ne marche pas comme cela).

Si vous avez une idée, cela serait super !!
Merci d'avance😱

 

[JCGL]

Re : Mettre en Pied de page le résultat d'une Cellule

Bonjour à tous,

Dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = Feuil1.Cells(3, 3)
End Sub

A + à tous

 

[Staple1600]

Re : Mettre en Pied de page le résultat d'une Cellule

Bonsoir à tous


Peut aussi s'écrire ainsi

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = [site]
End Sub

PS: Tu peux ajouter cette ligne en début de code au cas où le nom aurait été effacé.

Feuil1.[C3].Name = "site"

 

[Isatessa]

Re : Mettre en Pied de page le résultat d'une Cellule

Bojour à tous les deux, je viens de tester votre solution mais cela ne fonctionne pas sur mon fichier.
Cela parait pourtant super simple.
Pour info, mon fichier est protégé mais j'ai fais le test en version déprotégé. je ne pesne donc pas que ce soit la raison.

A très bientôt et merci à tous les deux pour votre rapidité de réponse.

 

[JCGL]

Re : Mettre en Pied de page le résultat d'une Cellule

Bonjour à tous,

Cela fonctionne chez moi et avec ce que j'ai compris de la demande

A+ à tous

 

[Isatessa]

Re : Mettre en Pied de page le résultat d'une Cellule

Merci Beaucoup effectivement cela fonctionne correctement car je n'avais pas mis la macro sur le Workbook mais sur chaque onglet et du coup cela fonctionne beaucoup mieux.
Sais-tu par hasard comment on impose la police de caractère (Calibri Normal 8 point).
Meilleurs voeux quoiqu'il en soit et merci encore

 

[JCGL]

Re : Mettre en Pied de page le résultat d'une Cellule

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "&""Calibri,Normal""&8" & Feuil1.Cells(3, 3)
End Sub

Meilleurs Voeux itou

A+ à tous