Discussion :

[juju05]

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 ?

[kiki29]

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

[juju05]

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")

?

[kiki29]

Salut, au plus basique, en Late Binding ( pas de références à cocher )

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

Salut, voir également : Liste des fichiers d'un dossier : Win 32/64 Bits

[DenisHen]

Bonjour à tous,

Je sais que cette discussion est résolue, mais personnellement, j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
FichierRecherche="C:\répertoire\Fichier.ext"
FichierTrouve = Dir$(FichierRecherche, vbNormal)

Où FichierTrouve = le nom du fichier, s'il existe, sinon, FichierTrouve=""

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...