Réf à une cellule dans En-Tête de feuille

[ExcelDow]

Bonjours à tous,
J'aimerais référencer une cellule dans mon en-tête de page, avec ce code, mais ne fonctionne pas.
Qui aurais une idée s'il vous plaît ??
Merci et à ++++++


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then
ActiveSheet.PageSetup.CenterHeader = "Dossier traité par : " & ActiveSheet.Range("A3")
End If
End Sub

 

[chris]

Bonjour

Cela marche chez moi mais note que ce n'est pas visible dans l'aperçu avant impression d'Excel 2010 ou +

 

[ExcelDow]

Bonjour chris,
A oui, c'est vrai, ça fonctionne que à l'impression
Super et merci beaucoup
A+++++

 

[ExcelDow]

Re bonjour Chris,
Une question si tu me permets;
A l'impression j'ai le format 01.08.2016, et j'aimerais le format "mmmm" soit que le mois en texte
Comment modifier le code s'il te plaît
Merci


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then
ActiveSheet.PageSetup.CenterHeader = "Dossier traité par : " & ActiveSheet.Range("A3")
End If
End Sub

 

[chris]

Re

Remplace A3 par

Format(Range("a3"), "mmmm")

 

[ExcelDow]

Re
J'ai fais comme ça, mais ça vas pas

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Calendrier" Then
ActiveSheet.PageSetup.CenterHeader = "Le mois de: " & ActiveSheet.Format(Range("A3"), "mmmm")
End If
End Sub

 

[chris]

Re
& Format(ActiveSheet.Range("A3","mmmm"))

 

[ExcelDow]

OK, merci
Te rappel demain pour te dire si c'est bon
Bonne soirée

 

[ExcelDow]

Salut Chris
Et non toujours pas
Merci à ++++++

 

[chris]

Bonjour

Parenthèse mal placée, sorry

ActiveSheet.PageSetup.CenterHeader = "Le mois de: " & Format(ActiveSheet.Range("A3"), "mmmm")

Prévoir une apostrophe pour les 3 mois commençant pas une voyelle !

 

[ExcelDow]

Bonjour,
Super et merci c'est tous bon.
Bon week end
A+++++

 

[gosselien]

Bonjour,

ta cellule étant nommée "mois" , je vois, tu peux essayer ceci:

ActiveSheet.PageSetup.CenterHeader = "Dossier traité par : " & Format([mois], "mmm")
P.

 

[ExcelDow]

Bonjour,
OK, et merci de ton aide
A++++