Sub ChercheFichier()
Dim Chemin As String, Fichier As String, MonApp As Object, Present As Integer
NomIncomplet = [B3]
Present = 0
Rep = CurDir & "\" 'Définit le répertoire contenant les fichiers, c'est à dire la directory courante
'Boucle sur tous les fichiers du répertoire.
Fichier = Dir(Rep)
Do While Fichier <> ""
' Si le nom du fichier contient le morceau de nom cherché alors
If Fichier Like "*" & NomIncomplet & "*" = True Then
Set MonApp = CreateObject("Shell.Application")
Chemin = Rep & Fichier
MonApp.Open (Chemin)
Set MonApplication = Nothing
Present = 1
Exit Sub
End If
Fichier = Dir
Loop
If Present = 0 Then MsgBox " Désolé, le fichier " & FileName & " n'existe pas dans ce dossier."
End Sub