مساعدة في كود نقل ملفات

[hassan rady]

السلام عليكم ورحمة الله وبركاته .. احتاج مساعدتكم الكريمة في نقل ملفات ونسخها الى مسارات معينة .. بالرجاء مشاهدة المرفق , شكرا

TEST.xlsx

[أ / محمد صالح]

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

هذا الأمر يتم بالكود لذا يلزمك:

* تغيير امتداد الملف لصيغة تدعم الكود مثل xlsb & xlsm

* كتابة اسم الملف وامتداده في عمود اسم الملف

* استعمال الدالة 

FileCopy source, destination

للنسح

* استعمال الدالة 

Name source as destination

للنقل

* ربط الماكرو بالزر

وهذا ملفك بعد تنفيذ جميع هذه الملحوظات

بالتوفيق

copy and cut files.xlsb

[hassan rady]

كل الشكر لك اخي وجزاك الله خير

ولا حرمنا الله ابداعاتك