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