Converting to PDF and Saving to SharePoint

[davidanaya11579]

Greetings,

I am attempting to write a macro to save the current sheet (sheet1) as a PDF to a SharePoint site, using the value of C3 as the file name. The below is what I have.
Private Sub CommandButton4_Click()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"http://worknet/sites/clevelandgf/insidesales/Transactional Quotes/Forms/AllItems.aspx" & Range("C3").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

End Sub

It seems to run correctly, I can see the SharePoint site open in the background, and the completed PDF opens, but the file never actually saves to the SP site. Any ideas?

 

[bugmonsta]

The link you are using is not a document library folder location (and it is normally https with sharepoint), your link goes to the page allitems.aspx.

I created this quick bit of code for my test sharepoint site and it uploaded it, have a look and amend it to match yours and let us know if you have issues.

It puts it in my test site under shared documents (the default for my sharepoint docs) and into a folder called General.

Sub Macro1()
'
' Macro1 Macro
'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "https://COMPANY.sharepoint.com/sites/TEAMNAME/Shared%20Documents/General/" & Range("C3").Value & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub