Adapter ma macro

Bonjour à tous,

Je reviens vers vous aujourd'hui pour un petit coup de main sur une adaptation que je n'arrive pas à faire sur une macro.

Voila, je vais vous expliquer la bête!! lol, pas d’inquiétude y a rien de plus bien complexe ....

J'ai réussi à trouver une macro qui génère automatiquement un dossier, avec des sous-dossiers à l'intérieur.

L'ensemble est crée au même endroit depuis lequel se trouve le fichier Excel (si il est sur le bureau alors les dossiers seront crées sur le bureau également).

La colonne (A) indique le nom du dossier parent.

Les colonnes suivantes renseignent les noms des sous-dossiers et c'est à ce niveau que je rencontre un petit problème!!

En effet, pour nommer mes sous-dossiers les cellules fonctionnent par paires. Du coup, dans mon fichier exemple, le contenu de B et C donne le nom du premier sous-dossier mais moi je voudrais qu'ensuite le nom du sous-dossier suivant soit formé par le contenu de D et E mais c'est n'est pas le cas, la macro reprend le contenu de C et celui de D^^

C'est la qu'il doit falloir faire une modification. J'ai fais des essais en rajoutant des valeurs a j mais sans succès!!

Si quelqu'un peut me filer un petit coup de pouce, ça serait super sympa!!

Je vous joint mon fichier pour que vous ayez un visuel du rendu actuel.

UN GRAND MERCI D'AVANCE A TOUS......

Bonjour

Pour essayer de comprendre

Pourquoi tes lignes n'ont pas un nombre pair de cellules ?

Si le nom de tes répertoires sont composé de 2 cellules donc pour la ligne 2 on aura sd1 sd2 et sd3 et ........???????

Donnes des exemples d'arborescence que tu veux

Exemple

Répertoire principal 1

• sous répertoire
• - sous répertoire
• -- Sous répertoire

- sous répertoire

Répertoire principal 3

• sous répertoire
• - sous répertoire

Emploies les bons noms des répertoires

Bonjour,

Un peu confuse la question et encore plus les noms retenus pour les dossiers

Cdlt.

Public Sub CreationRepertoirest()
Dim Chemin As String
Dim i As Long, j As Integer

    Application.ScreenUpdating = False
    Chemin = ActiveWorkbook.Path & Application.PathSeparator
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        MkDir Chemin & Cells(i, 1)
        For j = 2 To Cells(i, Columns.Count).End(xlToLeft).Column Step 2
            MkDir Chemin & Cells(i, 1) & "\" & Cells(i, j) & Cells(i,j+1)
        Next j
    Next i

End Sub

Bonsoir Jean Eric!

Voilà c'est exactement ce que je cherchais à obtenir!!

Un grand MERCI à vous, super réponse comme toujours sur Forum^^

Et désolé pour la question un peu confuse..... je pensais pas l'être mais à croire que c'était pas le cas?!

Un rand merci encore à vous pour vous êtes penchés sur mon sujet