Excel VBA Problem Opening Sharepoint PDF

[Dr_T]

Hi All

Really hope that someone can help with this. I've spent most of the day trying... and failing.

I have a few hundred PDF documents in a Shareholder folder and I'm looking to open them via an Excel hyperlink.

The code below works when the files are saved on my local drive, but fails when trying to open the Sharepoint version. If I was the only one accessing the files I'd just save them to my laptop, but there will be quite a few people in my company who will be using it.

Function OpenAnyFile(strPath As String)
  Set objShell = CreateObject("Shell.Application")
  objShell.Open (strPath)

End Function

Sub Test() ' get PDF from Sharepoint folder
  Dim pdfPath As String
(Option 1 - works)    pdfPath = "C:\Users\me...\PDF Images\13110014.pdf"
(Option 2 - fails)    pdfPath = "\\mycompany.sharepoint.com\sites\Shared Documents\Forms\AllItems.aspx?id=\sites\sitename\Shared Documents\2013\11 November\13110014.pdf"
(Option 3 - fails)    pdfPath = "https://mycompany.sharepoint.com/sites/Shared%20Documents/Forms/AllItems.aspx?id=%2Fsites%2Fsitename%2FShared%20Documents%2F/2013/11 November/13110014.pdf" 
    Call OpenAnyFile(pdfPath)
End Sub

Any help would be very much appreciated!

Many thanks

Mark

 

[JEC]

Sharepoint is not connected to your explorer, then it won't work.
So, try to sync the sharepoint folder to your explorer first, you should find that at sharepoint

 

[Candyman8019]

Have you tried:
pdfPath = "\\mycompany.sharepoint.com\sites\Shared%20Documents\Forms\AllItems.aspx?id=\sites\sitename\Shared%20Documents\2013\11%20November\13110014.pdf"

 

[Candyman8019]

Also, just notice in your option 3 there is a %20 missing between 11 and November...