Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
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
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
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
