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

Supposons que vous ayez une liste de noms de membres du personnel dans une plage de feuille de calcul et que vous souhaitiez créer des dossiers individuels pour chacun afin de stocker leurs informations. Créer chaque dossier manuellement peut être chronophage. Cependant, il existe des méthodes efficaces pour accélérer ce processus. Dans ce guide, je partagerai plusieurs approches pour générer rapidement des dossiers basés sur les valeurs spécifiées des cellules.

Créer des dossiers basés sur les valeurs des cellules

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

Créer des dossiers et sous-dossiers basés sur les valeurs des cellules avec un code VBA

Créer des dossiers basés sur les valeurs des cellules

Dans cette section, nous explorerons en détail diverses méthodes, offrant des instructions étape par étape complètes pour créer rapidement et facilement des dossiers basés sur une liste de valeurs de cellules.

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

Transformer une liste d'Excel en dossiers en utilisant la commande MD et le Bloc-notes est une astuce intelligente qui combine un script batch simple avec la capacité d'Excel à garder les choses organisées. Cette méthode est excellente pour créer beaucoup de dossiers rapidement, sans avoir à tout faire manuellement. Voici un guide étape par étape pour accomplir cette tâche :

Étape 1 : Utilisez la commande MD pour créer des formules

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

="MD "&A1

Étape 2 : Copiez et collez 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 nouveau fichier.
   

Étape 3 : Enregistrez le fichier Bloc-notes en tant que fichier .bat

Cliquez sur "Enregistrer sous" dans l'onglet "Fichier" du Bloc-notes, dans la boîte de dialogue "Enregistrer sous", choisissez un répertoire où vous souhaitez créer plusieurs dossiers, puis donnez un nom à ce fichier avec une extension .bat. Enfin, cliquez sur le bouton "Enregistrer". Voir la capture d'écran :

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

1. Fermez le fichier Bloc-notes, naviguez jusqu'au dossier où vous avez précédemment enregistré le fichier .bat.
2. Maintenant, observez la magie : double-cliquez sur le fichier, et vous verrez plusieurs dossiers créés en une seule fois. Voir la démonstration ci-dessous :
   

Créer des dossiers à partir d'une liste en utilisant un outil puissant – Kutools pour Excel

Avec la fonctionnalité puissante "Créer des dossiers à partir du contenu des cellules" de Kutools pour Excel, vous pouvez désormais créer facilement et rapidement des dossiers à partir d'une liste Excel. Mais cela ne s'arrête pas aux dossiers de base ; Kutools permet également de créer des structures complexes avec des sous-dossiers multi-niveaux en une seule fois. Quelques étapes simples peuvent transformer des données d'Excel en un système de dossiers organisé, augmentant considérablement votre productivité.

Après avoir installé Kutools pour Excel, veuillez cliquer sur "Kutools Plus" > "Importer / Exporter" > "Créer des dossiers à partir du contenu des cellules" pour ouvrir la boîte de dialogue "Créer des dossiers à partir du contenu des cellules" :

1. Sélectionnez les valeurs des cellules à partir desquelles vous souhaitez créer des dossiers ;
2. Ensuite, cliquez sur le bouton pour spécifier le dossier de destination où vous souhaitez enregistrer les dossiers ;
3. Enfin, cliquez sur le bouton OK.
   

Résultat :

Kutools traitera la liste de votre feuille et créera un dossier pour chaque entrée dans le répertoire de destination spécifié. Accédez au dossier de destination pour voir le résultat. Voir la capture d'écran :

Créer des dossiers à partir d'une liste en utilisant un code VBA

Utiliser un code VBA dans Excel peut transformer la tâche fastidieuse de création de dossiers à partir d'une liste en un processus rapide et automatisé. Cette section vous montrera comment appliquer un code VBA pour générer des dossiers.

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

1. Maintenez les touches "ALT + F11" enfoncées dans Excel, et cela ouvre la fenêtre "Microsoft Visual Basic for Applications".
2. Cliquez sur "Insérer" > "Module", et collez le code suivant dans la fenêtre Module.
   Code VBA : Créer des dossiers basés sur 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 exécuter ce code. Dans la boîte de dialogue qui apparaît, sélectionnez les valeurs des cellules à partir desquelles vous souhaitez créer des dossiers. Puis, cliquez sur OK.
   
2. Ensuite, dans la fenêtre "Sélectionner le dossier de destination" qui apparaît, spécifiez le chemin de destination pour enregistrer les dossiers créés. Puis, cliquez sur le bouton 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 voir le résultat. Là, vous trouverez les nouveaux dossiers créés, chacun correspondant à un élément de votre liste Excel. Voir la capture d'écran :

Créer des dossiers et sous-dossiers basés sur les valeurs des cellules avec un code VBA

Occasionnellement, vous pourriez vous retrouver dans une situation où vous devez générer non seulement des dossiers, mais aussi leurs sous-dossiers correspondants, tous basés sur les données contenues dans les cellules Excel. Pour accomplir cette tâche, voici un code VBA que je vais introduire.

Étape 1 : Préparer les données

Tout d'abord, vous devez entrer les données comme indiqué dans la capture d'écran suivante, placez les noms des dossiers principaux dans la première colonne et les noms des sous-dossiers dans la deuxième colonne.

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

1. Maintenez les touches "ALT + F11" enfoncées dans Excel, et cela ouvre la fenêtre "Microsoft Visual Basic for Applications".
2. Cliquez sur "Insérer" > "Module", et collez le code suivant dans la fenêtre Module.
   Code VBA : Créer des dossiers et sous-dossiers basés sur les valeurs des 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 exécuter ce code. Dans la boîte de dialogue qui apparaît, sélectionnez les valeurs des cellules à partir desquelles vous souhaitez créer des dossiers. Puis, cliquez sur OK.
   
2. Dans la fenêtre contextuelle suivante, spécifiez le chemin de destination pour enregistrer les dossiers créés. Puis, cliquez sur le bouton OK, voir la capture d'écran :
   

Résultat :

Après avoir exécuté le code VBA, allez dans le répertoire de destination pour voir le résultat. Vous constaterez que les dossiers et leurs sous-dossiers respectifs, dictés par les valeurs des cellules, ont été créés avec succès comme le montre la capture d'écran suivante :

Articles connexes :