XL 2016 Enregistrer feuille active dans un autre classeur

[sams96]

Bonjour à Tous ,
j'ai un classeur nommé " classeur 1" , dans ce classeur j ai une macro , mon problème est le suivant :
Quand j active ma macro , mes résultats s'affichent sur la feuille 1 ,
une fois que ces résultats s affiche , je veux crée une copie de ses résultats dans un autre classeur et sous un autre nom en utilisant "Application.GetSaveAsFilename"
sans modifier le nom de mon "classeur 1"

j 'ai essayé plusieurs fois mais j arrive pas à trouver mon erreur ,

Voila le code que j ai essayé d'appliquer , mais ça marche pas :

'Save the workbook
ActiveWorkbook.SaveAs Filename

Dim ActSheet As Worksheet
Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFileType As String
Dim NewFile As String
'Variable declaration
Dim sOldFile As String
Dim sNewFile As String
Application.ScreenUpdating = False ' Prevents screen refreshing.

CurrentFile = ThisWorkbook.FullName

NewFileType = "Excel Files 1997-2003 (*.xls), *.xls," & _
"Excel Files 2007 (*.xlsx), *.xlsx," & _
" Excel Files 2016 (*.xlsx), *.xlsx," & _
"All files (*.*), *.*"

NewFile = Application.GetSaveAsFilename( _
InitialFileName:=NewFileName, _
fileFilter:=NewFileType)

If NewFile <> "" And NewFile <> "False" Then
ActiveWorkbook.SaveAs Filename:=NewFile, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
Set ActBook = ActiveWorkbook
Workbooks.Open CurrentFile
sOldFile = popo & "\" & "Classeur1.xlsm"

sNewFile = popo & "\" & "Classeur1.xlsm"
ActBook.Close
End If

Application.ScreenUpdating = True


End Sub