Enregistrer sous et vider un formulaire

Enregistrer sous sans ouvrir le classeur

Bonjour à tous,

J'ai un formulaire "Fiche", dans lequel j'ai créer un bouton qui permet de faire un enregistrer sous avec le nom du fichier et la date ("Fiche date du jour"), j'ai donc utilisé le code suivant:
ChDir "E:\DOCS\......"
ActiveWorkbook.SaveAs Filename:= _
"E:\DOCS\.....\Fiches " & Day(Date) & "." & Month(Date) & "." & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Ainsi, avec ce code je ferme le fichier "Fiche" et j'ouvre le fichier "Fiche date du jours".
Quel est le code à ajouter pour ne pas ouvrir ce nouveau classeur "Fiche date du jours", et rester dans le classeur initial "Fiche".

Merci pour votre aide.