Please Help sur VBA

Fermé
raffimarseille Messages postés 28 Date d'inscription samedi 2 février 2002 Statut Membre Dernière intervention 9 mars 2003 - 25 mars 2002 à 12:19
Marmot Messages postés 579 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 17 août 2006 - 25 mars 2002 à 20:42
Salut tout le monde.
Je voudrais savoir comment tester l'existance d'un fichier dans un repertoire.
Quelqu'un pourrait-il m'aider ?
Merci !

1 réponse

Marmot Messages postés 579 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 17 août 2006 69
25 mars 2002 à 20:42
Recherche de fichiers dont les noms commencent par "Fac"

Sub ChercheFichier()
Set fs = Application.FileSearch
With fs
.LookIn = "D:\Epuiset" .FileName = "Fac*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

J'ai trouvé mon bonheur sur http://dj.joss.free.fr et dans la collection de liens qu'il propose
0