ajouter la date dans un nom de fichier excel

[devimen2]

Bonjour 😀,

J'ai besoin de votre aide s'il vous plait .

Je souhaiterai trouver une solution pour que à chaque enregistrement des modifications d'un fichier excel,le nom de ce fichier se voit agrémenté de la date du jour...

Ma macro fonctionne mais à chaque fois ,il génére un nouveau fichier avec la derniere mise à jour ..
'macro
Sub Enreg()
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\"
valeur = "benji71_" & Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm") & ".xls"
ThisWorkbook.SaveAs Path & valeur
End Sub

'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Enreg
End Sub


merci à ceux qui pourront m'aider

 

[Lone-wolf]

Bonjour devimen

Sub ChangeNom()
Dim AncienNom$, NouveauNom$, Rep$, dte, dth
 
    Rep = ThisWorkbook.Path & "\"
    dte = Format(Date, "dd mmmm yyyy"): dth = Format(Time, "hh mm")
    AncienNom = "benji71_" & dte & "_" & dth & ".xls"
     
    If Rep = "\" Then
        'le fichier n'est pas encore enregistré
        ActiveWorkbook.SaveAs Filename:=Chemin & AncienNom
    Else
        'enregistre l'ancien sous le nouveau nom et supprime l'ancien
        AncienNom = Rep & ActiveWorkbook.Name
        NouveauNom = "benji71_" & dte & "_" & dth & ".xls"
        ActiveWorkbook.SaveAs Filename:=Rep & NouveauNom
       kill AncienNom
    End If
End Sub

 

[devimen2]

Bonjour Lone-Wolf 😀

Merci beaucoup , la macro fonctionne trés bien .

Je vous remercie pour votre aide.