Discussion :

[pasclaire]

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

[fred65200]

bonjour,
je te propose la fonction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Existe(CheminComplet As String) As Boolean
Existe = Dir(CheminComplet) <> ""
End Function

ou si tu préfères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pasclaire]

bonjour,

Merci pour ton aide Fred,
Ta solution ne fonctionne pas en office 2003.

[fred65200]

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

[pasclaire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fred65200]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+