En-tête de feuille et contenu de cellule

[Mulder]

Bonjour, bonjour !!
Je cherche actuellement à créer un en-tête pour mes feuilles Excel qui reprendrait le contenu de certaines cellules d'une feuille.
J'ai au préalable fait une recherche sur le forum, et j'ai repiqué un morceau de code, mais il ne fonctionne pas... Lorsque je lance une impression (format PDF pour pas gâcher de papier pendant les tests), j'ai pas d'en-tête...

Sub Entete()

Dim CLIENT As String

    With Sheets("Synthèse")
    CLIENT = Range("F2").Value
    End With

Worksheets.PageSetup.LeftHeader = "Client : " & CLIENT


End Sub

Fichier de tests en PJ.
Sachant que cette macro s'applique sur d'autres feuilles (l'en-tête sera unique pour toutes les feuilles).
Où est-ce que je me plante ???
D'avance merci !!!

 

[Papou-net]

Re : En-tête de feuille et contenu de cellule

Bonjour Mulder,

Pour mettre le même en-tête sur toutes tes feuilles :

Sub Entete()

Dim CLIENT As String

    With Sheets("Synthèse")
    CLIENT = Range("F2").Value
    End With
For Each sh In Sheets
  sh.PageSetup.LeftHeader = "Client " & CLIENT
Next

End Sub

Espérant avoir répondu.

Cordialement.