Pied de page VBA

DoubleZero à dit:

Bonjour, MikaTI, le Forum,

Un essai avec le présent code, logé dans "ThisWorkbook" :

Code:

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name <> "Feuil1" Then ActiveSheet.PageSetup.LeftFooter = Sheets("Feuil1").Range("t2").Value
End Sub

A bientôt 🙂

Cliquez pour agrandir...

MikaTI à dit:

... ça ne se met que lorsque lance l'impression sur la feuille active...

Cliquez pour agrandir...

MikaTI à dit:

...ça ne se met que lorsque lance l'impression sur la feuille active... je vais créer un bouton...

Cliquez pour agrandir...

Option Explicit
Sub P_d_p_partout_sauf_()
    Dim o As Worksheet
    For Each o In Worksheets
        If o.Name <> "Feuil1" Then o.PageSetup.LeftFooter = Sheets("Feuil1").Range("t2").Value
    Next
End Sub

DoubleZero à dit:

Re-bonjour,



Autre suggestion, si j'ai mieux compris, dans un module standard :

Code:

Option Explicit
Sub P_d_p_partout_sauf_()
    Dim o As Worksheet
    For Each o In Worksheets
        If o.Name <> "Feuil1" Then o.PageSetup.LeftFooter = Sheets("Feuil1").Range("t2").Value
    Next
End Sub

A bientôt 🙂

Cliquez pour agrandir...