المساعده فى تصحيح كود حفظ

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

الاخوة الكرام

ارجو المساعده فى تصحيه الكود بالملف المرفق

1- الملف ياتى عن طريق الاميل كل يوم على اساسه انه تقرير يومى

واسمه بهذاالشكل

TGP REPORT 02-APR-15   يوم 4/2

TGP REPORT 03-APR-15   يوم 4/2

TGP REPORT 04-APR-15  يوم  4/3

TGP REPORT 05-APR-15  يوم  4/5

2- اريد ان يتم حفظ الملف بنفس الاسم الوارد به الملف فى d:\1

3- اريد ان يتم حفظ نفس الملف باسم اخر today على        \:d  

وذلك عن غلق الملف

المشكله تكمن فى  حفظ الملف باسمه الاصل الذى يتغير كل يوم  ..

ارجو المساعده

TGP REPORT 02-APR-15.rar

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

للرفع اكرمكم الله 

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

تم اصلاح الكود بعد النظر فى ود قد قدمه الاخ احمد حمور فى الموضوع التالى 

http://www.officena.net/ib/index.php?showtopic=33810&hl=%2Bكود+%2Bلعمل+%2Bنسخه+%2Bاحتياطيه

 

فاصبح الكود 

وانت المشكله تكمن فى الجزء الملون باللون الاحمر

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Save

Application.DisplayAlerts = False

If Date >= #1/26/2014# And Time >= #6:45:00 AM# Then

If Application.UserName = "ahmed.moh" Or Application.UserName = "MOHAMED.AHMED" Then

ActiveWorkbook.SaveAs "D:\" & ThisWorkbook.Name

ActiveWorkbook.SaveAs "D:\today.xls", FileFormat:=xlExcel8

End If

End If

 

End Sub