Çözüldü Yedekleme kodunda hedef yol hatası

[sk35]

Herkese merhaba forumdan bulup kendim revize ettiğim bir kodda ne kadar değişiklik yaparsam yapayım belirtiğim yola değil masaüstüne kayıt ediyor. Bir türlü çözemedim.

Sub yedek()
Option Explicit

Sub Yedekle()
    Dim Yol As String, Sayfa As Worksheet
    
    If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo + vbDefaultButton2) = vbNo Then
        MsgBox "İşlemi iptal ettiniz!", vbExclamation
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
   'Yol = ThisWorkbook.Path & Application.PathSeparator
     Yol = "C:\Users\***\Desktop\Posta "
  
  

    ThisWorkbook.Save
    ThisWorkbook.Sheets.Copy
    
    For Each Sayfa In ActiveWorkbook.Worksheets
        If Sayfa.DrawingObjects.Count > 0 Then
            Sayfa.DrawingObjects.Visible = True
            Sayfa.DrawingObjects.Delete
        End If
    Next
    
    ActiveWorkbook.SaveAs Yol & Format(Now, "dd.mm.yyyy hh_nn_ss") & " " & Replace(ThisWorkbook.Name, "xlsm", "xlsx"), 51
    ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "Dosya aşağıdaki klasöre yedeklendi." & vbCrLf & vbCrLf & Yol, vbInformation
End Sub

Yorum satırı olarak ayarladığım kodun dosyanın bulunduğu yola kaydettiğini biliyorum. Onu kapatıp kendim yol yazdığımda ise yine masaütüne fakat dosya adının başına Posta12-04-2023 yazıyor

 

[Korhan Ayhan]

Yol değişkeninin sonuna klasör seperatörü eklemeniz gerekir.

Yol = "C:\Users\***\Desktop\Posta\"