Valeur cellule en en-tête de page

Bonjour à tous,

J'essaye tant bien que mal de récupérer la valeur d'une cellule et de la mettre en "en-tête" de page..

Pour le moment j'ai défini une macro pour ma zone d'impression de C13 à M.

Mais j'aimerais pouvoir mettre les infos affichées en ligne 13 en en-tête (gauche pour le projet et droit pour le nom) et ne plus avoir d'infos sur cette ligne et la réduire.

Ce code trouvé ici Inclure une cellule nommée dans format d'impression en-tête est placé dans le ThisWorbook, mais ne fonctionne pas chez moi! rien ne s'affiche!

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If ActiveSheet.Name = "donnés" Then
    ActiveSheet.PageSetup.LeftHeader = "Projet n° : " & ActiveSheet.Range("C9")
    ActiveSheet.PageSetup.RightHeader = ActiveSheet.Range("F13")
  End If
End Sub

Ais-je loupé quelque chose?

Merci d'avance.

Bonjour,

si le code "événement" ne fonctionne pas c'est peut être que les événement sont désactivés

exécuter cette macro une fois,

Sub Reset_Événement()
Application.EnableEvents = True
End Sub

à tester, code placé dans le ThisWorbook,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If ActiveSheet.Name = "donnés" Then
    ActiveSheet.PageSetup.LeftHeader = "Projet n° : " & ActiveSheet.Range("C9")
    ActiveSheet.PageSetup.RightHeader = ActiveSheet.Range("F13")
    ActiveSheet.PrintPreview ' voir l'impression
  End If
  Cancel = True 'enlever cette ligne pour imprimer réellement
End Sub

Bonjour sabV et merci,

J'ai fait reset des événements et placé ton code mais ça ne fonctionne toujours pas?

J'ai aussi fais le test sur une nouvelle feuille et classeur et ça ne fonctionne pas?!

Bien à toi.

Bonjour,

est ce que cela fonctionne à partir d'une macro test ?

Sub test()
    ActiveSheet.PageSetup.LeftHeader = "Projet n° : " & ActiveSheet.Range("C9")
    ActiveSheet.PageSetup.RightHeader = ActiveSheet.Range("F13")
    ActiveSheet.PrintPreview ' voir l'impression
End Sub

Bonjour sabV,

Parfait, j'ai crée un bouton d'impression et lui ai affecté cet macro, cela reviens au même que ma demande.

Je ne sais pas pourquoi je n'y ai pas pensé plutôt

Merci beaucoup.

Au plaisir.