M
monsieurPatate
Guest
Bonsoir le forum,
J'ai écris une macro (voir plus bas) qui a pour objectif d'ajouter à toutes les feuilles les mêmes infos en bas de page.
Cependant, seul ma première page est correct !?
Rien apparaît sur les autres feuilles
Qu'est-ce qui me manque?
Sub ImpressionComplet()
Dim ws As Worksheet
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Cette opération va lancer l'impression du plan d'affaires au complet. Souhaitez-vous continuer?" ' Définit le message.
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Impression du plan "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Application.ScreenUpdating = False
For Each ws In Sheets
If ws.Visible Then ws.Select (False)
Next
With ActiveSheet.PageSetup
.LeftFooter = "Plan"
.CenterFooter = Feuil1.Range("b3")
.RightFooter = "Page &P de &N pages"
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.Draft = False
.PaperSize = xlPaperLetter
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.ScreenUpdating = True
ActiveWorkbook.PrintOut
Else
Exit Sub
End If
End Sub
Merci et à bientôt
J'ai écris une macro (voir plus bas) qui a pour objectif d'ajouter à toutes les feuilles les mêmes infos en bas de page.
Cependant, seul ma première page est correct !?
Rien apparaît sur les autres feuilles
Qu'est-ce qui me manque?
Sub ImpressionComplet()
Dim ws As Worksheet
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Cette opération va lancer l'impression du plan d'affaires au complet. Souhaitez-vous continuer?" ' Définit le message.
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Impression du plan "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Application.ScreenUpdating = False
For Each ws In Sheets
If ws.Visible Then ws.Select (False)
Next
With ActiveSheet.PageSetup
.LeftFooter = "Plan"
.CenterFooter = Feuil1.Range("b3")
.RightFooter = "Page &P de &N pages"
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.Draft = False
.PaperSize = xlPaperLetter
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.ScreenUpdating = True
ActiveWorkbook.PrintOut
Else
Exit Sub
End If
End Sub
Merci et à bientôt