diverse documenten bewaren via VB

[Ann01]

Na een dagje wurgen met VB (nog maar pas gestart)
volgende waarschijnlijk heel eenvoudige vraag

een gebruiker opent een willekeurig document maar wel met een datum verwerkt in de benaming.
Deze datum heb ik er uitgefilterd en noem ik
vb datum1 = DDMMJJJJ
In een ander workbook verwerk ik een paar gegevens en wil ik sluiten en bewaren als DDMMJJJJ.xls

Iemand een oplossing ?

 

[Palmpje]

Wellicht helpt dit:

Dim MyDate, MyFile, MyPath
MyPath = ActiveWorkbook.Path
MyDate = Format(Date, "yyyymmdd")
MyFile = MyPath + "\" + MyDate + ".xls"
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Hiermee bewaar ik een bestand met een andere naam, te weten jjjjmmdd.xls

Deze volgorde is beter dan ddmmjjjj omdat je beginnende met jaar wel een normaal gesorteerde lijst hebt en anders niet. Volgens mij zelfs een of andere ISO norm.

 

[Ann01]

Hartelijk dank voor de info.

mvg,

Ann