Boucler sur toutes les feuilles (calcul & graph)
Le
Christophe CAMPAIN
Bonjour à tous,
Comment faire pour "boucler" sur toutes les feuilles de mon classeur, graph
compris ?
Actuellement, ma procédure est la suivante :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
Sh.PageSetup.LeftFooter = "&8Développé par Christophe CAMPAIN"
Sh.PageSetup.LeftFooter = "&6" & ActiveWorkbook.FullName
Next Sh
End Sub
Le problème, c'est que ça "boucle" uniquement sur les feuilles de calcul.
Par avance merci,
@+
Kristof
Comment faire pour "boucler" sur toutes les feuilles de mon classeur, graph
compris ?
Actuellement, ma procédure est la suivante :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
Sh.PageSetup.LeftFooter = "&8Développé par Christophe CAMPAIN"
Sh.PageSetup.LeftFooter = "&6" & ActiveWorkbook.FullName
Next Sh
End Sub
Le problème, c'est que ça "boucle" uniquement sur les feuilles de calcul.
Par avance merci,
@+
Kristof
Poser une question
Utilise Sheets au lieu de WorkSheets :
For Each obj In ActiveWorkbook.Sheets
MsgBox obj.Name
Next
Cordialement
Pascal
"Christophe CAMPAIN" dans le message de news:epbJ%23D%
@+
Kristof
"papou" news:Of9UFI%