اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

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

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

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

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

تحياتي

تم تعديل بواسطه احمد عبد الناصر
قام بنشر (معدل)
 

السلام عليكم

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

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

الا انى اريد ان يتم حفظ الملف الاصلى بنفس الاسمفى مكان محدد 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

 

 
تم تعديل بواسطه ۩◊۩ أبو حنين ۩◊۩
قام بنشر (معدل)

للرفع

 

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

اى TGP REPORT 02-APR-15

        TGP REPORT 03-APR-15

تم تعديل بواسطه ۩◊۩ أبو حنين ۩◊۩
قام بنشر

السلام عليكم

 

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

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information