Macro this workbook

saint_marc · 23 Avril 2017

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 · 23 Avril 2017

Bonjour Michel , le Forum

VB:

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 · 24 Avril 2017

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

saint_marc · 24 Avril 2017

bonjour
desole
ça ne marche pas sous mac
michel Delorme

Lone-wolf · 24 Avril 2017

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 · 25 Avril 2017

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

Macro this workbook

saint_marc

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

saint_marc

XLDnaute Nouveau

saint_marc

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

saint_marc

XLDnaute Nouveau

Discussions similaires