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

[Julien]

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

 

[fodjio]

Salut,

peut-être que ça peut t'aider :

***********************
dim Classeur as Workbook

For Each Classeur In Workbooks

Next
***********************

Cette boucle te permet de parcourir tous les classeurs ouvert.

Tu peux peut-être t'en servir dans ta 2ème Macro...

 

[Julien]

C'est à dire !? Je ne suis pas un pro des macro je débute juste...

ça permet de spécifier que la fenêtre active n'est pas un fichier spécifique mais un des fichiers ouverts ?