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

Supposons que vous disposiez d'une liste de noms d'employés dans une plage de feuilles de calcul et que vous souhaitiez créer des dossiers individuels pour chacun afin de stocker ses informations. La création manuelle de chaque dossier peut prendre du temps. Il existe cependant des méthodes efficaces pour accélérer ce processus. Dans ce guide, je partagerai plusieurs approches pour générer rapidement des dossiers en fonction des valeurs de cellule spécifiées.

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 for Excel
• En utilisant du code VBA

Créez des dossiers et des sous-dossiers basés sur les valeurs de cellules avec le code VBA

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

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

Créez des dossiers à partir d'une liste à l'aide de la commande MD et du Bloc-notes

Transformer une liste d'Excel en dossiers à l'aide de la commande MD et du Bloc-notes est une astuce intelligente qui mélange des scripts par lots simples avec le talent d'Excel pour garder les choses organisées. Cette méthode est idéale pour créer rapidement de nombreux dossiers, sans avoir à tout faire à la main. Voici un guide étape par étape pour accomplir cette tâche :

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

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

="MD "&A1

Étape 2 : Copiez et collez les formules dans un fichier Bloc-notes

1. Appuyez sur « Ctrl + C » pour copier les cellules avec la formule de 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 le répertoire dans lequel vous souhaitez créer plusieurs dossiers, puis attribuez un nom à ce fichier avec l'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, accédez au dossier dans lequel vous avez précédemment enregistré le fichier .bat.
2. Maintenant, soyez témoin de la magie : double-cliquez sur le fichier et vous verrez plusieurs dossiers créés en même temps. Voir la démo ci-dessous :
   

Créez des dossiers à partir d'une liste à l'aide d'un outil puissant - Kutools for Excel

Grâce à la puissante fonctionnalité « 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 Kutools ne se limite pas aux dossiers de base ; il vous permet également de créer en une seule fois des structures complexes avec des sous-dossiers à plusieurs niveaux. Quelques étapes simples suffisent pour transformer les données Excel en un système de dossiers organisé, augmentant ainsi considérablement votre productivité.

Après avoir installé Kutools pour Excel, cliquez 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 de cellule sur lesquelles vous souhaitez créer des dossiers ;
2. Ensuite, cliquez sur le bouton pour spécifier le dossier de destination dans lequel 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 la destination spécifiée. Accédez au dossier de destination pour voir le résultat. Voir capture d'écran :

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

L'utilisation du 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 le code VBA pour générer des dossiers.

Étape 1 : Ouvrez l'éditeur de module VBA et copiez le code

1. Maintenez les touches « ALT + F11 » enfoncées dans Excel et la fenêtre « Microsoft Visual Basic pour Applications » s'ouvre.
2. Cliquez sur « Insérer » > « Module » et collez le code suivant dans la fenêtre du 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 l'exécuter. Dans la boîte de dialogue, sélectionnez les valeurs des cellules à partir desquelles vous souhaitez créer des dossiers. Cliquez ensuite sur OK.
   
2. Ensuite, dans la fenêtre « Sélectionner le dossier de destination », indiquez le chemin de destination pour les dossiers créés. Cliquez ensuite sur le bouton OK (voir 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. Vous y trouverez les dossiers nouvellement créés, chacun correspondant à un élément de votre liste Excel. voir capture d'écran :

Créez des dossiers et des sous-dossiers basés sur les valeurs de cellules avec le code VBA

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

Étape 1 : préparer les données

Tout d’abord, vous devez saisir les données comme illustré ci-dessous, placer les noms des dossiers principaux dans la première colonne et les noms des sous-dossiers dans la deuxième colonne.

Étape 2 : Ouvrez l'éditeur de module VBA et copiez le code

1. Maintenez les touches « ALT + F11 » enfoncées dans Excel et la fenêtre « Microsoft Visual Basic pour Applications » s'ouvre.
2. Cliquez sur « Insérer » > « Module » et collez le code suivant dans la fenêtre du module.
   Code VBA : créer des valeurs de cellule basées sur des dossiers et des sous-dossiers

   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, sélectionnez les valeurs des cellules à partir desquelles vous souhaitez créer des dossiers. Cliquez ensuite sur OK.
   
2. Dans la fenêtre suivante, indiquez le chemin de destination des dossiers créés. Cliquez ensuite sur le bouton OK (voir capture d'écran).
   

Résultat:

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

Articles connexes: