Macro définir emplacement de l’enregistrent

Bonjour, je cherche le code pour choisir l'emplacement de sauvegarde d'un fichier, sachant j'ai déjà tout le code pour la partie enregistrement! Manque plus que l'emplacement !

Bonjour gri2, le forum,

Un essai...

Dim chemin As String, nom As String
   chemin = "C:\Users\maison\Desktop\Nouveau dossier\" '............. à adapter
   nom = ThisWorkbook.Name
  ThisWorkbook.SaveCopyAs (chemin & nom)

Cordialement,

Re j'ai testé mais ça ne fonctionne pas, le fichier a juste le nom du chemin + le nom que je lui définit avec une variable, mais il ne s'enregistre pas au bon endroit voila mon bout de programme réadapté, merci d'avance!

Dim Wbk As Workbook
Set Wbk = ActiveWorkbook

    Dim chemin As String, nom As String
   chemin = "T:\MBE_Maintenance\Maintenance Bout Froid\Planchon Bernard\enregistrement controle calibres"
   nom = cc
  Wbk.SaveAs (chemin & nom)

Re,

• Sauf erreur, il doit manquer un "\" après calibre....
• A quoi correspond cc ?

Cordialement,

Merci c’était bien le "/"

CC est une variable définissant le nom en fonction du moi (que j'ai set plus haut)

Merci infiniment!

A+