Saving a file with the current date

[netwerkz]

    year_Month = Format(DateAdd("m", 1, Date), "yyyy Mmm")
    Yr = Format(Application.WorksheetFunction.EoMonth(Date, 1), "yyyy")
    Mnth = Format(Application.WorksheetFunction.EoMonth(Date, 1), "mmm")
'
' This is the save portion
'
    ChDir "D:\Daily Documents\Projects\Website\"
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Daily Documents\Projects\Website\" & Yr & "\" & year_Month & "\" & year_Month & " - " & "Diversified Bidsheet.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Daily Documents\Projects\Website\" & Yr & "\" & year_Month & "\" & year_Month & " - " & "Diversified Bidsheet.pdf"

I copied the framework of a former project and tried to edit it for a new project.

I open a file sent to me in M$ Outlook, edit it (reformatting the aesthetics), and save it in a particular location in (2) two types: "*.xlsx" & "*.pdf". Once I have ran my script and saved it, I eventually want to auto upload to a WordPress editor on my web-host's site.

I want to save the file with the current date in "##" (two-digit) format. So, when I run the file for today, it would save it as

"D:\Daily Documents\Projects\Website\2017\2017 Jan\2017 Jan 10 - Diversified Bidsheet.pdf"

What am I missing?

[SamT]

See if this works

NewDate = Format(DateAdd("m", 1, Date)
YMD =  Format(NewDate), "yyyy Mmm dd") & " - "
YM = Format(NewDate, "yyyy Mmm") & "\"
Y= Format(NewDate, "yyyy")  & "\"
 
 ' This is the save portion
ActiveWorkbook.SaveAs Filename:= _ 
"D:\Daily Documents\Projects\Website\" & Y & YM & YMD  & "Diversified Bidsheet.xlsx" _ 
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"D:\Daily Documents\Projects\Website\" & Y & YM & YMD & "Diversified Bidsheet.pdf"