Belirtilen saatte yedek

[teksen]

Arkadaşlar merhaba,

C:\Data\Data1.xls dosyamı hergün saat 21:00 de

D:\Data Yedek\ Klasörüne tarih ve saat ekleyerek yedek alması için nasıl bir kod kullanabilirim acaba?

Şimdiden teşekkürler.

Herkese iyi çalışmalar.

 

[teksen]

Sub auto_open()
Application.OnTime Now + TimeValue("16:00:00") - Now, "Yedek"
End Sub

Sub Yedek()
ActiveWorkbook.SaveCopyAs "C:\user\GROUP\SAL\AAA\Backups\C&E Program.xls"
MsgBox "Dosyanız kaydedildi"
End Sub

Bu şekilde bir kod buldum ama burda açık olan xls dosyası için yapılmış.

Bu kod üzerinde kaydedeceği dosya kısmını nasıl değiştirebiliriz acaba?

 

[ismailmuhcu]

Zamana Bağlı Yedek almak

Private Sub CommandButton1_Click()
yol = InputBox("kayıt numarası girin")
Application.Wait Now + TimeValue("00:00:10")
If yol = "" Then
Exit Sub
End If
ActiveWorkbook.SaveAs "C:\test\" & yol
MsgBox "dosya kaydedildi"
End Sub

 

[teksen]

Teşekkür ederim Sn.ismailmuhcu

C:\Data\Data1.xls nin yanında birde br.mdb dosyam var bunuda eklemek için kodlarda değişiklik yapabilirmiyiz?