Option Explicit
Sub Boucle_Fichiers_Dossier()
'ouvrir à partir de ce fichier tous les fichiers excel se trouvant dans le même répertoire
Dim Fichier As String, Chemin As String, Wb As Workbook
Chemin = ThisWorkbook.Path
Fichier = Dir(Chemin & "\*.xls*")
'boucle pour ouvrir les fichiers excel uniquement
Do
If Fichier = "" Then Exit Do
If Fichier <> "MonFichier.xlsm" Then ' adapter le nom du fichier maître
Set Wb = Workbooks.Open(Chemin & "\" & Fichier)
'suite de la procedure
MsgBox Fichier & " est ouvert"
Application.DisplayAlerts = False
Wb.Close True
Application.DisplayAlerts = True
Set Wb = Nothing
End If
Fichier = Dir()
Loop
End Sub