Code VBA enregistrement auto en CSV : choisir le nom du fichier

Bonjour,

J'utilise le code ci-dessous pour enregistrer mon tableau Excel en CSV. J'aimerais qu'il me propose une boite de dialogue pour inscrire le nom du fichier à enregistrer. Avec ce code, le fichier s'appelle toujours "Classeur10"

Quelqu'un aurait-il une solution ?

Sub Save1()

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Classeur10.csv", FileFormat:= _
        xlCSV, CreateBackup:=True, local:=True

End Sub

Merci d'avance.

Bonjour,

à tester,

Sub Save1()
nom = Application.InputBox(prompt:="Inscrire le nom", Title:="Nom du fichier", Type:=2)
If nom <> "Faux" Then
    ActiveWorkbook.SaveAs Filename:= _
        "C:\" & nom & ".csv", FileFormat:= _
        xlCSV, CreateBackup:=True, local:=True
End If
End Sub

Fonctionne parfaitement.

Merci beaucoup