Hi, I have a spreadsheet which I currently use locally and is saved on my Desktop in a folder aptly called "Logs", In the spreadsheet is a macro which saves this sheet and creates the following one, saving it locally in the "Logs" folder. What I would like is instead of it saving locally can I get it to upload to a specific folder on my works cloud? I have the location I want to save it too but not sure how to alter the current code/path?
This is the current macro.
Sub CreateNewLog()
Dim tWB As Workbook: Set tWB = ThisWorkbook
Dim aSht As Worksheet: Set aSht = tWB.ActiveSheet
Dim sPath As String: sPath = "C:\Users\" & Environ("username") & "\Desktop\Logs\"
'saves new workbook using data from cells X9 and X10
tWB.SaveAs Filename:=sPath & sDate & "_" & sName
Sheets("Production").Select
End Sub
This is where I want it to save too.
"\\siemens.net\dfs001\Planning Folder\Daily Work\Shift Logs\"
Thanks
Ian
This is the current macro.
Sub CreateNewLog()
Dim tWB As Workbook: Set tWB = ThisWorkbook
Dim aSht As Worksheet: Set aSht = tWB.ActiveSheet
Dim sPath As String: sPath = "C:\Users\" & Environ("username") & "\Desktop\Logs\"
'saves new workbook using data from cells X9 and X10
tWB.SaveAs Filename:=sPath & sDate & "_" & sName
Sheets("Production").Select
End Sub
This is where I want it to save too.
"\\siemens.net\dfs001\Planning Folder\Daily Work\Shift Logs\"
Thanks
Ian
