Vérification de l'existance d'un dossier

Bonjour à toutes et à tous.

Pouvez-vous m'aider une nouvelle fois svp.

Le code si dessous me renvoie un message d'erreur d'accès Chemin/Fichier 75.

Ce code doit vérifier qu'à l'endroit ou se trouve le fichier si le répertoire "Backup" existe. S'il n'existe pas il crée le répertoire et enregistre le fichier dans le backup, sinon il l'enregistre directement dans le Backup.

Sub test()

CheminSource = ThisWorkbook.Path

If Dir(CheminSource & "\Backup") = "" Then

MkDir (CheminSource & "\" & "Backup")

name1 = Format(Date, "yyyymmdd") & ThisWorkbook.Name

Namepath = ThisWorkbook.Path & "\" & "Backup\" & name1

ActiveWorkbook.SaveAs Filename:=Namepath, FileFormat:=xlNormal, Password:="", WriteResPassword:="",

ReadOnlyRecommended:=True, CreateBackup:=False

Else

name1 = Format(Date, "yyyymmdd") & ThisWorkbook.Name

Namepath = ThisWorkbook.Path & "\" & "Backup\" & name1

ActiveWorkbook.SaveAs Filename:=Namepath, FileFormat:=xlNormal, Password:="", WriteResPassword:="",

ReadOnlyRecommended:=True, CreateBackup:=False

End If

End Sub

Merci d'avance.

Bonjour

A tester

Sub test()

  CheminSource = ThisWorkbook.Path
  On Error Resume Next
  MkDir CheminSource & "\" & "Backup"
  On Error GoTo 0
  name1 = Format(Date, "yyyymmdd") & ThisWorkbook.Name
  Namepath = ThisWorkbook.Path & "\" & "Backup\" & name1
  ActiveWorkbook.SaveAs Filename:=Namepath, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
                          ReadOnlyRecommended:=True, CreateBackup:=False
End Sub

Un gros merci Banzai64.

Ca marche niquel.