Enregistrer un fichier Excel sous VBA

Bonjour,

J'essaie d'enregistrer ce fichier Test.xlsm sous Test.xlsx avec le code ci-dessous, mais rien ne se passe lorsque la fenêtre Enregistrer sous s'ouvre et je clique sur enregistrer, le fichier n'est pas enregistré sous .xlsx.

Sub EnregistrerSous()

Dim Fichier As String

On Error Resume Next

ChDir "C:\User\Mes documents\Mars 2021\Test.xlsm"
Fichier = Application.GetSaveAsFilename(fileFilter:="Classeur Excel (*.xlsx), *.xlsx")

End Sub

Merci par avance pour votre retour.

Salut,

Dim objSaveBox As FileDialog
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
With objSaveBox
.InitialFileName = "Z:\Soumission -PROJETS\" & " - SOUMISSION.xlsx"
.FilterIndex = 1
.Show
.Execute
End With

Si tu veux saver en .xlsm

Dim objSaveBox As FileDialog
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
With objSaveBox
.InitialFileName = "Z:\Soumission -PROJETS\" & " - SOUMISSION.xlsm"
.FilterIndex = 2
.Show
.Execute
End With

Bonjour jbeaudoin,

Ca fonctionnemerci bien .