Sub Essai_Chemin()
Dim Chemin As String, MonDossier As String, NomFichier As String
Chemin = "C:\" 'A adapter
MonDossier = "a\dossier\Semaines\" 'A adapter
NomFichier = [A4] & ".xlsm"
ChDrive "C:"
ChDir Chemin & MonDossier
Fichier = Application.GetSaveAsFilename(NomFichier, "Fichiers Excel (*.xlsm), *.xlsm")
ActiveWorkbook.SaveAs Fichier
End Sub