Re : pagesetup sur certaine feuilles pas tous
Bonjour Robert,
ça me donne erreur d'excecution 9
l'indice n'appartient pas à la selection
ci-dessous le code que j'utilise:
Sub EntetePiedPage()
Dim Ws As Worksheet 'Déclare la variable Ws
Application.ScreenUpdating = False 'Désactivation de la mise à jour de l'écran
'For Each Ws In Worksheets ' Pour chaque feuille dans le Fichier
For Each Ws In Sheets(Array("Feuil7", "Feuil8", "Feuil9", "Feuil10", "Feui11", "Feui12", "Feuil13", "Feui14", "Feui15", "Feuil16", "Feuil17", "Feuil18"))
If Ws.Name <> "Feuil5" Then ' Si le nom de la Feuille n'est pas "Feuil1"
With Ws.PageSetup
.LeftHeader = Sheets("Paramètres").Range("E1").Value & Chr(13) & Sheets("Paramètres").Range("E2").Value & Chr(13) & Sheets("Paramètres").Range("E3").Value 'Haut Gauche = Valeur feuil1 A1
'.CenterHeader = "&D" & Chr(13) & "&P" & "&page" ' Haut Centre= Valeur feuil1 A2
.RightHeader = Sheets("Paramètres").Range("E6").Value & Chr(13) & Sheets("Paramètres").Range("E7").Value & Chr(13) & Sheets("Paramètres").Range("E8").Value '"&D" ' Centre Haut Droit = Page
'.RightFooter = "&P" 'Pied Droit = Date du Jour
End With
End If
Application.ScreenUpdating = True 'Réactivation de la mise à jour de l'écran
Next Ws
End Sub
Merci beaucoup