Command Button to Save File Based on Cell Value

[yrobbie13]

Hi All, I'm hoping for some help please?

Ive been trying to create a button in excel that saves the file for the current workbook with the name as cell value and a path (Sharepoint). below is what i have so far, but doesn't work. HELP PLEASE

Private Sub CommandButton1_Click()
Dim path As String
Dim FileName1 As String
Dim FileName2 As String
path = "https://scotgold.sharepoint.com/SitePages/Home.aspx?RootFolder=/Shared Documents/100 Administration/"
FileName1 = Range("B5")
FileName2 = Range("C5")
ActiveWorkbook.SaveAs FileName:=path & FileName1 & FileName2 & Format(Now(), " DD-MM-YYYY hh_mmAMPM"), FileFormat:=xlOpenXMLWorkbookMacroEnabled


End Sub

 

[severynm]

You're not going to be able to use VBA to do much with SharePoint HTTP URLs. If you sync that directory to your computer, you will get the actual folders and files on your computer in File Explorer, and the path will look something like C:\Users\%UserName%\SharePointCompanyName\SharePointFolderPath\.... You can then use this to perform all the operations you need on files & folders.