Run-time error "53": File not found

[David77]

Hello everybody,

I am currently having a problem with one of my files. I have made an order form where people can order goods from. They download my excel sheet and click on a submit macro which sends out the excel sheet in a PDF file through email.

This works perfectly fine when I do it myself. However, once other people do it, it comes with the following error:

If you debug it, it takes you to this location in my commandbutton macro:

Where it lights up the note "Kill strPath" with yellow.

How do I solve this? Any ideas/suggestions?

Thank you so much everybody!

 

[dmt32]

Hi,
you could try first checking that the file exists in the specified path before applying the Kill statement

If Not Dir(strPath, vbDirectory) = vbNullString Then Kill strPath

Also, worth having read here:How to Post Your VBA Code).

when posting code to forum

Dave

 

[David77]

Hi,
you could try first checking that the file exists in the specified path before applying the Kill statement

If Not Dir(strPath, vbDirectory) = vbNullString Then Kill strPath

Also, worth having read here:How to Post Your VBA Code).

when posting code to forum

Dave

Hello dmt32,

You're right. I found out that this happens if the person downloads the excel file but does not save it before using the macro. Is there a way in which I can edit the macro so it works, even if you dont save the file?

Thank you!
Best regards,
David

 

[dmt32]

Post your code using code tags - plenty here to offer suggestions to update it.

Dave

 

[Domenic]

If you're getting an error on this line...

Kill strPath

...I don't understand why you're not getting an error on this one...

Worksheets("Order Form").ExportAsFixedFormat xlTypePDF, strPath

In any case, since the saved PDF file is only a temporary file, try saving it in your temporary folder instead. This way the path isn't dependent on the active workbook. So, for example, try replacing...

strPath = ActiveWorkbook.Path & Application.PathSeparator & "Order Form.pdf"

with

strPath = Environ("temp") & Application.PathSeparator & "Order Form.pdf"