"Enregistrer sous" le xls à la date du jour

eldoctor62 · 13 Novembre 2015

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 · 13 Novembre 2015

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 · 13 Novembre 2015

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

"Enregistrer sous" le xls à la date du jour

eldoctor62

Guest

Pièces jointes

13GIBE59

XLDnaute Accro

eldoctor62

Guest

Discussions similaires

"Enregistrer sous" le xls à la date du jour

eldoctor62

Guest

Pièces jointes

13GIBE59

XLDnaute Accro

eldoctor62

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency