Sub VerifDossier()
If ExisteClassseur("c:\alpha\fichier1.xls") = False Then
msgbox"pas de fichier " & "fichier1.xls",vbinfo
else:
msgbox"fichier1.xls existant",vbinfo
end if
If ExisteClassseur("c:\alpha\fichier2.xls") = False Then
msgbox"pas de fichier " & "fichier2.xls",vbinfo
else:
msgbox"fichier2.xls existant",vbinfo
end if
End Sub