en-têtes et pieds de pages

Le
gene
Bonjour

Est-il possible dans Excel de demander ce que en-tte et
pied de page ne s'affichent pas sur la premire page ?

Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FxM
Le #1343223
gene wrote:
Bonjour

Est-il possible dans Excel de demander à ce que en-tête et
pied de page ne s'affichent pas sur la première page ?

Merci


Bonsoir,

Sous Excel 2000, il faut lui demander gentiment via macro. C'est-à-dire
stocker ce qui existe, enlever pour imprimer la première page et
rétablir pour imprimer les autres ...

- non testé
- ça rame (puisqu'il faut casser la mise en page et la refaire pour
chaque page) et il n'y a pas grand chose à y faire

Sub test()
For Each sh In ActiveWorkbook.Windows(1).SelectedSheets
sh.Select
With ActiveSheet.PageSetup
lh = .LeftHeader: ch = .CenterHeader: rh = .RightHeader
lf = .LeftFooter: cf = .CenterFooter: rf = .RightFooter
.LeftHeader = "": .CenterHeader = "": .RightHeader = ""
.LeftFooter = "": .CenterFooter = "": .RightFooter = ""
End With
.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
With ActiveSheet.PageSetup
.LeftHeader = lh: .CenterHeader = ch: .RightHeader = rh
.LeftFooter = lf: .CenterFooter = cf: .RightFooter = rf
End With
.PrintOut From:=2, To:2766, Copies:=1, Collate:=True
Next sh
End Sub

@+
FxM

Publicité
Poster une réponse
Anonyme