Création de dossier à partir d'Excel VBA

Bonjour cher Forum!

J'ai de la difficulté avec l'un des codes que j'essaie de mettre en place pour la création de dossier automatisé avec VBA. Avec des recherches j'ai pu trouvé un code que j'ai adapter tous simplement à mon projet. Toute fois, il y a un code d'erreur, il n'est pas capable de lire adéquatement "Thisworkbook.Path". Je sais que le code fonctionne adéquatement pour l'avoir essayer avec un chemin précis. Par-contre je ne peux pas le faire ainsi puisque ce classeur ne se retrouve pas toujours au même endroit d'où l'utilisation de "ThisWordkbook.Path". Je vous joint le code :

Sub Nouveau_dossier()

Dim DA As String

DA = ThisWorkbook.Path & "\441_Architecture\" & ActiveSheet.Name

'identifier le chemin du dossier
If ActiveSheet.Name Like "DC-A*" Then

        'tester existence
        If Dir(DA, vbDirectory) <> vbNullString Then
            'dossier existe
        Else
            'si le dossier n'existe pas, le créer
            MkDir (DA)

        End If

    'Insérer l'enregistrement du pdf

End If

End Sub

L'erreur est indiqué quand il fait le teste si le dossier existe déjà.

Merci d'avance pour votre aide! :)

bonjour,

je ne vois pas d'erreur avec ce code. Quel est le message d'erreur que tu reçois et sur quelle instruction ?