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

**۩◊۩ أبو حنين ۩◊۩** · أبريل 8, 2015

السلام عليكم

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

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

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

**۩◊۩ أبو حنين ۩◊۩** · أبريل 9, 2015

للرفع

**۩◊۩ أبو حنين ۩◊۩** · أبريل 9, 2015

السلام عليكم

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

**۩◊۩ أبو حنين ۩◊۩** · أبريل 9, 2015

للرفع

**۩◊۩ أبو حنين ۩◊۩** · أبريل 9, 2015

السلام عليكم

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

فاصبح الكود

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

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 Sub

الردود الموصى بها