Word Création de dossier si inexistant et enregistrement auto en pdf

[jozerebel]

Bonjour à tous,

J'ai un un doc Word qui lance une macro à la fermeture du doc pour vérifier si un dossier est présent sur le c/, le créer si besoin, puis qui génère un pdf et enfin qui le copie colle dans un autre répertoire.

Lorsque le dossier n'est pas créé, la macro fonctionne bien et crée le dossier. Par contre, lorsque le dossier est déjà créé, la macro plante...

Une idée pour m'aider?

Le fichier en PJ.

Cdt et bonne journée !

 

[kiki29]

Salut, à adapter à ton contexte

Sub CreationDossier_Shell()
Dim sDossier As String
Dim sChaine As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Sub

sinon plus lourd

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, _
                                              ByVal pszPath As String, _
                                              ByVal lngsec As Long) As Long

Option Explicit

Private Function CreationDossier(sDossier As String) As Long
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function

Sub CreationDossier_01()
Dim sDossier As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    CreationDossier sDossier
End Sub

 

[jozerebel]

Merci kiki29 !!!