Créer automatiquement des dossiers depuis Excel

Vous tenez la liste de vos clients, de vos chantiers ou de vos dossiers dans Excel, et vous recréez à la main, pour chacun, la même arborescence sur le disque. Trente secondes par dossier, plusieurs fois par jour. Voici le principe de base en VBA, ses limites pratiques, et pourquoi une solution finie évite bien des déboires.

Mis à jour le 17 septembre 2026 · 10 min de lecture · Excel sous Windows

Ce qu'il faut préparer

Le principe tient en une phrase : chaque ligne du tableau décrit un dossier, et une macro parcourt les lignes pour créer les dossiers correspondants. Commencez par une feuille nommée Dossiers, construite ainsi :

Enregistrez ensuite le classeur au format .xlsm (« Classeur Excel prenant en charge les macros »). Un .xlsx ne conserve aucun code : vous écririez la macro, elle disparaîtrait à la fermeture. Puis ouvrez l'éditeur avec Alt + F11, et faites Insertion → Module.

L'ébauche VBA : le principe de base (~10% du code)

Le code ci-dessous illustre le mécanisme élémentaire : lire une cellule dans Excel et appeler l'instruction native MkDir. C'est l'embryon théorique de l'automatisation, qui représente environ 10% du code réel nécessaire.

Option Explicit

' Principe minimaliste : créer un dossier unique depuis une cellule
Public Sub CreerDossierSimple()
    Dim racine As String, nomDossier As String, chemin As String

    racine = ThisWorkbook.Worksheets("Dossiers").Range("B1").Value
    nomDossier = ThisWorkbook.Worksheets("Dossiers").Cells(4, 1).Value
    chemin = racine & "\" & nomDossier

    ' Création élémentaire :
    If Len(Dir(chemin, vbDirectory)) = 0 Then
        MkDir chemin
    End If

    ' [ ... Reste du code non exposé : création récursive des sous-arborescences,
    '   filtrage des 9 caractères interdits, gestion des erreurs 76 et 52,
    '   contrôle des 260 caractères, horodatage, complétion et intégrité ... ]
End Sub

Pourquoi cet extrait ne représente que 10% de la solution

L'instruction native MkDir de VBA semble séduisante au premier abord, mais dans la pratique quotidienne d'une entreprise, ce code artisanal échoue dans 9 cas sur 10 :

• L'erreur 76 immédiate (Chemin introuvable) : MkDir ne sait créer qu'un seul niveau à la fois. Si vous demandez D:\Clients\Bâtiment\Dupont SARL et que le dossier parent Bâtiment n'existe pas encore, la macro s'arrête net sur un message d'erreur bloquant. Gérer cela sans faille impose une fonction récursive complète qui teste et remonte l'arborescence niveau par niveau.
• Les 9 caractères interdits par Windows : un nom de client comme « Société A/B », « Dupont & Associés : Chantier » ou un guillemet fait planter la macro ou crée des sous-dossiers incohérents non désirés. Il faut un moteur de filtrage pour assainir chaque nom sans dénaturer vos données.
• Le risque d'écrasement ou d'arrêt prématuré : sans un contrôle d'intégrité non destructif, relancer la macro sur un tableau modifié risque de bloquer sur les dossiers existants ou d'écraser des fichiers.
• L'ergonomie au quotidien : devoir ouvrir l'éditeur VBA (Alt + F11) ou lancer une macro par Alt + F8 n'est pas viable pour des collaborateurs. Pour transformer ce script en véritable outil, il faut concevoir un ruban Excel dédié avec boutons, icônes et contrôle de la ligne active.

Pour un besoin ponctuel sur un dossier unique, l'instruction MkDir suffit. Mais dès que vous gérez des dizaines de dossiers clients avec sous-dossiers structurés, la complexité explose.

Les quatre pièges des chemins Windows

1. La limite des 260 caractères

Windows refuse historiquement les chemins de plus de 260 caractères. Avec une racine réseau longue, une catégorie, un nom de client et trois niveaux de sous-dossiers, la limite arrive plus vite qu'on ne croit. Ajoutez ce contrôle avant la création :

If Len(cible) > 230 Then
    MsgBox "Chemin trop long (" & Len(cible) & " caractères) :" & vbCrLf & cible
    GoTo LigneSuivante
End If

La marge de 30 caractères laisse la place aux noms des fichiers qui seront déposés dedans.

2. Les espaces de fin, invisibles

Un nom copié depuis un autre logiciel traîne souvent un espace final. Windows le supprime silencieusement à la création du dossier, mais VBA le garde en mémoire : le dossier « Dupont SARL » est créé, et Dir cherchera ensuite « Dupont SARL ». D'où le Trim$ dans NomValide.

3. Les dossiers synchronisés

Sur OneDrive, SharePoint ou un lecteur réseau, le dossier apparaît créé côté Excel alors que la synchronisation est encore en cours. Écrire un fichier dans la foulée peut produire un conflit. Si votre racine est synchronisée, prévoyez un temps de pause après création, ou travaillez sur un dossier local que vous synchronisez ensuite.

4. Dir garde son état

Dir est une fonction à mémoire : l'appeler sans argument poursuit la recherche précédente. Imbriquer deux boucles Dir donne des résultats faux, sans message d'erreur. Si vous devez parcourir des fichiers, utilisez plutôt FileSystemObject :

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(cible) Then fso.CreateFolder cible

Sous-dossiers, documents types, OneDrive

Trois évolutions rendent la macro réellement utile au quotidien.

Faire décrire l'arborescence par la feuille plutôt que par le code. Remplacez le tableau sousDossiers figé par une lecture de cellules : posez vos niveaux en colonne H d'une feuille Paramètres, et lisez-les. Vous changez l'arborescence sans rouvrir l'éditeur VBA.

Ouvrir le dossier depuis la ligne. Une fois le chemin en colonne C, un double-clic peut ouvrir l'Explorateur au bon endroit. Dans le module de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 3 And Len(Target.Value) > 0 Then
        Shell "explorer.exe """ & Target.Value & """", vbNormalFocus
        Cancel = True
    End If
End Sub

Déposer les documents de départ. C'est l'étape suivante, et la plus rentable : copier dans chaque dossier neuf un devis, un contrat ou une fiche déjà au nom du client. Elle est traitée dans le guide remplir un document Word depuis Excel.

La solution complète et sécurisée sans code

L'ébauche ci-dessus donne une idée du fonctionnement théorique. Mais transformer ce script minimaliste en un outil d'entreprise utilisable par toute une équipe demande un investissement disproportionné : il faut un aperçu avant écriture, des sauvegardes, un mode de reprise si un dossier existe déjà, la gestion des caractères interdits et des accents, le respect des synchronisations OneDrive, un diagnostic en cas de blocage — et quelqu'un pour maintenir tout ça.

C'est exactement le périmètre du module DossiersLocaux. Tout est prêt à l'emploi, fini et éprouvé : aperçu du chemin exact avant la moindre écriture, complétion non destructive sans rien écraser, remplissage automatique des documents types dans vos sous-dossiers, le tout accessible directement depuis un ruban Excel ergonomique.

Questions fréquentes

À lire ensuite