[VBA] tester l'existence d'un fichier dans un dosier

Bonjour,
Je butte sur un test :
comment tester l'existence d'un fichier X dans un dossier Y ?
Merci d'avance

Re-bonjour ,

Une fonction VB à adapter à ton cas:

Public Function FichierValide(ByVal avChemin As Variant) As Boolean
Dim voFileSystem As Object
vbResultat = True
If Len(Nz(avChemin, "")) = 0 Then
FichierValide = False
Else
Set voFileSystem = CreateObject("Scripting.FileSystemObject")
FichierValide = voFileSystem.FileExists(avChemin)
Set voFileSystem = Nothing
End If
End Function

Si tu as deux variables pour le chemin et le fichier, regroupe-les en une
seule (n'oublie pas le entre les deux).

Bonne continuation

Merci Gilles, je vais tester rapidement !

"Gilles MOUGNOZ" <gmougnoz@hotmail.fr> a écrit dans le message de news:
eCNOXflfGHA.1204@TK2MSFTNGP02.phx.gbl...

Bonjour,
Je butte sur un test :
comment tester l'existence d'un fichier X dans un dossier Y ?
Merci d'avance

Re-bonjour ,

Une fonction VB à adapter à ton cas:

Public Function FichierValide(ByVal avChemin As Variant) As Boolean
Dim voFileSystem As Object
vbResultat = True
If Len(Nz(avChemin, "")) = 0 Then
FichierValide = False
Else
Set voFileSystem = CreateObject("Scripting.FileSystemObject")
FichierValide = voFileSystem.FileExists(avChemin)
Set voFileSystem = Nothing
End If
End Function

Si tu as deux variables pour le chemin et le fichier, regroupe-les en une
seule (n'oublie pas le entre les deux).

Bonne continuation

Bonjour,
Set fc = CreateObject("Scripting.FileSystemObject")
ChDir "c:Dossier"
If fc.fileexists("TonFichier.xls") Then
Traitements
.......
.......
End If

Cordialement
Abed_H

Bonjour,
Je butte sur un test :
comment tester l'existence d'un fichier X dans un dossier Y ?

Merci d'avance

Merci Abed,

je n'ai pas encore testé mais je vais essayer aujourd'hui !
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news: BC57144E-E766-4A41-92CB-922D18936A14@microsoft.com...

Bonjour,
Set fc = CreateObject("Scripting.FileSystemObject")
ChDir "c:Dossier"
If fc.fileexists("TonFichier.xls") Then
Traitements
.......
.......
End If

Cordialement
Abed_H

Bonjour,
Je butte sur un test :
comment tester l'existence d'un fichier X dans un dossier Y ?

Merci d'avance

Le plus simple (trouve-je) :

If Dir(LeCheminEtLeFichier)<>"" Then etc.

Dir renvoie un chaine vide s'il ne trouve rien à l'emplacement fourni en paramètre.

----------
Ange Ounis
----------

Bonjour,
Je butte sur un test :
comment tester l'existence d'un fichier X dans un dossier Y ?

Merci d'avance