Hello
I have a form that is almost complete but I want to use a cell value (say cell b15 on sheet "Options") to attach a pdf titled the same thing. I want to press a button on the first sheet (sheet "Form") and have it convert sheet "Form" to a pdf, and attach the corresponding pdf for the cell value in cell b15 on the "Options" tab.
The location of the original file is located here: X:\R&D\JOE\Planning\
in the Planning folder there is an excel macro workbook titled: "Plan Form", as well as a folder containing all the reference PDFs titled: "Reference"
the Plan Form excel macro workbook has a series of tabs, I want to print the tab titled "Form" however the import value for the reference pdf is in the tab titled "Options"
So far I have:
Sub DTSsendtoChevron()
Dim FilePath As String
Dim FileNam As String
Dim MyDate As String
Dim Report As String
FilePath = "X:\R&D\Joe\Planning"
MyDate = Format(Date, "MM-DD-YY")
Report = "Plan Form "
FileNam = FilePath & Report & MyDate & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileNam, OpenAfterPublish:=True
End Sub
Any help is greatly appreciated.
Thank you very much!
I have a form that is almost complete but I want to use a cell value (say cell b15 on sheet "Options") to attach a pdf titled the same thing. I want to press a button on the first sheet (sheet "Form") and have it convert sheet "Form" to a pdf, and attach the corresponding pdf for the cell value in cell b15 on the "Options" tab.
The location of the original file is located here: X:\R&D\JOE\Planning\
in the Planning folder there is an excel macro workbook titled: "Plan Form", as well as a folder containing all the reference PDFs titled: "Reference"
the Plan Form excel macro workbook has a series of tabs, I want to print the tab titled "Form" however the import value for the reference pdf is in the tab titled "Options"
So far I have:
Sub DTSsendtoChevron()
Dim FilePath As String
Dim FileNam As String
Dim MyDate As String
Dim Report As String
FilePath = "X:\R&D\Joe\Planning"
MyDate = Format(Date, "MM-DD-YY")
Report = "Plan Form "
FileNam = FilePath & Report & MyDate & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileNam, OpenAfterPublish:=True
End Sub
Any help is greatly appreciated.
Thank you very much!