Est ce que quelqu'un peut verifier ce code, son execution prend beaucoup de temps. Ce code est pour mettre à jour les entetes de certaines feuilles (12 au total) de janvier à decembre . voici le code:
Sub EntetePiedPage()
Dim Ws As Worksheet 'Déclare la variable Ws
For Each Ws In Worksheets ' Pour chaque feuille dans le Fichier
Application.ScreenUpdating = False 'Désactivation de la mise à jour de l'écran
If Ws.Name <> "Feuil5" Then ' Si le nom de la Feuille n'est pas "Feuil5"
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
Sub EntetePiedPage()
Dim Ws As Worksheet 'Déclare la variable Ws
For Each Ws In Worksheets ' Pour chaque feuille dans le Fichier
Application.ScreenUpdating = False 'Désactivation de la mise à jour de l'écran
If Ws.Name <> "Feuil5" Then ' Si le nom de la Feuille n'est pas "Feuil5"
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