Record macro in PDF Solved

Question

Hello

I have a template document that I use as an order form.

I would like to add a button to this template that saves this document in PDF format to a specific folder with a specific file name (corresponding to an Excel cell).

If you have a solution...

Thank you

f894009 · Accepted Answer

Re,

Sub Export_PDF()
 Dim fichier As String
 
 Date_F = Format(Date, "ddmmmm_")
 'adapt the name of the sheet
 With Worksheets("Feuil1")
 fichier = "\" & Date_F & .Range("B7") & ".pdf"
 Dossier = "C:\Users\Vincent\Documents\Commande DNA"
 Chemin = Dossier & fichier
 .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 End With
End Sub

It remains to know which sheet you want to save as PDF.

f894009 · Answer

Hello,

an example:

Sub Export_PDF()
 Dim file As String
 'adapt the sheet name
 With Worksheets("Sheet1")
 file = "Quote no. " & .Range("B12") & .Range("B13") & ".pdf"
 'remember to write the path
 Path = rep & "\" & file
 .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path, Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 End With
End Sub

tooney05 · Answer

Thank you, but I'm a bit lost!!

I want the filename to be in the format daymonth_name (15november_tartenpion).
The current date is in cell B3 (using the today formula) and the name is in B7

The folder is located in my documents under the name "commande DNA"

if you can still help me...

thank you

f894009 · Answer

Re,

the path for "My Documents" is not the same depending on the OS, you need to find that path. In the example, it is Sheet1 that is saved, for you it's ????

Sub Export_PDF()
 Dim file As String
 
 Date_F = Format(Date, "ddmmmm_")
 'adapt the sheet name
 With Worksheets("Feuil1")
 file = "\" & Date_F & .Range("B7") & ".pdf"
 'remember to write the path
 Folder = "\commande DNA"
 'My Documents to be adapted to your PC
 rep = "C:\Users\SWF"
 Path = rep & Folder & file
 .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path, Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 End With
End Sub

tooney05 · Answer

I get

runtime error 5
invalid procedure call or argument

debugging: (yellow part)

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

f894009 · Answer

Re,  it works for me, have you adapted the file path ??????  which Excel do you have?

tooney05 · Answer

I have Excel 2007. Here is a screenshot of the message.

f894009 · Answer

Re,  for the path, you only need Folder and File, and no need for rep.

tooney05 · Answer

Not much better...

tooney05 · Answer

Isn't an add-on or plugin needed for PDF conversion? When I try to save, the PDF format is not offered to me.

tooney05 · Answer

Revisiting,

I made progress by installing the plug-in and using the macro recorder.
I just need the file to be named automatically according to cell K4.
Can you insert the function for me?

Sub pdf()
'
' pdf Macro
'

'
ChDir "C:\Users\Vincent\Documents\Commande DNA"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Vincent\Documents\Commande DNA\" & Range("K4").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

tooney05 · Answer

It's working!!!  Thank you for your help and patience...

Record macro in PDF

12 answers

Archival hard drive no longer appears in file explorer

How to pair a receiver with an external speaker without fi

The black swift flies for 10 months in a row without interruption

My pc won’t charge anymore and runs super slowly

Laptop: password forgotten

My second pc monitor

My computer stays connected for very little time

Unable to open xsl and xslx files

Pixma ts printer is broken

No internet connection possible