Je voudrais sauver par VBA un fichier dans un dossier. Mais j'aimerais avant tester si le dossier dans lequel je voudrais enregistrer mon fichier existe déjà. Si ce n'est pas le cas je voudrais créer ce dossier.

sub SaveInMyFolder()
   Dim x As String, strPath As String
   On Error Resume Next
   strPath = "C:\mesdocuments\mondossier"
   x = GetAttr(strPath) And 0
   If Err <> 0 Then
     MkDir strPath
   End If
 
 ActiveWorkbook.SaveAs FileName:=strPath & "" & ActiveWorkbook.Name
 end sub