"Enregistrer sous" le xls à la date du jour

[eldoctor62]

Bonjour,

Je souhaiterais qu'une macro "enregistre sous" des cellules de mon tableau source dans un dossier avec pour titre de document la date du jour.

Seulement quand je ferme le doc... Donc ici :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

' code ?

End Sub

Vers :

13-11-2015.xls

J'espere etre clair ?

Si quelqu'un peut me venir en aide svp

D'avance merci

 

[13GIBE59]

Re : "Enregistrer sous" le xls à la date du jour

Bonjour,

Vois dans les discussions similaires au bas de la page.

Sub test()
Dim Chemin As String
Application.DisplayAlerts = True
Chemin = "C:\Users\xxxxx\Desktop\" 'chemin à adapter
ActiveWorkbook.SaveAs Filename:= _
Chemin & "Test - " & Format(Date, "yyyy mm dd") , FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = False
End Sub

JB

 

[eldoctor62]

Re : "Enregistrer sous" le xls à la date du jour

Superbe JB Merci, et si je souhaite ajouter un if ?

Ex :

If now<14:00
then
Variable == "M"
else "AM"

Et l'ajouter dans le titre :
Chemin & "Test - " & Format(Date, "yyyy mm dd") - Variable, FileFormat:=xlExcel8, _

Aussi :/

Si c'est un nouveau mois en créer le dossier a son nom

Ex : Décembre