Macro VBA pour enregistrement avec nom de fichier

[Boulie72]

Bonjour à tous,

Je suis en train de créer un fichier excel et j'aurai besoin d'aide pour une macro VBA...

Je souhaiterai que lorsque je clique sur la disquette le fichier s'enregistre et la page active s'enregistre à un autre endroit sous un nom de fichier reprenant automatiquement la date du jour.

Pourriez vous m'aider svp?

D'avance merci.

Cordialement

Boulie72

 

[sousou]

Bonjour
Tu peux mettre ce code dans thisworkbook de visualbasic.
Je n'ai pas mis ni de contrôle, et je range le document dans le même répertoire
A toi d'adapter à ta configuration
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Copy
Set newclasseur = ActiveWorkbook
With newclasseur
.SaveAs Filename:=ThisWorkbook.Path & "/" & Format(Date, "yy_mm_dd") & ".xlsx"
.Close
End With

End Sub