Problème pied de page

[antiphot]

Bonjour à toutes et à tous

J'aimerais vous soumettre un problème de pied de page. Voila j'aimerais rajouter du texte dans la partie centrale du pied de page dans ma feuille active. Mais uniquement à partir de la page 2.

Je ne pense pas que cela soit possible en dehors de vba ?

J'ai cherché un peu à droite et à gauche sur le forum, mais tout ce que j'ai trouvé concerne l'ensemble de la feuille.

Si quelqu'un a une idée à me soumettre, je suis preneur

Merci par avance
Philippe

 

[Caillou]

Re : Problème pied de page

Bonjour,

Solution bidouille, tu fais une macro :
qui efface le pied de page
imprime la page 1
remet le pied de page
imprime de la page 2 à la fin

Caillou

 

[Risleure]

Re : Problème pied de page

Bonjour le Forum, caillou,antiphot
Une proposition à adapter qui te lance l'impression avec deux pieds de page

Sub ImpressionSansPiedPourLaPremiere()[indent]Dim ThisWBPath As String
Dim NomDeLaFeuille As String
NomDeLaFeuille = ActiveSheet.Name[/indent]
'Impression de la feuille 1 avec vidange préalable du pied de page[indent]Sheets(NomDeLaFeuille).PageSetup.LeftFooter = ""
Sheets(NomDeLaFeuille).PageSetup.CenterFooter = ""
Sheets(NomDeLaFeuille).PageSetup.RightFooter = ""
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate:=True[/indent]
'Impression de la page 2 avec rédaction préalable du pied de page
'Permet d'insérer le chemin dans le bas de la page mais tu peux mettre autre chose[indent]
ThisWBPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Sheets(NomDeLaFeuille).PageSetup.LeftFooter = ThisWBPath & "\&A"
Sheets(NomDeLaFeuille).PageSetup.CenterFooter = ""
Sheets(NomDeLaFeuille).PageSetup.RightFooter = "&P/&N"
ActiveWindow.SelectedSheets.PrintOut From:=2, to:=32766, Copies:=1, Collate:=True[/indent]End Sub

A+