Enregistrer copie sans macro

Bonjour,

J'ai un formulaire avec 2 macros, 1 pour enregistrer une copie et 1 pour réinitialiser le formulaire.

Je souhaiterai que ma première macro enregistre une copie sans les macros pour éviter de supprimer toutes les données en faisant une fausse manip'

Mon code actuel (emplacement et nom du fichier dans la feuille) :

Sub Enregistre()
'Engristrer copie sous le dossier correspondant
    ActiveWorkbook.SaveCopyAs Range("J2").Value & "\" & Range("G3").Value & Range("H3") & " Passation" & ".xls"
End Sub

J'utilise Excel 2016. J'ai essayé de passer le format en .xlsx sans succès.

Merci de votre aide

Bonjour, avec SaveAs au lieu de SaveCopy

Sub Enregistre()
'Engristrer copie sous le dossier correspondant
    ActiveWorkbook.SaveAs Filename:= _Range("J2").Value & "\" & Range("G3").Value & Range("H3") & " Passation" & ".xlsx",FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub

En supposant qu'en J2 c'est l'adresse du chemin vers le disque ? C:\users\.....

Merci.
Oui J2 est bien l'adresse vers le disque.

Ta solution semble marche, par contre j'ai une fenêtre qui s'affiche. Est-il possible de valider par "oui" automatiquement ?

Le même code ne marcherait pas avec SaveCopyAs ?
Ca m'arrange de l'enregistrer mais de rester sur la feuille d'origine.

Non finalement, ça ne marche pas. Ca enregistre et rend utilisable les macros.