XL 2019 Vérification si dossier existe et création s'il n'existe pas

[youguybass]

Bonsoir à tous
Je souhaiterais par le code ci-joint, Vérifier si un dossier existe.

S'il n'existe pas, il faut le créer et enregistrer un PDF à l'intérieur
S'il existe il faut juste enregistrer le pdf

Avec Dir(DosRacine & DosDépot) = "" Then ...
Le code fonctionne quand le dossier n'existe pas, mais par contre il ne fonctionne pas quand le dossier existe, il ne détecte pas que celui-ci existe

Avec Dir(DosRacine & DosDépot) <> "" Then ...
Le code ne fonctionne pas quand le dossier n'existe pas, mais par contre il fonctionne quand le dossier existe.

Dans l'attente de vos retour et merci d'avance également pour le temps passé

Cordialement

Sub CréatPDFCommande()
Dim NumCom As String, DosDépot As String, DosRacine As String, An%, Fournisseur

Fournisseur = Page17_2Commandes.ComboBox1

NumCom = TextBox26       ' Num Commande
An = Left(Split(NumCom, " ")(1), 4) 'Récupère l'année de la commande

'DosRacine = "I:\Chevalerias\"' // Peut-être à adapter
DosRacine = "D:\Guillaume\Fichiers xls\"     ' // Peut-être à adapter

DosDépot = "Commandes " & An        ' // Nom du dossier de dépot voulu




MsgBox DosDépot
MsgBox DosRacine & DosDépot

    ' // On teste si le dossier existe sinon on le crée
If Dir(DosRacine & DosDépot) = "" Then
        MsgBox "Ce dossier n'existe pas"
    MkDir DosRacine & DosDépot
        MsgBox "Création du dossier " & DosDépot
End If

      
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DosRacine & DosDépot & "\" & NumCom & " _ " & Fournisseur & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
        

    End Sub

 

[Dranreb]

Bonsoir.
Essayez On Error Resume Next: ChDrive DosRacine: ChDir DossRacine & DossDépot
If Err Then MkDir DosRacine & DosDépot: ChDir DossRacine & DossDépot

 

[ChTi160]

Bonsoir le Fil
peut être avec ceci !

Dim cheminDossier As String
cheminDossier = DosRacine & "\" & DosDepot  ' Assure le \ entre les deux

If Dir(cheminDossier, vbDirectory) = "" Then
    MkDir cheminDossier
End If
'Dir() sans paramètre ne retourne que les fichiers
'Dir(..., vbDirectory) retourne [fichiers + dossiers

Bonsoir
Jean marie

 

[youguybass]

Bonsoir et merci pour vos retour
Les 2 codes que vous m'avez envoyés me donne satisfaction
Merci pour vous retour.

Cordialement