Différence Saveas et Savecopyas

Bonjour,

j'ai un petit soucis de programmation avec le code suivant

Sub Sauvegarde_sur_ordre()
Dim chemin As String
Dim fichier As String

chemin = Range("Chemin").Text

fichier = Range("Nom_Classeur").Text & " " & "le" & " " & Format(Now, "dd-mm-yyyy" & " à " & _"hh""h""mm") & " " & "" & ".xlsx"


Application.DisplayAlerts = False
ActiveWorkbook.SaveAs chemin & fichier, FileFormat:=xlOpenXMLWorkbook
End Sub

Quand j'utilise saveas j'ai un enregistrement qui s'effectue comme un "enregistrer sous"
mais avec savecopyas ça ne fonctionne pas et ce qui m'interesse c'est une copie.

Auriez vous une solution ?

Par avance merci