نقل ورقة عمل فى ملف جديد مع الحفظ

[خالد الشاعر]

السادة خبراء المنتدى

اريد عمل ارشيف لورقة عمل فى ملف

لكى تحفظ فى ملف مستقل باسم السنة الدراسية

فهل ممكن التعديل على هذا الماكرو

Sub ماكرو1()

Sheets("ورقة1").Select

Sheets("ورقة1").Move

ChDir "F:\ارشيف"

ActiveWorkbook.SaveAs Filename:="F:\ارشيف\ارشيف 2010-2011.xls", FileFormat _

:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

False, CreateBackup:=False

End Sub

ولكم جزيل الشكر والاحترام

[خالد الشاعر]

السادة الخبراء

لقيت هذا العمل فى موقع اجنبى "نتقةل"

حملتة للافادة

يجب اولا عمل ملف فى الدريف D:\MyDatabase

شكرا

ارشيف.rar

[محب إكسل]

شكرا أخي على الملف والكود* لكن حتى وبعد مافتحت ملف في d

حفض الملف في My Documents

أين المشكل