Création de dossier avec VBA

Bonjour,

Je suis novice avec l'utilisation en VBA Excel. J'essaye d'automatiser certaines tâches professionnelles et notamment ma création de dossier.

J'ai tenté plusieurs sites et tutos sur internet mais je n'arrive toujours pas à quelque chose de concluant. Voici le code que j'ai pour l'instant réussi à taper. Est-ce qu'une ou plusieurs personnes saurait me dire ou j'ai pu me tromper ou ce qu'il manque dans mon code svp ?

A chaque test de ma VBA, j'ai un débogage sur la quasiment dernière ligne : MkDir "chemin_dossier"

Merci de votre retour,

Dim chemin_base As String
Dim chemin_dossier As String
Dim noms_str As String
Dim liste_dossiers() As String

'identifier le chemin du dossier dans lequel créer des dossiers
chemin_base = "G:\Drive partagés\59 BUREAU\NouveauChantier\"

'identifier les noms des futurs dossiers
noms_str = "Suivi de Production;CTC;ADP"

'faire une boucle sur les noms des futurs dossiers
liste_dossiers = Split(noms_str, ";")

For i = LBound(liste_dossiers) To UBound(liste_dossiers)

    'constituer le chemin du dossier à créer
    chemin_dossier = chemin_base & liste_dossiers(i)

    'créer le dossier
    MkDir "chemin_dossier"

'fin de la boucle
Next

Salut,

Voici une fonction de Philippe Tulliez

' // CreateSubFolder By Philippe Tulliez le : 16/07/2021
' // Nom du ou des répertoires à créer. Il y a lieu de séparés par un délimiteur s'il y a plus d'un répertoir
Sub CreateSubFolder(ByVal FullPath As String, ByVal RootFolder As String, Optional ByVal Delimiter As String = "\")
    Dim PathName As String
    Dim Tbl As Variant
    Dim Elem As Byte
    If IsMissing(Delimiter) Then Delimiter = Application.PathSeparator
    Tbl = Split(FullPath, Delimiter)
    PathName = RootFolder
    For Elem = 0 To UBound(Tbl)
        PathName = PathName & Delimiter & Tbl(Elem)
        If Dir(PathName, vbDirectory) = vbNullString Then MkDir PathName
    Next
End Sub

Bonsoir,

Merci pour ton retour, j'ai finalement trouvé mes erreurs. Après le MkDir je devais enlever les guillemets de la valeur chemin_dossier. Je devais également enlever dans le chemin de base \Nouveauchantier\.

Bonne soirée,