VBA File Path Issue - Sharepoint

[dw1256]

Hi There,

I am using the following to assign the workbooks path to myPath:

myPath = activeworkbook.path

When I do this, it assigns the sharepoint path:

https://name.sharepoint.com/sites/sitename/Shares/Acme/Global Documents/QPCG

I want the path in this format:

C:\Users\...........\Global Documents\QPCG

Is there an easy way to do this? If not, can I somehow convert it to what I am looking for?

Thanks.

 

[JEC]

Sync your sharepoint folder with your driver. You can do that from sharepoint

 

[dw1256]

Sync your sharepoint folder with your driver. You can do that from sharepoint

How do you do that? Logged in to sharepoint, don't see the option.

 

[JEC]

Go to the folder on sharepoint. There should be a button on top which says “sync”

 

[dw1256]

Go to the folder on sharepoint. There should be a button on top which says “sync”

That didn't work. It is still pulling the Sharepoint address for the path.

 

[JEC]

What if you run this macro. Just select your file and see which path is showing up.

Sub jec()
 With Application.FileDialog(3)
   If .Show Then MsgBox .SelectedItems(1)
 End With
End Sub

 

[dw1256]

What if you run this macro. Just select your file and see which path is showing up.

Sub jec()
 With Application.FileDialog(3)
   If .Show Then MsgBox .SelectedItems(1)
 End With
End Sub

This code does give the desired "C:\Users\..........." path.

 

[JEC]

So you can work with this code right? .Selecteditems(1) provides you the path

 

[Alex Blakenburg]

Just curious, copy the below (including the question mark) into your immediate window and is the result it gives you is something you could use to substitute part of your workbook path (https://name.sharepoint.com/sites/sitename/Shares/Acme/Global Documents/QPCG)

? environ("UserProfile")

 

[dw1256]

Just curious, copy the below (including the question mark) into your immediate window and is the result it gives you is something you could use to substitute part of your workbook path (https://name.sharepoint.com/sites/sitename/Shares/Acme/Global Documents/QPCG)

? environ("UserProfile")

Returns C:\Users\myprofilename