FAQ: Enregistrer un fichier Excel sous un chemin precis

VBA
1

Bonjour
Question frequemment posee sur Excel:

Comment faire pour enregistrer un fichier Excel sous un nom de son choix mais dans un dossier precis? (par exemple C:\mondossier a la place de Mes Documents)

2

Pour cela on peut utiliser le code suivant:

Sub sauver()
ChDir "C:\mon_dossier"
fichier = Application.GetSaveAsFilename( _
    fileFilter:="Excel Files (*.xls), *.xls")
If fichier <> False Then ThisWorkbook.SaveAs
End Sub