PDF Runtime error

[ashani]

Hi,
In my worksheet - I have an option for the activesheet to be converted in PDF and send email. However, everytime I click on email button I get the following error message :

Run-time error '02147028494(80070002);'
Cannot find this file. Verify the path and file name are correct.

That's only happen in Office 2013 version but when I use the same file in Office 365 - it works fine. The problem is I don't have Office 365 so is there anything we can do for this run in Office 365 as well as any other version.

Here is the code for PDF Conversion :

  PdfFile = Sheets("Test").Range("S10").Value & "_" & Sheets("Test").Range("B3").Value
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & "_" & ".pdf"

Please can someone guide me on this.

Many thanks,

 

[rollis13]

You said that you have already verified path and name but add this 'MsgBox' to your code and, firstly, see if path and filename really matches the location and name of the file to be sent by email and secondly, check what information you are passing to the code that is sending the mail.

pdffile = pdffile & "_" & ".pdf"
MsgBox pdffile

 

[ashani]

hi @rollis13
thank you for the reply.
I tried that and it's only coming up with the actual file name, no path name or location of the file. How can I change/amend it?
Thanks,

 

[rollis13]

Can't be of much help since I have non idea on how your vbe project is organized but all you have to do is add before 'pdffile' its path.
If the path is static you could use: pdffile = "C:\username\foldername\" & pdffile & ".pdf"