Aktif sayfayı belirlenen klasöre kaydetme

[Gold_Savt]

Aktif sayfayı .xls formatında kaydeden ve kusursuz çalışan bir kodum var.
Ancak bu kod, Belgelerim'e kayıt yapıyor.
Çalıştırıldığı her bilgisayarda Belgelerime değil de "Masaüstünde belirlediğimiz ARŞİV dosyanın içindeki DEPOLAR dosyasına kayıt yapması mümkünmü?

Dosyanın kayıt yeri : / (Her bilgisayar için) Masaüstü / ARŞİV / DEPOLAR

Çalışan kodum şudur:
------
Worksheets("gelenler").Select
ActiveWorkbook.SaveAs Filename:=ayYil & " tarihli gelenler", FileFormat:=xlExcel8
ActiveWorkbook.Close
ActiveWorkbook.Save


MsgBox "TEBRİKLER " ..........

 

[EmrExcel16]

Şu şekilde olabilir.

ActiveWorkbook.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\ARŞİV\DEPOLAR\" & ayYil & " tarihli gelenler", FileFormat:=xlExcel8

 

[Gold_Savt]

EmrExcel16 Teşekkür ediyorum. Çalışıyor.

 

[EmrExcel16]

EmrExcel16 Teşekkür ediyorum. Çalışıyor.

Rica ederim , iyi çalışmalar.