Code VBA

Public Function CHOIXFICHIER(path As String) As String
Dim filter As String
Dim s_string As String
Dim StrFile As String

'Utilisation :
'Dans Excel : =CHOIXFICHIER('chemin du dossier à inclure')
'Dans une macro : CHOIXFICHIER('chemin du dossier à inclure)

filter = "S1" 'Filtre pour le choix du fichier
s_string = path & "/" & "*" & filter & "*" 'On concatène le filtre avec le chemin du dossier afin de sélectionner le fichier qui contient le nom "S1" (possible avec les opérateurs "*")
StrFile = Dir(s_string)

'Tant que le fichier n'est pas trouvé, la boucle tourne.

    Do While Len(StrFile) > 0
        Debug.Print StrFile
        StrFile = Dir
        CHOIXFICHIER = StrFile
        'Lorsque le fichier est trouvé, le résultat sort dans "CHOIXFICHIER".
    Loop

End Function