طلب كود إنشاء نسخة من ملف إكسيل تلقائيا عند غلق الملف

[محمد عبدالسلام]

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

طلب كود إنشاء نسخة من ملف إكسيل  تلقائيا عند غلق الملف في فولدر على بارتشن بي اسم اليوم بالعربي و التاريخ مثلاً الجمعة او السبت او الاحد

test.xlsm

[حسونة حسين]

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

تفضل اخى الكريم

Sub File_Save_As()
ThisWorkbook.SaveAs Filename:="e:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "new", FileFormat:=52
End Sub

 

[abouelhassan]

مشكور استاذ حسونة

طيب لو محتاجين تكون النسخة اسم الملف+تاريخ اليوم 

بارك الله فيك

[حسونة حسين]

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

اخى الكريم كيف غريب الملف هذه اكواد الامتدات الخاصه بالاكسل اختر ما تشاء منها

.xlsx = 51

.xlsm = 52

xlsb = 50 

.xls = 56

[محمد عبدالسلام]

نسخه من الملف

lun.zip

[حسونة حسين]

الكود المرفق في ملفك ليس به اي مشاكل اخى الكريم