Je suis novice dans l'utilisation du VBA d'Excel et je me demandais si vous pouviez m'aider à trouver une solution.

Je cherche donc à créer une feuille de calcul Excel qui créera une structure de dossiers à un certain endroit.

La création d'une structure de dossier bit j'ai résolu en utilisant le code de ce qui suit :

Création de dossiers et de sous-dossiers avec une macro VBA

Le problème que je rencontre est de définir l'emplacement à partir d'une cellule, J'ai essayé d'utiliser ce qui suit pour définir le chemin :

Dim strFolders As String
strFolders = Worksheets("Sheet1").Cells(7, "A").Value

qui forme ce code ensemble

Sub CreateFolderStructure()
    Dim objRow As Range, objCell As Range, strFolders As String

    For Each objRow In ActiveSheet.UsedRange.Rows
        Dim strFolders As String
            strFolders = Worksheets("Sheet1").Cells(7, "A").Value
        For Each objCell In objRow.Cells
            strFolders = strFolders & "\" & objCell
        Next
        Shell ("cmd /c md " & Chr(34) & strFolders & Chr(34))
    Next
End Sub

Malheureusement, ce n'est pas aussi simple que cela. J'obtiens une erreur de déclaration en double, mais je ne comprends pas où (ni pourquoi, alors n'hésitez pas à me l'expliquer).

Naturellement, je m'attends à ce que l'insertion du chemin d'accès dans une cellule crée également ce dossier (ou une erreur due à '/'), donc je cherche également une solution pour cela (mais je me concentre sur le problème que j'ai devant moi pour le moment), je pensais peut-être créer un menu contextuel où vous pourriez les définir, je ne suis pas exactement sûr de la difficulté, mais je suis encore en train d'apprendre les ficelles du métier pour le moment, donc je me concentre sur quelque chose de facile pour le moment.

Je laisse cette question ouverte ici pendant que je continue à chercher une solution moi-même. Si je trouve une réponse, je ne manquerai pas de la mettre à jour !

Merci.