Ok, j'ai trouvé Je vais utiliser Application.FileSearch
"José" a écrit dans le message news: brjql3$nnl$
Bonjour Existe t'il un moyen de tester la présence d'un fichier sur le disque dur et
s'il n'existe pas faire apparaître un message ?
Frédéric Sigonneau
Bonsoir,
FileSearch, c'est l'artillerie lourde !.. La fonction Dir peut faire le même travail beaucoup plus 'économiquement' si tu connais le chemin complet du fichier dont tu veux vérifier l'existence :
Sub testFich() Dim Fich$ Fich = "D:dossierautrele fichier.ext" If Dir(Fich) = "" Then MsgBox "ce fichier n'existe pas" End Sub
Sinon (ie si tu veux vérifier l'existence d'un fichier dont tu ne connais que le nom), une méthode beaucoup plus rapide que FileSearch dans ces modules :
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ChercherFichier.txt ou http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/RechercheFichier3.txt
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour Existe t'il un moyen de tester la présence d'un fichier sur le disque dur et s'il n'existe pas faire apparaître un message ?
Bonsoir,
FileSearch, c'est l'artillerie lourde !.. La fonction Dir peut faire le même
travail beaucoup plus 'économiquement' si tu connais le chemin complet du
fichier dont tu veux vérifier l'existence :
Sub testFich()
Dim Fich$
Fich = "D:dossierautrele fichier.ext"
If Dir(Fich) = "" Then MsgBox "ce fichier n'existe pas"
End Sub
Sinon (ie si tu veux vérifier l'existence d'un fichier dont tu ne connais que le
nom), une méthode beaucoup plus rapide que FileSearch dans ces modules :
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ChercherFichier.txt
ou
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/RechercheFichier3.txt
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour
Existe t'il un moyen de tester la présence d'un fichier sur le disque dur et
s'il n'existe pas faire apparaître un message ?
FileSearch, c'est l'artillerie lourde !.. La fonction Dir peut faire le même travail beaucoup plus 'économiquement' si tu connais le chemin complet du fichier dont tu veux vérifier l'existence :
Sub testFich() Dim Fich$ Fich = "D:dossierautrele fichier.ext" If Dir(Fich) = "" Then MsgBox "ce fichier n'existe pas" End Sub
Sinon (ie si tu veux vérifier l'existence d'un fichier dont tu ne connais que le nom), une méthode beaucoup plus rapide que FileSearch dans ces modules :
http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/ChercherFichier.txt ou http://perso.wanadoo.fr/frederic.sigonneau/code/Fichiers/RechercheFichier3.txt
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour Existe t'il un moyen de tester la présence d'un fichier sur le disque dur et s'il n'existe pas faire apparaître un message ?
