bonjours,
si tes fichiers sont identiques (mêmes tableaux),
tu mets ta macro dans un fichier excel sous un répertoire de travail
tu crée sous ce répertoire un répertoire "données" dans lequel tu places tous tes fichiers à traiter.
retour à la macro :
tu fais débuter celle-ci par :
Dim chemin As String
Dim chemindonnées As String
Dim nomfichier As String
chemin = ThisWorkbook.Path & "\"
chemindonnées = ThisWorkbook.Path & "\Données\"
nomfichier = ActiveWorkbook.Name
'
Set fs = Application.FileSearch
With fs
.LookIn = chemindonnées
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
' ligne suivante peut être mise en commentaire après la validation
MsgBox "Ce dossier contient " & .FoundFiles.Count & _
" fichier(s) répondant aux critères."
For i = 1 To .FoundFiles.Count
fichierlu = .FoundFiles(i)
' MsgBox .FoundFiles(i)
Workbooks.Open FileName:=fichierlu
fenêtrelue = ActiveWorkbook.Name
Sheets(1).select
"""ici tu exécutes ta macro""
ActiveWindow.Close SaveChanges:=True
next i
End With
End Sub
Cela devrait marcher si je n eme suis pas trompé
A+
Eric
'
