macro this workbook de sauvegarde

Bonjour à tous
j'ai un problème avec une macro vba dans thisworkbook

celle ci me sauvegarde le fichier en ajoutant le nom du fichier, le chemin,la date de l'enregistrement et supprime l'ancien fichier
ça marche si je le fais une fois, mais si dans la même journée je fais d'autres rectifications alors la , au lieu de me demander voulez vous l'enregistrer, mon fichier est supprimé définitivement sans même que je sache ou il est , ou dans quel dossier

voici cette macro destructrice:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Workbook_BeforeClose(Cancel As Boolean)   Dim Date_du As String   ancien_nom = ActiveWorkbook.Path & "/" & ActiveWorkbook.Name   chemin = Replace(ActiveWorkbook.Path, ":", "_")   chemin = Replace(chemin, "/", "_")   Date_du = " Tintin " & Format(Now, " dd_mm_yyyy") & "_" & chemin & ".xlsm"   On Error GoTo fin   ActiveWorkbook.SaveAs ActiveWorkbook.Path & "/" & Date_du   Kill ancien_nom   fin:   End Sub

---

merci à tous
Michel

Bonjour,
Tu nommes ton document en changeant seulement la date. Or si tu effectues cette opération une deuxième fois dans la journée, le nouveau fichier aura exactement le même nom que l'ancien fichier. N'as tu pas de message d'erreur quand tu enregistres une deuxième fois dans la journée? En effet, normalement, on ne peut pas enregistrer 2 fichiers portant exactement le même nom (chemin inclus).
Tu devrais mettre une condition pour vérifier que le fichier ne porte pas le même nom et aouter un v2 par exemple à la fin. Ou tu ajoutes l'heure, en plus de la date si c'est fréquent que le document soit enregistré plusieurs fois dans la même journée.