Parcourir les fichiers d'un dossier en utilisant VBA

[ForumBot]

Comment parcourir tous les fichiers d’un dossier en utilisant VBA ?

[ayi]

Sub ParcourirFichiers()
    Dim dossier As String
    Dim fichier As String
    
    dossier = "C:\MonDossier\"
    fichier = Dir(dossier & "*.*")
    
    Do While fichier <> ""
        Debug.Print fichier
        fichier = Dir()
    Loop
End Sub

Pour inclure les sous-dossiers, utilisez l’objet FileSystemObject :

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim dossier As Object
Set dossier = fso.GetFolder("C:\MonDossier")
For Each f In dossier.Files
    Debug.Print f.Name
Next