S
sylvain
Guest
bonjour le forum,
j'ai un petit problème d'adaptation de code pour le pied de page d'une feuille. J'aimerais que le code ci dessous s'exécute pour la feuille active de mon classeur et non pour toutes les feuilles comme c'est le cas actuellement (cause : longueur d'éxécution du code).
Meric du coup de pouce...
Sub PiedPagePerso()
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
With f.PageSetup
.LeftFooter = 'Nom éleveur : ' & Worksheets('menu').Cells(34, 7).Value
.CenterFooter = ''
.RightFooter = 'Simulation ' & Worksheets('menu').Cells(15, 15).Value
End With
Next
End Sub
sylvain
j'ai un petit problème d'adaptation de code pour le pied de page d'une feuille. J'aimerais que le code ci dessous s'exécute pour la feuille active de mon classeur et non pour toutes les feuilles comme c'est le cas actuellement (cause : longueur d'éxécution du code).
Meric du coup de pouce...
Sub PiedPagePerso()
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
With f.PageSetup
.LeftFooter = 'Nom éleveur : ' & Worksheets('menu').Cells(34, 7).Value
.CenterFooter = ''
.RightFooter = 'Simulation ' & Worksheets('menu').Cells(15, 15).Value
End With
Next
End Sub
sylvain