XL pour MAC Excel 2016

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
 

Patrice33740

XLDnaute Impliqué
Bonjour,

Essaies :
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ancien_nom$, chemin$, nouveau_nom$
  ancien_nom = ThisWorkbook.Path & "/" & ThisWorkbook.Name
  chemin = Replace(ThisWorkbook.Path, ":", "_")
  chemin = Replace(chemin, "/", "_")
  nouveau_nom = " Tintin " & Format(Now, " dd_mm_yyyy") & "_" & chemin & ".xlsm"
  On Error GoTo fin
  ThisWorkbook.SaveAs ThisWorkbook.Path & "/" & nouveau_nom
  If ancien_nom <> nouveau_nom Then Kill ancien_nom
fin:
End Sub
 

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla