ActiveSheet.ExportAsFixedFormat has stopped working

[DCESL]

Hi,

I made an invoicing sheet and purchasing sheet (both separate documents) using information from Mr Excel and it has been working for a couple of months with no problem. I am now getting an error message and it will not work anymore. Screen shots etc below, any help would be very much appreciated.

Sub NextPurchaseOrder()
Range("J2").Value = Range("J2").Value + 1
Range("B9:E9").ClearContents
Range("A10:E13").ClearContents
Range("H9:K9").ClearContents
Range("G10:K13").ClearContents
Range("A16:A26").ClearContents
Range("B16:H26").ClearContents
Range("I16:I26").ClearContents
Range("J3:K3").ClearContents
Range("B28:G28").ClearContents
Range("C30:G30").ClearContents
Range("H9:K9").ClearContents
End Sub

Sub SavePOWithNewName()
Dim NewFN As Variant
' Copy Purchase Order to a new workbook
ActiveSheet.Copy
NewFN = "C:\Users\ahollings\DC Emergency Systems LTD\DCESL Main Server - Documents\Ashley Hollings\Purchase Orders\POAH" & Range("J2").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=51
ActiveWorkbook.Close
NextPurchaseOrder
End Sub

Sub SavePurchaseOrderAsPDFAndClear()
    Dim NewFN As Variant
    NewFN = "C:\Users\ahollings\DC Emergency Systems LTD\DCESL Main Server - Documents\Ashley Hollings\Purchase Orders\POAH" & Range("J2").Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Range("J2").Value = Range("J2").Value + 1
    Range("B9:E13").ClearContents
    Range("A10:E13").ClearContents
    Range("H9:K9").ClearContents
    Range("G10:K13").ClearContents
    Range("A16:A26").ClearContents
    Range("B16:H26").ClearContents
    Range("I16:I26").ClearContents
    Range("J3:K3").ClearContents
    Range("B28:G28").ClearContents
    Range("C30:G30").ClearContents
    Range("H9:K9").ClearContents
End Sub

 

[Joe4]

Welcome to the Board!

Did you confirm that you don't already have a file open on your computer with that name?

Did you check to see that "C:\Users\ahollings\DC Emergency Systems LTD\DCESL Main Server - Documents\Ashley Hollings\Purchase Orders\" is a valid file path on your computer, and you have the ability to save to that folder?

Did you check to see if you already have a PDF file in that folder with the name you are trying to save the new one to?

 

[DCESL]

I thought that I had but I just rechecked the file path which had changed! Could this be because it is a sharepoint file location?

Thank you for the reply and help. Very new to marcos etc.

 

[Joe4]

You are welcome.

I haven't used Sharepoint yet, so really cannot comment on that. You may want to check with your IT department and inquire why the file path changed.