Bas de page VBA
Francis
-
Le Pingou Messages postés 12646 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12646 Date d'inscription Statut Contributeur Dernière intervention -
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 !
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 !
A voir également:
- Bas de page VBA
- Impossible de supprimer une page word - Guide
- Page d'accueil - Guide
- Imprimer tableau excel sur une page - Guide
- Base de registre - Guide
- Word numéro de page 1/2 - Guide
