Soru Yedekleme Yaparken Hata

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki kodu yeni bir çalışma kitabı oluşturup çalıştırdığımda çalışıyor, Ancak var olan bir çalışma kitabında çalıştırdığım zaman resimdeki hatayı alıyorum.
ne yapmam gerekiyor acaba.

Kod
Günlük Puanlama.xlsm Dosyasını O:\ORTAK\ALLIANCE\TICARET\ Klasörüne yedekleme yapıyor. Başka bir alternatif kodda olursa işime yarar

 

[RBozkurt]

Merhaba, deneyiniz.

Sub YedekAl()
    Dim kaynakDosya As String
    Dim hedefDosya As String
    kaynakDosya = ThisWorkbook.FullName
    hedefDosya = "O:\ORTAK\ALLIANCE\TICARET\" & ThisWorkbook.Name
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs hedefDosya
    Application.DisplayAlerts = True
End Sub

 

[bulentkars]

Merhaba,

üzerine yazılsın uyarısı çıkıyor, sürekli üzerine yazmak istiyorum

 

[RBozkurt]

Merhaba,

üzerine yazılsın uyarısı çıkıyor, sürekli üzerine yazmak istiyorum

2. mesajdaki kodu değiştirdim, deneyiniz.

 

[bulentkars]

Oldu Çok teşekkür ederim. Elinize sağlık..

 

[RBozkurt]

Oldu Çok teşekkür ederim. Elinize sağlık..

Rica ederim kolay gelsin.