XL 2021 chemin dossiers

Function DossierExiste(NomDossier As String) As Boolean 'vrai ou faux
' //  remplaces le signe - par le signe =
DossierExiste -Dir(NomDossier, vbSystem + vbDirectory + vbHidden) <> ""
End Function

Option Explicit
Function DossierExiste(NomDossier As String) As Boolean    'vrai ou faux
    DossierExiste = Dir(NomDossier, vbDirectory) <> ""
End Function

Sub createFolder()
    Dim CheminDossier As String
    CheminDossier = Environ("userprofile") & "\Desktop\archives"
    If DossierExiste(CheminDossier) Then
        MsgBox " le dossier :" & CheminDossier & " existe déjà!!"
    Else
        If MsgBox(" êtes vous sur de vouloir créer ce dossier", vbYesNo + vbCritical, "creation de dossier") = vbYes Then
            MkDir CheminDossier
        End If
    End If
End Sub