Private Sub Workbook_Open()
Set rech = Application.FileSearch
With rech
.LookIn = "C:\devis"
.FolderName = "*.xls"
If .Execute > 0 Then
MsgBox "SI VOUS RENCONTREZ DES DIFFICULTES D'UTILISATION, veuillez contacter M. DEBUS REMI"
Else
MsgBox "manque correspondance"
Call FermeClasseur
End If
End With
End Sub