Run time error 5 when trying to save pdf to folder

[ipbr21054]

Using the command button to save a file of which the extension is pdf i see the following error.
Ive checked the folder is there & also the path to the folder & both are correct but im unaware as to what the issue is.

Checking the code when i debug i see this line in yellow.

    strFileName = "C:\Users\there\Desktop\REMOTES ETC\DR\DR COPY INVOICES\" & Range("L4").Value & ".pdf"
    With ActiveSheet
      .ExportAsFixedFormat Type:=xlTypePDF, fileName:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    End With 'CURRENT INVOICE IS NOW SAVED

 

[NoSparks]

do you really have a user named " there " ?

 

[ipbr21054]

Yes
Dopey shop i bought it from installed Windows & why they used that im confused

Before it would have been my name Ian So ive changed pretty much all my code & just the 1 or 2 files left thus being one of them.

In that line of code its flagged up is there a work around we can try to see what the issue is, Maybe change pdf to a word doc but i tried a few extensions but none worked or i just git them wrong.
xlsm .xlsm ,Doc and also doc

 

[NoSparks]

If it worked on your other computer and all you've changed is the path.....

C:\Users\there\Desktop\REMOTES ETC\DR\DR COPY INVOICES

the above is copied from your posted code
if you copy it, then open File Explorer and paste it into the name bar (or box, whatever)
does it open the folder you're wanting ?
If it does then afraid I don't know.

 

[ipbr21054]

So i copied the code above & pasted it into the search box, hit return & the correct folder opened
The code i supplied is the path to the folder on my new pc.

Ive manually checked it & also done the above mentioned & fine.

 

[ipbr21054]

So a line or two up has the following code.
I changed the current invoice number to an invoice number that is already in the folder in question.
Because of this i see the Msgbox pop up saying WAS NOT SAVED ETC

So the code is actually looking & has found the correct folder.
Strange why it wont save the current invoice there.

    strFileName = "C:\Users\there\Desktop\REMOTES ETC\DR\DR COPY INVOICES\" & Range("L4").Value & ".pdf"
    If Dir(strFileName) <> vbNullString Then
      MsgBox "INVOICE " & Range("L4").Value & " WAS NOT SAVED AS IT ALLREADY EXISTS" & vbNewLine & vbNewLine & "PLEASE CHECK FILE IN FOLDER THAT WILL NOW OPEN.", vbCritical + vbOKOnly, "INVOICE NOT SAVED MESSAGE"
      VBA.Shell "explorer.exe /select, " & "" & strFileName & "", vbNormalFocus 'DUPLICATE INVOICE FOUND
    Exit Sub
    End If

 

[ipbr21054]

hOW CAN MY CODE BE WRITTEN SO WE SAVE AS A WORD DOC JUST TO TEST IT.

jUST WONDERING IF SOMETHING ISNT TICKED IN THAT TOOLS REFERENCES BOX ?

 

[ipbr21054]

In a few other sheets where i save the file & have it printed they all do the same & when i debug they all point to the same line of code.

 

[ipbr21054]

After chasing my tail i had noticed that in the save as box PDF was missing>I had looked in the ADD ONS parts & had seen it there but had a message about registration but it never did work on this Win 10 Pc

Looking for a ADD ON i downloaded & installed it & now the coe works like before.
Thanks for the replies.