Discussion :

[michel delorme]

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

[riaolle]

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.