Soru Dosya yedekleme

[k0081]

Merhaba arkadaşlar;

aşağıdaki kod ile , Excel kitabı açıkken yedekleme yapmak istiyorum. Ancak "Permission denied" hatası alıyorum.

yardımcı arkadaşa şimdiden teşekkürler.

Sub Yedekle()
    Dim dosyaAdi As String
    Dim hedefKlasor As String
    Dim kaynakDosya As String
    Dim hedefDosya As String

    dosyaAdi = "yedek1.xlsx"
    kaynakDosya = ActiveWorkbook.FullName
    hedefKlasor = Environ("USERPROFILE") & "\Desktop\"
    hedefDosya = hedefKlasor & dosyaAdi

 
    FileCopy kaynakDosya, hedefDosya

    MsgBox "Yedekleme tamamlandı!", vbInformation
End Sub

 

[akcygt11]

Dener misiniz

Sub Yedekle()
    Dim dosyaAdi As String
    Dim hedefKlasor As String
    Dim kaynakDosya As String
    Dim hedefDosya As String

    dosyaAdi = "yedek1.xlsx"
    kaynakDosya = ActiveWorkbook.FullName
    hedefKlasor = Environ("USERPROFILE") & "\Desktop\"
    hedefDosya = hedefKlasor & dosyaAdi

    ActiveWorkbook.SaveCopyAs hedefDosya

    MsgBox "Yedekleme tamamlandı!", vbInformation
End Sub

 

[k0081]

Denedim. Runtime-error : 1004 ü verdi.

 

[akcygt11]

Denedim. Runtime-error : 1004 ü verdi.

Bunu dener misiniz bende sorunsuz şekilde çalışmaktadır.

Sub Yedekle()
    On Error Resume Next
   
    Dim dosyaAdi As String
    Dim hedefKlasor As String
    Dim kaynakDosya As String
    Dim hedefDosya As String

    dosyaAdi = "yedek1.xlsm"
    kaynakDosya = ThisWorkbook.FullName
    hedefKlasor = Environ("USERPROFILE") & "\Desktop\"
    hedefDosya = hedefKlasor & dosyaAdi

    Dim sayac As Integer
    sayac = 1
    Do While Dir(hedefDosya) <> ""
        dosyaAdi = "yedek1_eski" & sayac & ".xlsm"
        hedefDosya = hedefKlasor & dosyaAdi
        sayac = sayac + 1
    Loop
   
    ActiveWorkbook.SaveCopyAs hedefDosya
   
    If Err.Number <> 0 Then
        MsgBox "Yedekleme sırasında bir hata oluştu: " & Err.Description, vbExclamation
    Else
        MsgBox "Yedekleme tamamlandı!", vbInformation
    End If
   
    On Error GoTo 0
End Sub

Harici Link

 

[k0081]

Bu htayı veriyor... sizin ekte vermiş olduğunuz dosyada başka bir dosyayı bulmaya çalışıyor...