Need help with this small macro

[bjornltd]

Hi,

I have the following code for saving a new sheet, but this only works when the original file is .xlsm. Any way to change this to work when the original file is .xltm?
When the original file is .xlsm it saves in the right shared Onedrive folder, but when the original file is .xltm the now file saves locally on the computer.

Sub SvMe()
    Dim newFile As String, fName As String
    fName = Range("B34").Value
    newFile = fName & " " & Format$(Date, "dd-mm-yyyy")
    With ActiveWorkbook
        .SaveAs Filename:=ThisWorkbook.Path & "\" & newFile & ".xlsm", FileFormat:=52
    End With
     
End Sub

Please help

 

[JLGWhiz]

.SaveAs Filename:=[COLOR=#b22222]ThisWorkbook.Path [/COLOR]& "\" & newFile & ".xlsm", FileFormat:=52

You would need to change the path to the shared Onedrive folder in the above statement.

 

[bjornltd]

The problem is that we are several users with different paths to the shared folder.... Would that be the only way to get it to work?

 

[JLGWhiz]

I don't understand how you can have different users accessing the same shared folder with different paths to the folder. It should be the same path for each user to access a server and its directories. But I could be wrong.