Bonjour,
(VBA EXEL 2003)

Je cherche à vérifier qu'un nom de fichier existe.
J'utilise un test voir code ci-dessous.

Je dois vérifier que le fichier Exemple : LD-OD-C02020.xls existe
Si dans le répertoire de recherche, j'ai un fichier ZZZ-LD-OD-C02020.xls ou LD-OD-C02020-1.xls, le test est considéré comme vrai à la place de faux

Quelle est la méthode pour faire ce test ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function existe(ByVal adresse As String, ByVal nom As String) As Boolean
 
'Objectif : vérifier l'existence d'un fichier dont l'adresse et le nom sont fournies par les
'variables adresse et nom.
 
  With Application.FileSearch               'recherche le fichier excel
    .NewSearch                              'nommé exactement "nom"
    .LookIn = adresse                       'localisé par "adresse"
    .SearchSubFolders = False
    .Filename = nom
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() > 0 Then         'si le fichier est trouvé alors la fonction renvoie vraie sinon la réponse est faux.
      existe = True
    Else
      existe = False
    End If
  End With
 
End Function