Macro this workbook

[saint_marc]

Bonjour a Tous
je rencontre un petit problème de macro placee dans thisworkbook qui me permettait d’enregistrer un fichier Excel en indiquant un nouveau nom de fichier avec la date le chemin et effaçait l’ancienne version
Tout cela allait bien avec Excel 2010 mais je viens d’acheter une licence Excel 2016 et la ça ne marche plus du tout
Message d’erreur , non enregistrement, renvoi sur support Excel qui ne m’apporte rien
Voici cette macro
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 = "Evolution trésorerie " & Format(Now, " dd_mm_yyyy") & "_" & chemin & ".xlsm"
On Error GoTo fin
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Date_du
Kill ancien_nom
fin:
End Sub
Pouvez vous m’indiquer ce qui ne va pas et remédier a son fonctionnement
Merci d’avance
Michel Delorme

 

[Lone-wolf]

Bonjour Michel , le Forum

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rep$, Chemin$, AncienNom$, NouveauNom$

    On Error Resume Next
    Application.DisplayAlerts = False

    Chemin = ThisWorkbook.Path & "\Fichiers\"
    AncienNom = ActiveWorkbook.Name
    NouveauNom = "Evolution trésorerie " & Format(Date, " dd_mm_yyyy") & "_" & ".xlsm"
  
    Rep = Dir(Chemin & "*.xlsm")

    Do While Rep <> ""
        Kill Chemin & Rep
        Rep = Dir
    Loop

    ActiveWorkbook.SaveAs Filename:=Chemin & NouveauNom, FileFormat:=52

End Sub

 

[saint_marc]

Merci beaucoup
je precise que je suis sur mac
je vais essayer et vous tiens au courant
tres cordialement
michel Delorme

 

[saint_marc]

bonjour
desole
ça ne marche pas sous mac
michel Delorme

 

[Lone-wolf]

Bonjour Michel , Le Forum

Désolé mais je ne peux rien faire de plus, comme tu peux le voir sur le profil, je suis sous PC. Par ailleurs, il fallait le préciser dans ton premier message que tu était sous MAC.

 

[saint_marc]

merci
pas de chance d'être sous mac
peut être une autre personne pourrais répondre a mon problème
merci à tous