Sauvegarder un fichier xlsm en xlsx par VBA

Bonjour,

J’ai un fichier Excel au format .xlsm que je voudrais le sauvegarder au format .xlsx sous un autre nom

Sub Button4_Click()
nf = "test"
   sChemin = ThisWorkbook.Path
   With Application.FileDialog(msoFileDialogFolderPicker)
      .InitialFileName = sChemin & "\"
      .Title = "Sélectionner le dossier de destination ..."
      .AllowMultiSelect = False
      .InitialView = msoFileDialogViewDetails
      .ButtonName = "Sélection destination"
      .Show
      If .SelectedItems.Count > 0 Then
         Destination = .SelectedItems(1) & "\"   ''
      End If
   End With
   Application.EnableEvents = False
   With ActiveSheet
      .Copy
      With ActiveWorkbook
         .SaveAs Filename:=Destination & nf, FileFormat:=xlOpenXMLWorkbook
         .Close
      End With
   End With
   Application.EnableEvents = True
End Sub

Se code fonction bien mais le seule souci, Je ne veux pas que le nom du fichier soit spécifié sur code

je voudrai que le code insérer le nom de fichier depuis la cellule C2

Merci

Bonjour,

remplace nf = "test" par nf = [C2].value
eric