Me revoilà encore pour un sujet sur lequel je bloque...
J'ai un classeur avec plusieurs onglets (nombre d'onglet variable)... Et je souhaiterai créer un module pour faire apparaître sur le pied de page de tous les onglets sauf le "feuil1", la valeur qui est située en "T2" de "feuil1"...
Je n'ai pas réussi à trouver de code qui correspond à ma recherche...
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
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
Merci bien pour ce code.
Désolé je débute un peu en VBA, mais ça ne se met que lorsque lance l'impression sur la feuille active...
Je souhaitais un module qui exécute automatiquement ce code à toutes les feuilles sauf feuill1 (je vais créer un bouton pour lancer l'exécution)
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
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