Sub Openfile()
Dim dossier As Object, fichier As Object
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)
For Each fichier In dossier.Files
If fichier.Name <> ThisWorkbook.Name And InStr(fichier.Name, ".xls") <> 0 Then
Workbooks.Open (fichier)
End If
Next fichier
End Sub