Comment lister tous les dossiers et sous-dossiers dans Excel ?

Lorsque vous travaillez sur des tâches de gestion de répertoires ou de fichiers, vous pouvez avoir besoin de récupérer rapidement une liste complète de tous les dossiers et sous-dossiers d'un répertoire spécifique et de visualiser ces informations directement dans Excel. Malheureusement, Excel ne fournit pas de fonction intégrée ni d'assistant simple pour récupérer automatiquement tous les noms de dossiers ou sous-dossiers à partir d'un chemin de dossier désigné. Cet article présente un code VBA — qui vous permet de lister tous les dossiers et sous-dossiers d'un répertoire choisi directement dans votre feuille de calcul. Cela minimise le risque d'erreur humaine et élimine le travail fastidieux, vous aidant ainsi à suivre et gérer rapidement l'organisation de vos données.

Utilisez le code VBA pour lister tous les dossiers et sous-dossiers

Utilisez le code VBA pour lister tous les dossiers et sous-dossiers

Si vous souhaitez extraire et afficher tous les noms de dossiers et sous-dossiers d'un répertoire spécifié dans Excel, utiliser VBA (Visual Basic for Applications) est une solution efficace. Cette approche offre flexibilité et contrôle, vous permettant non seulement d'obtenir les noms des dossiers mais aussi des informations supplémentaires telles que les chemins des dossiers, les dates de création et les dates de dernière modification. Cette méthode convient particulièrement aux utilisateurs à l'aise avec les fonctionnalités du développeur d'Excel et ceux qui travaillent avec des systèmes de fichiers dynamiques ou fréquemment modifiés.

1. Appuyez sur ALT + F11 pour ouvrir l'éditeur "Microsoft Visual Basic for Applications". Cet outil vous permet d'ajouter et de modifier des macros dans votre classeur.

2. Dans l'éditeur VBA, cliquez sur Insertion > Module. Cela créera une nouvelle fenêtre de module. Copiez et collez le code suivant dans le module :

Code VBA : Liste de tous les dossiers et sous-dossiers

Sub FolderNames()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Choose the folder"
    .Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
    xRow = Range("A1").End(xlDown).Row + 1
    Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
    getSubFolder subfld
Next subfld
End Sub

3. Après avoir inséré le code, appuyez sur F5 ou cliquez sur le bouton Exécuter dans l'éditeur VBA pour exécuter la macro. Une boîte de dialogue Choisir le dossier apparaîtra, vous invitant à sélectionner le répertoire cible que vous souhaitez analyser pour les dossiers et sous-dossiers.

4. Sélectionnez le répertoire souhaité et cliquez sur OK. La macro traitera le répertoire et générera un nouveau classeur listant tous les dossiers et sous-dossiers avec leurs chemins complets, répertoire parent immédiat, noms, dates de création et dates de dernière modification comme indiqué ci-dessous :

Cette solution VBA est flexible, ne nécessite pas de modules complémentaires ou de logiciels externes supplémentaires, et crée automatiquement un classeur de sortie pour votre commodité. Cependant, elle convient mieux aux utilisateurs familiers avec les opérations de base des macros, et pourrait nécessiter des ajustements supplémentaires pour des personnalisations spécifiques.

Article connexe :

Comment lister les fichiers d'un répertoire dans une feuille de calcul Excel ?