saint_marc
XLDnaute Nouveau
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 rectification 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:
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
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 rectification 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:
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