enregistrer un nouveau classeur

[Nicko]

Bonsoir à tous,

J'ai un classeur avec plusieur feuilles dont une qui correspond aux ventes faites dans la journée.

Je souaiterais qu'en appuyant sur un bouton "Fin de journée", cette feuille soit enregistrer separememt dans un nouveau classeur avec comme nom la date du jour.

Merci d'avance pour vos propsitions

Nicko

 

[lolocool]

salut ,
enfin je commence a pouvoir a repondre a certaine question car j'ai passe quelque jour sur cette formule et j'ai pu la resoudre grace à l'aide de personnes que je remercie au passage sur ce forum


Sub fin_de_journee()

ActiveSheet.Select
ActiveSheet.Copy
Dim NomFichier As String
NomFichier = "C:\fin_de_journee_" & Format(Range("E2"), "dd-mm-yy") & ".xls"
ActiveWorkbook.SaveAs Filename:=NomFichier

End Sub

remplace juste le chemin, et la cellule D4 part là où ce trouve ta date

en esperant que sa marche

lolocool