XL 2016 Modifier en-tête de plusieurs fichiers

[Hubert78]

Bonjour,

J'ai des documents à modifier, une centaine environ.
Ils ont tous la même en tête, je voudrais juste changer un mot dans cette en-tête.

Sauriez-vous comment être le plus efficace possible, sans les modifier un par un?

Merci d'avance !!

Hubert

 

[Robert]

Bonjour Hubert, bonjour le forum,

L'en-tête ne concerne pas un fichier mais un (ou plusieurs) onglets de ce fichier. Un fichier exemple nous permettrait de voir cet en-tête et de te proposer le code adapté...

 

[Hubert78]

Bonjour,

Voici un exemple: l'en tête n'est pas visible sur le fichier (on peut la voir dans Mise en page // en-tête), par contre elle est présente lors de l'impression.

 

[Robert]

Re,

Malheureusement il sont ouverts un par un, modifiés et sauvés...
Essaie comme ça :

Sub Macro1()
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim F As String 'déclare la variable F (Fichier)
Dim CL As Workbook 'déclare la variable CL (CLasseur)

Set CH = "C:\Blablabla1\blablabla2\Blablabla3\" 'définit le chemin d'accès CH (à adapter à ton cas sans oublier le dernier \ à la fin)
F = Dir(CH & "*.xlsx") 'définit le premier fichier xlsx ayant CH comme chemin d'accès (extension à adapter selon ton cas)
Do While F <> "" 'boucle tant qu'il existe des fichiers F
    Set CL = Application.Workbooks.Open(CH & F) 'définit le classeur CL en l'ouvrant
    CL.Worksheets(1).Activate 'active le premier onglet du classeur CL
    'change l'en-tête de l'onglet actif
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .CenterHeader = "00000b"
    End With
    Application.PrintCommunication = True
    CL.Close SaveChanges:=True 'ferme en enregistrant les modifications
    F = Dir 'définit le fichier xlsx suivant ayant CH comme chemin d'accès
Loop 'boucle
End Sub