Bas de page VBA

fmoore · 16 Décembre 2014

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 · 16 Décembre 2014

Re : Bas de page VBA

Bonsoir à tous

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

fmoore · 16 Décembre 2014

Re : Bas de page VBA

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

JCGL · 16 Décembre 2014

Re : Bas de page VBA

Bonjour à tous,

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

A+ à tous

Staple1600 · 16 Décembre 2014

Re : Bas de page VBA

Re , Bonsoir JCGL

fmoore
testes ceci

Code:

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 · 16 Décembre 2014

Re : Bas de page VBA

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

Bas de page VBA

fmoore

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

fmoore

XLDnaute Junior

JCGL

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

fmoore

XLDnaute Junior

Discussions similaires