en tete et pied de page systematiques sur toutes les feuilles ?

Bonjour,

Groupe de travail

--
lSteph

On 28 sep, 11:02, jeanmarc <jeanm...@discussions.microsoft.com> wrote:

comment procéder afin qu'en tête et pied de page de la première feu ille de
calcul soient systématiquement répétés sur toutes les autres feui lles du
fichier ? Merci

dans une mes appli j'ai ceci
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" Or Sh.Name = "Feuil3"
Then
With Sh.PageSetup
.LeftFooter = "toto"
.RightFooter = "tata"
.CenterFooter = "titi"

End With
End If
Next
End Sub

bien sur on peut ameliorer suivant le nom et le nombre de tes feuilles

comment procéder afin qu'en tête et pied de page de la première feuille de
calcul soient systématiquement répétés sur toutes les autres feuilles du
fichier ? Merci

--
eneric

a mettre dans "thisworkbook"

--
eneric

sinon j'ai trouvé pour toutes les "sheets"
Sub toutes_feuilles()
Dim x As Byte
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
'en-tête de page
.LeftHeader = "xx"
.CenterHeader = "zz"
.RightHeader = "yy"
'pied de page
.LeftFooter = "aa"
.CenterFooter = "bb"
.RightFooter = "cc"
End With
Next x
End Sub

--
eneric

pour l'en tete et aussi le nbre de sheets
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x As Byte
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
'en-tête de page
.LeftHeader = "aa"
.CenterHeader = "bb"
.RightHeader = "cc"
'pied de page
.LeftFooter = "xx"
.CenterFooter = "yy"
.RightFooter = "zz"
End With
Next x
End Sub

--
eneric