كيفية عمل نسخة من ملف فى ملف جديد

[sami salem]

الأخوة المشرفين واعضاء منتدانا العظيم

بعد السلام عليكم ورحمة الله وبركاته

أرجو مساعدتي فى عمل مفتاح يقوم بانشاء نسخة من الملف فى ملف آخر باسم مذكور فى الخلية C1 من الملف المراد نسخة

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

____.rar

[ابو اسامة العينبوسي]

السلام عليكم

اليك الكود التالى مع مراعاة ***** اسماء اللاقراص الصلبه لديك ****

Dim FileName As String
FileName = Range("A1").Value
ActiveWorkbook.SaveCopyAs "d:\format\FileName.xls"

[sami salem]

الأخ العزيز / أبو اسامة

بارك الله لك على الرد والاهتمام ولكن لايعمل معى علماً بأنني غير محرك الأقراص الى C

[ابو اسامة العينبوسي]

السلام عليكم

اليك مثال

* مجرب

يفترض ان القرص الصلب D او غيره كما تحب

و هو منقول للامانه

test.rar

تم تعديل يوليو 2, 2008 بواسطه ابو اسامة العينبوسي

[م موسى]

كيف اعمل ورقة عمل بنفس الطريقة

يعني عمل نسخة لورقة العمل بنفس الاسم

[sami salem]

الأخ العزيز / أبو اسامة

بارك الله لك على الرد والاهتمام وتم تجربة الملف وكان ممتاز ولك جزيل الشكر . وان كان فيه تعب أرجو من سيادتكم التكرم بعمل ترحيل بيانات فى أعمدة من هذا الملف الى ملف آخر ولكم جزيل الشكر