VBA to save to desktop

[BTA1322]

Hello

I had help from this group many years ago and all worked perfect , however, the company has now moved to 365 and the macro does not now run - it stops at the save section. I have recorded a macro using the function in excel. I require the VBA to save to the desktop on any pc by any users

Old Code
Dim strUser As String
strUser = Environ("UserName")

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\" & strUser & "\Desktop\Carrier Files\Book1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close



New Recorded code - using the record function excel 365

ChDir _
"C:\Users\username\OneDrive\OneDrive - CompanyName\Desktop\Carrier Files"
ActiveWorkbook.SaveAs Filename:= _
"https://compantnamel-my.sharepoint....me/Documents/Desktop/Carrier Files/Book1.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False


Any help/direction will be appreciated

Many thanks

Brian

 

[Micron]

it stops at the save section.

I presume you are referring to the new code, not the old. You must be getting an error message - in that case, best to post the number and message.
AFAIK, you cannot use vba to directly save to a web url (including SharePoint). You need to get the UNC path to the server and use that. If you can create your own mapping to the server (e.g. map M drive) you will find it in the properties sheet for the mapping. Or you can ask the server admin. The UNC path will begin with \\ followed by the server name.

 

[BTA1322]

Hello Micron

Yes, reffering to the New recoreded code. The macro stops running at the first line C/User etc. So if I understand correctly, I am unable to set-up a macro to save to desktop owing to using sharepoint without the companies I.T authorisation etc. ?

New recorded code
ChDir _
"C:\Users\MyName\OneDrive\OneDrive - CompanyName\Desktop\Carrier Files"
ActiveWorkbook.SaveAs Filename:= _
"https://companyname-my.sharepoint.com/personal/" & strUser & "/Desktop/Carrier%20Files/Book1.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

 

[NdNoviceHlp]

Hi *BTA1322. This link might help. Dave

[SOLVED:] Copying (downloading) a file knowing its URL (With VBA).

Hello, I would like to copy (download) a File located on a URL. This URL is located on a OneDrive Cloud space (maybe it plays a part). I have checked that I have a R/W authorization on this file, granted by the owner of the Drive. Moreover, this file is an Excel Workbook that I can open...

www.vbaexpress.com