Je viens de tester, avec succès, un bout de code VBA qui me permet de vérifier si il existe un fichier dont je ne connais que le début et l'extension.
Chemin correspond par exemple à C:\Documents\
Debut peut être les premières lettres du fichier
extention correspond à la fin du fichier par exemple doc, xls, jpg,....

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
      If (Len(Dir("Chemin\Debut*.extention"))) > 0 Then
               ‘Il existe au moins 1 fichier correspondant à cette recherche
      Else
               ‘Il n’existe aucun fichier correspondant à cette recherche
      endif
Si vous souhaitez utiliser la fonction left(Chaine,X) ou Chaine correspond à une chaine de caractères et X au nombre de lettres que vous souhaitez garder de cette chaine de caractères en commençant par la gauche, le code devient alors :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
      If (Len(Dir("Chemin\" & left(Chaine,X) & "*.extention"))) > 0 Then
               ‘Il existe au moins 1 fichier correspondant à cette recherche
      Else
               ‘Il n’existe aucun fichier correspondant à cette recherche
      endif
Si vous trouvez une erreur dans ces bouts de codes, n'hésitez pas à me le faire savoir....pour l'instant il fonctionne dans mon petit programme