Créer plusieurs dossiers et sous-dossiers à partir d’une liste de données dans Excel

Supposons que vous disposiez d’une liste de noms de collaborateurs dans une plage de feuille de calcul et que vous souhaitiez créer des dossiers individuels pour chacun afin d’y stocker leurs informations. La création manuelle de chaque dossier peut être chronophage. Cependant, il existe des méthodes efficaces pour accélérer ce processus. Dans ce guide, je vais vous présenter plusieurs approches permettant de générer rapidement des dossiers à partir de valeurs de cellules spécifiques.

Créer des dossiers à partir des valeurs des cellules

• En utilisant la commande MD et le Bloc-notes
• En utilisant une fonctionnalité puissante – Kutools pour Excel
• En utilisant du code VBA

Créer des dossiers et sous-dossiers à partir de valeurs de cellules à l’aide d’un code VBA

Créer des dossiers à partir des valeurs des cellules

Dans cette section, nous explorons en détail différentes méthodes, en vous guidant pas à pas pour créer rapidement et facilement des dossiers à partir d’une liste de valeurs issues de cellules.

Créer des dossiers à partir d’une liste en utilisant la commande MD et le Bloc-notes

Transformer une liste issue d’Excel en dossiers à l’aide de la commande MD et du Bloc-notes est une astuce ingénieuse qui allie la simplicité d’un script batch à la puissance d’organisation d’Excel. Idéale pour générer rapidement de nombreux dossiers sans aucune intervention manuelle, cette méthode vous fait gagner un temps précieux. Voici un guide étape par étape pour l’appliquer :

Étape 1 : Utiliser la commande MD pour Créer des formules

Copiez ou saisissez la formule suivante dans une cellule vide située à côté de votre première valeur (par exemple, en B1), puis faites glisser la poignée de recopie vers le bas pour appliquer la formule à tous vos éléments de liste.

="MD "&A1

Étape 2 : Copier et coller les formules dans un fichier Bloc-notes

1. Appuyez sur « Ctrl + C » pour copier les cellules contenant la formule de la commande MD.
2. Ouvrez le Bloc-notes et appuyez sur « Ctrl + V » pour coller les commandes dans un fichier généré.
   

Étape 3 : Enregistrer le fichier Bloc-notes sous forme de fichier .bat

Cliquez sur « Enregistrer sous » dans l’onglet « Fichier » du Bloc-notes. Dans la boîte de dialogue « Enregistrer sous », sélectionnez un répertoire où vous souhaitez créer plusieurs dossiers, donnez à votre fichier un nom avec l’extension .bat, puis cliquez sur « Enregistrer ». Voir la capture d’écran :

Étape 4 : Double-cliquer sur le fichier .bat pour générer plusieurs dossiers

1. Fermez le fichier Bloc-notes, puis rendez-vous dans le dossier où vous avez précédemment enregistré le fichier .bat.
2. Admirez maintenant la magie : double-cliquez sur le fichier et découvrez plusieurs dossiers créés simultanément. Consultez la démonstration ci-dessous :
   

Créer des dossiers à partir d’une liste à l’aide d’un outil puissant – Kutools pour Excel

Grâce à la puissante fonctionnalité « Créer un dossier à partir d’une plage » de Kutools pour Excel, créez facilement et rapidement des dossiers directement depuis une liste Excel. Mais ce n’est pas tout : Kutools vous permet également de générer en une seule opération des structures complexes comprenant des sous-dossiers multiniveaux. En quelques étapes simples, transformez vos données Excel en un système de dossiers parfaitement organisé et boostez considérablement votre productivité.

Après avoir installé Kutools pour Excel, cliquez sur « KUTOOLS PLUS » > « Importer/Exporter » > « Créer un dossier en fonction de la plage » pour ouvrir la boîte de dialogue Créer un dossier en fonction de la plage :

1. Sélectionnez les valeurs de cellule à partir desquelles vous souhaitez créer des dossiers ;
2. Ensuite, cliquez sur le bouton pour indiquer le dossier de destination dans lequel vous souhaitez enregistrer les dossiers ;
3. Enfin, cliquez sur le bouton OK.
   

Résultat :

Kutools traitera la liste issue de votre feuille et créera un dossier pour chaque entrée dans le répertoire indiqué. Rendez-vous dans le dossier de destination pour visualiser le résultat. Voir la capture d’écran :

Créer des dossiers à partir d’une liste à l’aide d’un code VBA

L’utilisation d’un code VBA dans Excel transforme la tâche fastidieuse de création de dossiers à partir d’une liste en un processus rapide et entièrement automatisé. Cette section vous explique pas à pas comment appliquer un code VBA pour générer vos dossiers en un clin d’œil.

Étape 1 : Ouvrir l’éditeur de module VBA et copier le code

1. Appuyez sur les touches « Alt + F11 » dans Excel pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Cliquez sur « Insertion » > « Module », puis collez le code suivant dans la fenêtre du module.
   Code VBA : Créer des dossiers à partir d’une liste de valeurs de cellules

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Étape 2 : Exécuter le code

1. Après avoir collé ce code, appuyez sur la touche F5 pour l’exécuter. Dans la boîte de dialogue qui s’affiche, sélectionnez les valeurs des cellules à partir desquelles vous souhaitez créer des dossiers, puis cliquez sur OK.
   
2. Ensuite, dans la fenêtre suivante intitulée « Sélectionner le dossier de destination », indiquez le chemin où les dossiers créés seront enregistrés, puis cliquez sur OK. Voir la capture d’écran :
   

Résultat :

Après avoir exécuté le code VBA, rendez-vous dans le répertoire de destination pour consulter les résultats : vous y découvrirez des dossiers fraîchement créés, chacun correspondant à un élément de votre liste Excel. Voir la capture d’écran :

Créer des dossiers et sous-dossiers à partir de valeurs de cellules à l’aide d’un code VBA

Il arrive parfois que vous ayez besoin de générer non seulement des dossiers, mais aussi leurs sous-dossiers respectifs, tous basés sur les données contenues dans des cellules Excel. Pour accomplir cette tâche, je vais vous présenter ici un code VBA.

Étape 1 : Préparer les données

Commencez par saisir les données comme illustré dans la capture d’écran suivante : indiquez les noms des dossiers principaux dans la première colonne et ceux des sous-dossiers dans la deuxième colonne.

Étape 2 : Ouvrir l’éditeur de module VBA et copier le code

1. Appuyez sur les touches « Alt + F11 » dans Excel pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Cliquez sur « Insertion » > « Module », puis collez le code suivant dans la fenêtre du module.
   Code VBA : Créer des dossiers et sous-dossiers à partir de valeurs de cellules

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Étape 3 : Exécuter le code

1. Après avoir collé ce code, appuyez sur la touche F5 pour l’exécuter. Dans la boîte de dialogue qui s’affiche, sélectionnez les valeurs des cellules à partir desquelles vous souhaitez créer des dossiers, puis cliquez sur OK.
   
2. Dans la fenêtre suivante, indiquez le chemin de destination où les dossiers créés seront enregistrés, puis cliquez sur OK. Voir la capture d’écran :
   

Résultat :

Après avoir exécuté le code VBA, rendez-vous dans le répertoire de destination pour consulter le résultat. Vous verrez que les dossiers et leurs sous-dossiers correspondants, tels que définis par les valeurs des cellules, ont été créés avec succès, comme l’illustre la capture d’écran suivante :

Articles associés :