Sub Recherche_Fichier2()
Dim Rep As Object
Dim Fichier As Object
Dim Chemin As String
Chemin = "C:\Documents and Settings\Coordonateur\Mes documents\hh" ' à adapter.
Set Rep = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Rep.Files
Workbooks.Open Filename:=Fichier
'Unload Me
If InStr(ActiveWorkbook.Name, " ") = 0 Then
Run ActiveWorkbook.Name & "!Module1.bb" ' si pas d'espace dans le nom du fichier
Else
Run "'" & ActiveWorkbook.Name & "'" & "!Module1.bb" 'si espace dans le nom du fichier
End If
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Next
End Sub