Macro - emplacement d'enregistrement d'un fichier

Bonjour,

J'ai créé une macro qui génère un fichier CSV, cependant le souci est qu'il s'enregistre à un endroit aléatoire de mon ordinateur. Mon fichier s'appelle "Maison" et je souhaite le placer dans "Papiers de la maison".

Pour l'instant j'ai fait ca mais il s'enregistre à un endroit étrange :

Dim SaveName As String
SaveName = "Maison.csv"

Lorsque je fais : C:\Users\Lisa\Desktop\Papiers de la maison\Maison.csv ca ne marche plus du tout. Pouvez-vous m'aider svp ?

Pour info la suite de mon code est :

Windows("Maison").Activate
Sheets("Travaux").Select
Cells.Select
Range("A10000").Activate
Selection.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Select
ActiveWorkbook.SaveAs Filename:=SaveName, FileFormat:=xlCSV, local:=True, CreateBackup:=False

Edit modo : code mis entre balises, merci d'y faire attention la prochaine fois

Bonjour Lisa,

Merci de mettre le code entre balises SVP, avec le bouton </>

Voici le code qu'il vous faut (normalement)

Sub EnrCSV()
  Dim SaveName As String, sChemin As String
  ' Récupérer le chemin du bureau
  sChemin = CreateObject("WScript.Shell").SpecialFolders("Desktop")
  ' Ajouter le nom du dossier
  sChemin = sChemin & "\Papiers de la maison\"
  ' Si le dossie n'existe pas, le créer
  If Dir(sChemin, vbDirectory) = "" Then MkDir sChemin
  ' Nom du fichier
  SaveName = "Maison.csv"
  ' Copier la feuille dans un nouveau classeur
  Workbooks("Maison").Sheets("Travaux").Copy
  ' Enregistrer ce classeur en CSV dans le dossier prévu
  ActiveWorkbook.SaveAs Filename:=sChemin & SaveName, FileFormat:=xlCSV, local:=True, CreateBackup:=False
End Sub

A+