Macro sur plusieurs fichiers

Bonjour à tous !

Je souhaiterais appliquer une macro sur plusieurs fichiers la macro est la suivante :

Sub GEDRG()
'
' GEDRG Macro
'Dévérouiller feuille "COMPTE1"
ActiveSheet.Unprotect ("vbaged")
Range("CE4").Select
ActiveCell.FormulaR1C1 = "=R3C2&""RG"""
ActiveSheet.Protect ("vbaged")
End Sub

En faite je souhaiterais que la macro ouvre chaque fichiers du répertoire suivant :

C:\Users\Liod\Desktop\CRG A MODIFIER\2017

et exécute la macro susmentionnée.

Je crois qu'Excel doit ouvrir chaque fichiers individuellement exécuter la macro et refermer les fichiers.

Dois-je obligatoirement faire une liste des fichiers présents dans le répertoire.

Cordialement.

Bonjour Liod, bonjour le forum,

Essaie comme ça :

Sub GEDRG()
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim F As String 'déclare la variable F (Fichier)
Dim CL As Workbook 'déclare la variable CL (CLasseur)

CA = "C:\Users\Liod\Desktop\CRG A MODIFIER\2017\" 'définit le chemin d'accès CA
F = Dir(CA & "*.xlsx") 'attention adapter l'extension ! 'définit le premier fichier xlsx ayant CA comme chemin d'accès
Do While F <> "" 'exécute tant qu'il existe des fichiers
    Workbooks.Open CA & F 'ouvre le fichier F
    Set CL = ActiveWorkbook 'définit le classeur CL
    CL.ActiveSheet.Unprotect ("vbaged") 'déprotège l'onglet actif
    CL.ActiveSheet.Range("CE4").FormulaR1C1 = "=R3C2&""RG""" 'écrit la formule dans CE4 de l'onglet actif
    CL.ActiveSheet.Protect ("vbaged") 'protège l'onglet actif
    CL.Close True 'ferme le classeur en enregistrant les modifications
    F = Dir 'prochain fichier xlsx ayant CA comme chemin d'accès
Loop 'boucle
End Sub

ThauThème a écrit :

Bonjour Liod, bonjour le forum,

Essaie comme ça :

Sub GEDRG()
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim F As String 'déclare la variable F (Fichier)
Dim CL As Workbook 'déclare la variable CL (CLasseur)

CA = "C:\Users\Liod\Desktop\CRG A MODIFIER\2017\" 'définit le chemin d'accès CA
F = Dir(CA & "*.xlsx") 'attention adapter l'extension ! 'définit le premier fichier xlsx ayant CA comme chemin d'accès
Do While F <> "" 'exécute tant qu'il existe des fichiers
    Workbooks.Open CA & F 'ouvre le fichier F
    Set CL = ActiveWorkbook 'définit le classeur CL
    CL.ActiveSheet.Unprotect ("vbaged") 'déprotège l'onglet actif
    CL.ActiveSheet.Range("CE4").FormulaR1C1 = "=R3C2&""RG""" 'écrit la formule dans CE4 de l'onglet actif
    CL.ActiveSheet.Protect ("vbaged") 'protège l'onglet actif
    CL.Close True 'ferme le classeur en enregistrant les modifications
    F = Dir 'prochain fichier xlsx ayant CA comme chemin d'accès
Loop 'boucle
End Sub

Merci ça fonctionne à merveille! Et j'ai maintenant un peu compris comment faire par contre j'ai un seul bémol mais c'est au niveau de mes fichiers... Y'a certains fichiers qui ont sont liés avec un fichier n'existe plus d'ailleurs du coup ça bloque à chaque fois la macro juste pour ces fichiers .

Y'a t'il un moyen pour rompre les liens de plusieurs fichiers dans ce répertoire d'un coup ?

Re,

Je sais pas faire ça mais essaie avec l'enregistreur de macro, tu devrais avoir la solution...