Bonjour à tous,
Je suis nouveau sur ce forum donc vais probablement faire des erreurs dans ma communication.
Je souhaiterai créer une routine permettant de "sauvegarder sous".
En fait cela semble évident sauf si, je souhaite après l'exécution revenir dans le fichier d'origine
Si j'exécute la routine ci-dessous, je me retrouve dans le nouveau fichier alors que je voudrai être dans le premier. A chaque exécution, un fichier clone doit être créer. Pouvez-vous mm'aider.
Merci infiniment,
Pierre
Sub Save()
'Pour si tu annules, qu'il n'affiche pas le message d'erreur
On Error Resume Next
tim = Now
datmois = Format(tim, "mmm")
datjour = Format(tim, "dd")
datan = Format(tim, "yy")
datheur = Format(tim, "hhmmss")
ActiveWorkbook.SaveAs Filename:="C:\Users\Pierre\sauvegarde\" & datheur & datjour & datmois & ".xlsm"
End Sub