Sub ouvrirfichiers()
'déclaration des variables
Dim fichier As String, chemin As String
Dim wb As Workbook
'récupération du répertoire
chemin = ActiveWorkbook.Path & "\"
fichier = Dir(chemin & "*")
Do While fichier <> ""
Set wb = Workbooks.Open(chemin & fichier)
'code à exécuter dans le fichier ouvert
wb.Close False
Set wb = Nothing
fichier = Dir
Loop
End Sub