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 : Sélectionner tout - Visualiser dans une fenêtre à part
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