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.