Parcourir les fichiers d'un dossier en utilisant VBA

[Clippy]

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

[Clippy]

```vba
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 :
```vba
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

```