OneDrive yedek alırken dosya ismi yanına tarih ve saat eklemek

[zaruri]

Google Drive

ThisWorkbook.SaveCopyAs Filename:=Kayıt_Yeri
Yedek_Dosya_Adı = Replace(ThisWorkbook.Name, ".xlsm", "") & Format(Date, " dd_mm_yyyy") & "_" & Format(Now, "hh_mm") & ".xlsm"
Kayıt_Yeri = "C:\Users\Ali\Google Drive\" & Yedek_Dosya_Adı

End Sub

Google Dirve ile yedek aldığım şekilde, OneDrive yedek alma işini çözemedim.
yardımcı olursanız sevinirim.

------------------------------------------------------------------------------------------

OneDrive
Her yedek alışımda CARİ TAKİP dosyası ismi yanına tarih ve saat eklemesi istenmekte.

ChDir "C:\Users\Ali\OneDrive"
ActiveWorkbook.SaveAs Filename:= _
"https://d.docs.live.net/c312de597763b0b2/CARİ TAKİP.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub


İlginize şimdiden teşekkür ederim.