Code VBA
unknown
vbscript
a year ago
792 B
7
Indexable
Never
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