Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Parcourir les fichiers d'un dossier en utilisant VBA

ayi

<p>Comment parcourir tous les fichiers d’un dossier en utilisant VBA ?</p>

ayi_2

<pre data-code-wrap="vba"><code class="lang-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

</code></pre>
<p>Pour inclure les sous-dossiers, utilisez l’objet FileSystemObject :</p>
<pre data-code-wrap="vba"><code class="lang-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

</code></pre>