Test FileSearch nom exacte

Version imprimable

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:

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

bonjour,
je te propose la fonction suivante
Code:

1 2 3 Function Existe(CheminComplet As String) As Boolean Existe = Dir(CheminComplet) <> "" End Function
ou si tu préfères
Code:

1 2 3 Function Existe(Racine As String, NomClasseur As String) As Boolean Existe = Dir(Racine & Application.PathSeparator & NomClasseur) <> "" End Function
De plus, je crois que FileSeach n'est plus utilisé dans Excel 2007.
Cordialement

06/02/2009, 14h32
pasclaire

bonjour,

Merci pour ton aide Fred,
Ta solution ne fonctionne pas en office 2003.
06/02/2009, 14h37
fred65200

re
j'utilise cette fonction depuis de nombreuses années.
Vérifie si tu n'as pas des doubles / (application.pathseparator)
@+

re,

Voila le résultat d'une msgbox

Call MsgBox(Racine & Application.PathSeparator & NomClasseur & " Condition :" & Existe2, vbExclamation)

C:\Autodoc\OD\LD-OD-C02020.xlt Condition :Faux

Le chemin correspond bien au fichier existant.
La réponse est toujours faux :(
Code:

1 2 3 4 5 6 Function Existe2(Racine As String, NomClasseur As String) As Boolean Existe2 = Dir(Racine & Application.PathSeparator & NomClasseur) <> "" Call MsgBox(Racine & Application.PathSeparator & NomClasseur & " Condition :" & Existe2, vbExclamation) End Function

Code:

1
2
3
4
5
6
Sub Test
MsgBox "le fichier existe = " & Existe("C:\Autodoc\OD\LD-OD-C02020.xlt")
End Sub
Function Existe(CheminComplet As String) As Boolean
Existe = Dir(CheminComplet) <> ""
End Function

06/02/2009, 15h48
pasclaire

Merci Fred,

J'ai même pas vue que J'avais un fichier .xlt à la place d'un fichier .xls