XL 2016 Modifier en-tête de plusieurs fichiers

Hubert78

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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.
 

Fichiers joints

Robert

XLDnaute Barbatruc
Re,

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

VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas