vba to select a folder from a sharepoint

[drop05]

Hi i have the below VBA, and i am trying to double click the cell and have it pop up to select a folder but it is only bringing up folders on my machine and not from a sharepoint site, any assistance on editing the code to allow share point select would be appreciated

If Not Application.Intersect(target, Range("config_FolderBrowse")) Is Nothing Then
        cancel = True

    Dim diaFolder As Office.FileDialog
    Dim Msg As String
    Dim Style As Variant
    Dim Title As String
    Dim Response As Variant
   
   
    'Open the file dialog
    On Error GoTo ErrorHandler
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    diaFolder.Title = "Select a folder then hit OK"
    diaFolder.Show
    ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Value = diaFolder.SelectedItems(1)
    Set diaFolder = Nothing
    Exit Sub
   
ErrorHandler:
    Msg = "No folder selected, you must select a folder for program to run"
    Style = vbError
    Title = "Need to Select Folder"
    Response = MsgBox(Msg, Style, Title)
   
   
End If

 

[Micron]

You need to use the UNC path of the sp server as the InitialFileName property of the dialog.
Note: it is not the URL (https:/something). It is \\ServerNameHere\topFolderHere\etc.

 

[Micron]

Forgot to mention that you may need to map to it in order to discover the path (using Windows File Explorer). Or ask IT person.
You can eliminate repetitive referencing like so

With diaFolder
    .AllowMultiSelect = False
    .Title = "Select a folder then hit OK"
    .InitialFileName = " \\ServerNameHere\topFolderHere\etc."
    .Show
End With