Çalışma kitabını ağdaki diğer bilgisayarda yedekleme

[MERDAG]

Merhaba
Çalışma kitabını ağda paylaşıp diğer bilgisayarda da kullanabiliyoruz ama bağlantı kesildimi ya da diğer bilgisayar kapalı oldumu sorun oluyor. Bu yüzden yapmak istediğim kullanmış olduğum çalışma kitabını bir buton yardımıyla ağda "\\Serkan26\VİP STOK\VİP STOK" adresinde yedek almak istiyorum.
Örnek dosyada sadece C sürücüsüne yedekleme yapabiliyorum ama diğer bilgisayara yapamadım.
İlginize şimdiden teşekkürler...

 

[Necdet]

Merhaba,

C ye yedek almakla networkteki herhangi bir dizine yedek almak arasında fark yokki.

Adres doğru ve karşı bilgisayarda yazma yetkiniz varsa sorun olmaz.

Yazma yetkinizin olup olmadığını kontrol ediniz.

 

[parametre]

bunun için adını bildigin bir bilgisayarı makroda yazdıgınız gibi adını yazmanız gerekmektedir diyelim adı ahmet olsun bilgisayarın
kodunuzu

Sub AKTİF_DOSYAYI_YEDEKLE()
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String

Yedek_Dosya_Adı = Replace(ThisWorkbook.Name, ".xls", "") & ".xls"
Kayıt_Yeri = "C:\YEDEK\" & Yedek_Dosya_Adı

If Dir("bilgisayaradi\C:\YEDEK\") = "" Then MkDir "bilgisayaradi\C:\YEDEK\"

ThisWorkbook.SaveCopyAs Filename:=Kayıt_Yeri

MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Kayıt_Yeri, vbInformation
End Sub

seklinde yazmanız gerekmiektedir kolay gelsin
asagıda ben birtane yazdım kolay gelsin
ChDir "\\Pc04\yeni klasör"
ActiveWorkbook.SaveAs Filename:="\\Pc04\yeni klasör\baloon.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

 

[MERDAG]

Tekrar merhaba
Mesajlarınızı yeni gördüm Necdet Bey'inde söylediği gibi fark yokmuş ama ilk denemelerimde hata vermişti bu sefer hatasız oldu sonradan birşey çıkmazsa işlem tamam

yardımlarınız için teşekkürler...