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. Actualités Ctrl + C pour copier les cellules avec la formule de commande MD.
2. Ouvert 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 Enregistrer sous du Déposez votre dernière attestation dans le Bloc-notes, dans l'onglet Enregistrer sous dans la boîte de dialogue, choisissez un répertoire dans lequel vous souhaitez créer plusieurs dossiers, puis donnez un nom à ce fichier avec un .bat extension. Enfin, cliquez sur Épargnez bouton. 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

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

Après l'installation de Kutools for Excel, Cliquez s'il vous plait Kutools Plus > Import / Export > Créer des dossiers à partir du contenu des cellules ouvrir le Créer des dossiers à partir du contenu des cellules boite de dialogue:

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 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 la touche ALT + F11 clés dans Excel, et il ouvre le Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.
   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, veuillez appuyer sur F5 clé pour exécuter ce code. Dans la zone d'invite, sélectionnez les valeurs de cellule à partir desquelles vous souhaitez créer des dossiers. Et puis, cliquez OK.
   
2. Puis, dans ce qui suit Sélectionnez le dossier de destination fenêtre, spécifiez le chemin de destination pour sortir les dossiers créés. Et puis, cliquez OK bouton, 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 la touche ALT + F11 clés dans Excel, et il ouvre le Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.
   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, veuillez appuyer sur F5 clé pour exécuter ce code. Dans la zone d'invite, sélectionnez les valeurs de cellule à partir desquelles vous souhaitez créer des dossiers. Et puis, cliquez OK.
   
2. Dans la fenêtre contextuelle suivante, spécifiez le chemin de destination pour afficher les dossiers créés. Et puis, cliquez OK bouton, voir capture d'écran:
   

Résultat:

Après avoir exécuté le code VBA, accédez au répertoire de destination pour voir le résultat. Vous constaterez que les dossiers et leurs sous-dossiers respectifs, comme dicté par les valeurs des cellules, ont été créés avec succès comme illustré ci-dessous :

Articles connexes: