Macro pour tous les fichiers d'un dossier (et non un fichier spécifique)...

Bonjour tout le monde !

Voilà j'ai un problème, j'ai réussi à créer une macro qui ouvre tous les fichiers d'un dossier et après grâce à une boucle à appliquer une 2ème macro à tous ces fichiers. Mon problème est le suivant comment je peux spécifier dans ma 2ème macro qu'elle doit s'appliquer à tous les fichiers (ou l'un après l'autre, ou un fichier par un fichier) et non à un fichier spécifique !?

En clair à la place de Windows("PR158070o.xls").Activate qu'est ce que je dois mettre ??? Y a t'il moyen de spécifier tous les fichiers à la place de PR158070o.xls ???

Merci !


Pour exemple le début de ma macro :

ChDir "I:\SHRRESO\CEP_PROD\Cep05\137\1371"
Workbooks.Open FileName:= _
"\\PARDFS01\Shared\SHRRESO\CEP_PROD\Cep05\137\1371\Master MW 05.xls", _
UpdateLinks:=0

ChDrive "I"
ChDir "I:\SHRRESO\CEP_PROD\Cep05\137\1371\Test"
Workbooks.Open Dir("\\PARDFS01\Shared\SHRRESO\CEP_PROD\Cep05\137\1371\Test\*.XLS"), UpdateLinks:=0

CEP = Dir()
While CEP <> ""
Workbooks.Open CEP, UpdateLinks:=0
CEP = Dir()
Wend

Windows("Macro CEP 2005.XLS").Activate

For i = 1 To Application.Workbooks.Count - 1
If ActiveWorkbook.Name <> "Macro CEP 2005.XLS" Then
Macro1
Else: Application.ActiveWindow.ActivateNext
End If
Next

End Sub

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/12/04 by Julien Maneval
'
' Keyboard Shortcut: Ctrl+a
'
' Mise en forme du fichier
' Worksheet 1


Windows("PR158070o.xls").Activate
Sheets("Renseignements").Select
ActiveSheet.Unprotect Password:="xxxx"
Windows("Master MW 05.xls").Activate
Sheets("Renseignements").Select
Range("D2").Select
Selection.Copy
Windows("PR158070o.xls").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Master MW 05.xls").Activate
Sheets("Renseignements").Select
Range("G2").Select
Selection.Copy
Windows("PR158070o.xls").Activate
...