Comment créer des dossiers à partir d'un tableau Excel

Les feuilles de calcul Excel peuvent automatiser la création de multiples dossiers. Une méthode consiste à créer un script utilisant des plages de données et la commande batch « md ». Une autre utilise une macro via la fonction MkDir, composant de Microsoft Excel VBA, offrant flexibilité et gain de temps. N'incluez que des noms de dossiers valides : pas de guillemets, ni des caractères « , », « / », « : », « * », « ? », « < », « > », « | ».

Utilisation d'un fichier batch

Étape 1

Placez vos noms de dossiers dans une seule colonne. Cliquez sur l'en-tête de colonne et tapez « NOMDOSSIERS » dans le champ de nom à côté de la barre de formule.

Étape 2

Ajoutez une colonne vide à gauche de la colonne « NOMDOSSIERS » : clic droit sur l'en-tête > « Insérer ».

Étape 3

Sélectionnez la première cellule de la colonne vide. Dans la barre de formule, entrez : ="md "&NOMDOSSIERS et copiez vers le bas.

Étape 4

Ouvrez un éditeur de texte brut (Bloc-notes) et créez un nouveau document. Collez le code suivant au début, en remplaçant « C:\Temp » par le chemin complet du dossier où vous voulez créer les dossiers (ex. « D:\Chansons ») :
@echo off
cd "C:\Temp"

Étape 5

Revenez à Excel. Clic droit sur l'en-tête de la colonne contenant les formules « md » > « Copier ». Retournez dans l'éditeur de texte et collez à la suite. Le fichier ressemble à :
@echo off
cd "c:\Temp"
md nomdossier1
md nomdossier2
..

Étape 6

Enregistrez le fichier sur le Bureau sous « CreerDossiers.bat ». Double-cliquez pour l'exécuter. Vos dossiers sont créés.

Utilisation d'une macro

Étape 1

Ouvrez le classeur Excel. Maintenez « Alt » et appuyez sur « F8 » pour ouvrir la fenêtre Macros.

Étape 2

Saisissez « CreerDossiers » sous « Nom de la macro » et cliquez « Créer ». L'éditeur VBA s'ouvre.

Étape 3

Copiez-collez le code suivant dans l'éditeur :
Sub CreerDossiers()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

Étape 4

Enregistrez le fichier en tant que classeur avec macros : « Fichier » > « Enregistrer sous » > choisissez « Classeur Excel avec macros » comme type. Cliquez « Enregistrer ».

Étape 5

Sélectionnez les cellules contenant les noms de dossiers. Maintenez « Alt » + « F8 », double-cliquez sur « CreerDossiers ». Les dossiers sont créés.

Astuce

La macro crée les dossiers dans le même répertoire que le classeur actif. Pour les créer dans le répertoire du classeur contenant la macro, remplacez toutes les occurrences de « ActiveWorkbook » par « ThisWorkbook » dans le code.

Avertissement

Sous Excel 2007, l'onglet « Développeur » et la fenêtre Macros ne sont pas accessibles par défaut. Pour l'activer : bouton Office > « Options Excel » > « Populaire » > cochez « Afficher l'onglet Développeur dans le Ruban » > « OK ».