Sauvegarde du classeur Excel dans emplacement

Bonjour,

Je cherche à enregistrer mon classeur sur un emplacement du mon disque.

Le code ci-dessous fonctionne, mais après exécution le classeur "Actif" devient celui que je viens d'enregistrer alors que je voudrais rester sur le fichier original.

Auriez vous une solution?

Sub Enregistrement()

Date = Range("A11").Value

ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Date & "-Outil.xlsm"

End Sub

Je vous remercie par avance.

Olivier

Bonjour,

Utilisez "SaveCopyAs"

A+

Merci beaucoup et bon week-end à vous :-)