Copier un .xls à l'ouverture

Bonjour à tous,
comme le sujet de ce post l'indique, je souhaite faire une copie d'un fichier .xls lorsque celui-ci est ouvert.
J'ai testé le code suivant :

Private Sub Workbook_Open()

jour = Year(Now) & "_" & Month(Now) & "_" & Day(Now)
heure = "_" & Hour(Time) & "_" & Minute(Time) & "_" & Second(Time)
monfichier = "C:\Users\mdlongpr\OneDrive - GCloud Belgium\Test\" & jour & heure
monfichier = monfichier & ".xls"
ActiveWorkbook.SaveAs Filename:=monfichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

ça fonctionne, j'ai bien une copie créée là où je veux, mais ce fichier s'ouvre tout seul!
je ne veux pas qu'il s'ouvre, je veux continuer à travailler dans mon fichier de base.

Comment faire?
Merci de votre aide!