Je cherche à savoir si un fichier est présent dans le répertoire en cours et dans ses sous-répertoires. Comment faire par vba excel 2010 ?
Je cherche à savoir si un fichier est présent dans le répertoire en cours et dans ses sous-répertoires. Comment faire par vba excel 2010 ?
Salut, voir Manipulation des fichiers en VBA avec FSO.FileExists ou via Recherche recursive en utilisant le FSO
En étant en Late Binding et non comme dans les exemples en Early Binding : Early ou Late Binding
Je ne vois pas comment tester l'existence d'un fichier dans un répertoire clairement. Est-ce :
?
Code : Sélectionner tout - Visualiser dans une fenêtre à part if oFSO.FileExists("D:\Essai\MonFichier.txt")
Salut, au plus basique, en Late Binding ( pas de références à cocher )
Salut, voir également : Liste des fichiers d'un dossier : Win 32/64 Bits
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 Option Explicit Sub Tst() Dim FSO As Object, sFichier As String sFichier = "D:\Essai\MonFichier.txt" Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists(sFichier) Then MsgBox "le fichier existe" Else MsgBox "le fichier n'existe pas" End If Set FSO = Nothing End Sub
Bonjour à tous,
Je sais que cette discussion est résolue, mais personnellement, j'utilise :Où FichierTrouve = le nom du fichier, s'il existe, sinon, FichierTrouve=""
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 FichierRecherche="C:\répertoire\Fichier.ext" FichierTrouve = Dir$(FichierRecherche, vbNormal)
Voilà, c'était juste pour proposer une autre façon de faire.
Je ne sais pas si elle est réellement "correcte" mais chez moi, ça fonctionne nikel...
Denis...
Windows 7, 8 et 10 / Debian / RaspBian / AutoCAD 3D 2023
Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse. (Moi)
Un clavier azerty en vaut deux (developpez.net).
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager