Bas de page VBA

[fmoore]

Bonjour,
En recherchant sur les forums j'ai réussi a produire ceci :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "modèle" Then
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = Sheets("modèle").Range("A1")
.CenterFooter = ""
.RightFooter = ""
End With
Else
Cancel = True
MsgBox "Vous ne pouvez pas imprimer sans être dans l'onglet modèle"
End If
End Sub

Ça fonctionne très bien par contre est-ce qu'il y aurait moyen que le bas de page se crée sur toutes les onglets du classeur ?
Merci de votre temps !

 

[Staple1600]

Re : Bas de page VBA

Bonsoir à tous

fmoore
Oui en bouclant sur toutes les feuilles du classeur.
Tu vois comment faire ?

 

[fmoore]

Re : Bas de page VBA

Vous voulez j'inscrive le code sur chaque feuille mais que je change le With ActiveSheet.PageSetup ?

 

[JCGL]

Re : Bas de page VBA

Bonjour à tous,

Tu mets le code dans le BeforePrint (en l'adaptant évidement)

A+ à tous

 

[Staple1600]

Re : Bas de page VBA

Re , Bonsoir JCGL

fmoore
testes ceci

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
If ActiveSheet.Name = "modèle" Then
For Each ws In Worksheets
With ws.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = Sheets("modèle").Range("A1")
.CenterFooter = ""
.RightFooter = ""
End With
Next
Else
Cancel = True
MsgBox "Vous ne pouvez pas imprimer sans être dans l'onglet modèle"
End If
End Sub

 

[fmoore]

Re : Bas de page VBA

Merci beaucoup sauf sur preuve du contraire sa marche très bien pour l'instant.