Renaming a file in VBA

[donkey shrek]

Hi all, I am new to VBA & I'm a little confused with this code.

I am trying to rename a file so that it will be uploaded to a shared drive.

Variable oldname has only been used at this instance, which is to assign the old path to it. My main question here is that it's hence, redundant right?
When trying to rename a file, we don't need to reference it by calling out the full file path, we can just use ActiveWorkbook?

oldname = ThisWorkbook.Path & "\CRMS.xlsx"
newname = sharepointpath & "\" & filename & ".xlsx"
ActiveWorkbook.SaveAs newname

 

[HaHoBe]

Hi,

and where in the sniplet do sharepointpath as well as filename get their values? I would choose a different name for the variable than filename which is part of the Parameters for SaveAs.

Sub MrE1222174_RenameFileDifferentFolder()
'will move the file
oldname = ThisWorkbook.Path & "\CRMS.xlsx"
newname = sharepointpath & "\CRMS.xlsx"
Name oldname As newname
End Sub

Sub MrE1222174_CreateCopyDifferentFolder()
'will create a copy of workbook at new place
Dim strNewWB As String
'sample path is Desktop
strNewWB = Environ("UserProfile") & "\CRMS.xlsx"
ActiveWorkbook.SaveAs strNewWB, FileFormat:=51
End Sub

Ciao,
Holger