CRÉER UN DOSSIER DANS UN RÉPERTOIRE AVEC VBA

bonsoir chers tous, 

j'ai besoin de vos lumières en VBA 

je veux écrire une procédure VBA permettant de créer un dossier dans lequel seront sauvegardés des fichier pdf.

Ce dossier doit se trouver dans le même emplacement ( même répertoire) que le  fichier excel contenant Ce code VBA.

si ce dossier n'existe pas il doit être créé à la première tentative de sauvegarde d'un fichier.

s'il existe déjà (notamment pour les sauvegardes suivantes) pas besoin de le créer.

j'ai essayé deux procédures ( voir codes vba dans le module1)

procédure1 :    Sub creation_dossier1()

procédure2 :    Sub creation_dossier2()

Comme vous pourrez le constater la procédure1 marche parfaitement à condition que le fichier EXCEL reste au même emplacement.

  je la trouve limitée car l'emplacement du fichier excel (C:\Users\AFRIMARKET\Desktop) ne sera plus le même si on l'utilise sur un autre ordinateur.

la procédure 2 qui m’intéresse le plus ne fonctionne pas ( le dossier ne se crée pas).

je pense que le problème vient de la syntaxe : cheminDossier = ThisWorkbook.Path & "\" & dossier_archive2

aidez moi s'il vous plait