Re : changer la date du nom du fichier à chaque enregistrement
Bonjour, effectivement la solution est viable (je n'ai pas besoin de l'heure, en fait)! Cependant, j'ai trouvé une autre solution correspondant mieux a ce que je cherchais. la voici :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Nom_Fichier As String 'Nom du fichier
Dim Extension As String 'Extension du fichier
'Ancien nom
Nom_Fichier = ThisWorkbook.FullName
Extension = Mid(Nom_Fichier, InStrRev(Nom_Fichier, "."))
Nom_Fichier = Left(Nom_Fichier, InStrRev(Nom_Fichier, " "))
'Nouveau nom
Nom_Fichier = Nom_Fichier & Format(Date, "yyyy-mm-dd") & Extension
'Enregistrer une copie
ThisWorkbook.SaveCopyAs Nom_Fichier
'Ouvrir la copie
Workbooks.Open Nom_Fichier
'Ne pas enregistrer l'original
Cancel = True
'Fermer l'original sans l'enregistrer
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub
Avec cette solution pas de bouton pour activer la macro et cela fonctionne parfaitement à l'enregistrement du fichier, un autre est crée avec la date du jour.
Merci encore pour votre aide.