Sortie de programme

Question

Bonjour , j'ai ecris le bout de code suivant qui vise à trouver l'emplacement d'un fichier ( ici de type xlsx et nommé "ICI" soit ici.xlsx ) placé l'importe ou dans un dossier ou un sous dossier de mon bureau , en faisant tourner le code il marche puisque l'emplacement du fichier est trouvé pour cela j'ai ecris une fonction de type récursive , petit soucis , lorsque l'emplacement est trouvé je ne peux pas quitter une fonction avec un exit sub , j'ai essayé un goto end mais ca continu de boucler .

Function visite(x As String, y As String) As Variant
 Dim fso As Object
 Set fso = CreateObject("scripting.filesystemobject")

    Set dossier = fso.getfolder(x).subfolders
      For Each dossier In dossier
       Set fichier = fso.getfolder(dossier).Files
         For Each fichier In fichier
          If fso.getfilename(fichier) = y Then
            MsgBox "fichier trouvé à cet emplacement :" & fichier  ' je voudrais quitter le programme ici dès que ce message s'affiche
          End If
         Next
         visite fso.getfolder(dossier), y
      Next
  End Function

Sub mxx()   ' code qui me permet de lancer ma fonction pour trouver l'emplacement du fichier porté en variable y  dans ma fonction
Dim chemin As String
chemin = "c:\users\" & Environ("username") & "\desktop"
visite chemin, "ici.xlsx"
End Sub

Auriez vous une petite idée de la facon de faire pour quitter la fonction une fois le message de l'emplacement obtenu?

Merci.

AlgoPlus · Accepted Answer

Exit Sub fonctionne pour une Sub, mais là c'est une fonction !! . ( Function visite .....) Dons essayer Exit Function A+...