Vérifier qu'un fichier existe

[sim]

Bonjour,
J'aimerais, dans un tableau excel, vérifier qu'un fichier sur le disque dur (c:\test.txt) existe.
N'ayant aucune connaissance en VB, merci de ne pas me perdre dans les explications

Bonne journée

 

[sousou]

Voici un code qui vérifie que le fichier test.txt existe
Attention avec ce type de code qui donne accès au système de fichier.
et qui force les contrôle naturels


Sub test()
Set objet = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set monfichier = objet.getfile("c:\windows\bureau\test.txt")
traitementerreur
MsgBox monfichier.Name
On Error GoTo 0
End Sub

Sub traitementerreur()
If Err = 0 Then Exit Sub
MsgBox ("Ce fichier n'existe pas")
End Sub

 

[Chris]

Je cherchais également ce genre de macro pour vérifier la présence de tel ou tel classeur excel.
Mais Sousou précise qu'il faut faire attention, mais à quoi ?

 

[Zon]

Salut,

Le Filesystemobject n'est pas nécessaire quand il existe des fonctions pour cela en VBA :

Function FichierExiste(NomF$) As Boolean
On Error Resume Next
FichierExiste = ((GetAttr(NomF) And vbDirectory) = 0)
End Function

Sub Test()
MsgBox IIf(FichierExiste("c:\windows\bureau\test.txt"), "Le fichier existe", "Le fichier n'existe pas ")
End Sub



A+++

 

[Ti]

on peut aussi faire tout simplement

FichierExiste = Dir(Fichier) <> ""

 

[Chris]

Merci !