كود حفظ الملف باسم اخر

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

السلام عليكم

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

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

عند فتحه دون ان يتظهر عمليه الحفظ باسم اخر

1- اسم الملف الاصلى tarek_report

2- يتم حفظ الملف عند فتحه باسم today+ تاريخ اليوم

يتم حفظه على d  داخل ملف اسمه tarek_report1

جزاكم الله خيرا

 

tarek_report.rar

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

السلام عليكم

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

وجت الكود المطلوب من عمل الاستاذ الكبير حماده عمر

واريداضافه شرط جديد لا يتم الحفط على اساسه

ان يتم حفظ الملف بجانب شرط التريخ والوقت بشرط

ان يكون اسم المستخدم ( مستخدم الوندوز ) AHMED.MOHAMED او MOHAMED.AHMED

يتم حفظ الملف

اى لا يتم حفظ الملف الا اذا كان المستخدم هو AHMED.MOHAMED او MOHAMED.AHMED

tarek_report.rar

[احمد عبد الناصر]

السلام عليكم

 

جرب هذه 

Private Sub Workbook_BeforeClose(Cancel As Boolean)


If Date >= #1/26/2014# And Time >= #8:00:00 AM# Then
If Application.UserName = "AHMED.MOHAMED" Or Application.UserName = "MOHAMED.AHMED" Then

ActiveWorkbook.SaveCopyAs ("D:\tarek_report.xls")

End If
End If

End Sub

تحياتي

تم تعديل أبريل 8, 2015 بواسطه احمد عبد الناصر

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

 

السلام عليكم

اخى الكريم احمد عبد النصر

الامر تم بصوره جيده جدا

الا انى اريد ان يتم حفظ الملف الاصلى بنفس الاسمفى مكان محدد d:\1

معالاحتفاظ بنسخه لخرى فى مكان اخر لاسم اخر

d:\ahmed

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 

 

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

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

 

اريد اسم الملف الاصلى للملف  ActiveWorkbook.SaveAs "D:\1\.xlsb", FileFormat:=xlExcel12

النسخه الاخرى    ActiveWorkbook.SaveAs "D:\ahmed\today1.xlsb", FileFormat:=xlExcel12 

End If

End If

 

End Sub

 

 

تم تعديل أبريل 8, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

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

ارحو ان تكون الصوره واضحه

 

تم تعديل أبريل 8, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

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

للرفع

 

علما بان الملف الاصلى يتم تغير اسمه يوميا طبقا للتاريخ

اى TGP REPORT 02-APR-15

        TGP REPORT 03-APR-15

تم تعديل أبريل 8, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

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

للرفع

[خزاني]

السلام عليكم

 

كود بقوم بحفظ الملف باسم اخر مثل

08/04/2015-1

08/04/2015-2

08/04/2015-3

الى اخره  ويتم حفظه فى مكان مسار الملف نفسه

Sub test()
Dim x As String, i As Byte
Do
    x = Dir(ThisWorkbook.Path & "\" & Format(Date, "yymmdd") & "-" & i + 1 & ".xls")
    i = i + 1
Loop While x <> ""
ThisWorkbook.SaveAs Format(Date, "yymmdd") & "-" & i & ".xls"
End Sub

كود حفظ الملف بالاسم الذي تختارة  في اي قرص

Sub copie()
nom = InputBox("ادخل الاسم الذي تريده لحفط الملف")
chemin = "D:\"
ThisWorkbook.SaveAs chemin & nom & ".xls"
End Sub

كود حفظ بوسطة مربع الحوار

Sub Test()
Application.Dialogs(xlDialogSaveAs).Show ("C:\")
End Sub