أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





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

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


10-01-2021 12:11 مساء
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 167
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 185
 offline 

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



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


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
  test(1).xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(11) KB



أفضل إجابة مقدمة من hassona229 وهي:
حضرتك لم تنسخ الكود كاملا في المشاركه الخاصة بي

تفضل

Option Explicit
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fso As Object, strToFolder As String
    strToFolder = "D:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "\"
    MakeSureDirectoryPathExists strToFolder
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.copyfile Source:=ThisWorkbook.FullName, Destination:=strToFolder, OverwriteFiles:=True
End Sub
عرض الإجابة




10-01-2021 05:52 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif طلب كود إنشاء نسخة من ملف إكسيل تلقائيا عند غلق الملف
وعليكم السلام ورحمه الله وبركاته
تفضل هذا الكود

Option Explicit
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean

Sub File_Save_As()
Dim fso As Object, strToFolder As String
    strToFolder = "D:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "\"
    MakeSureDirectoryPathExists strToFolder
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.copyfile Source:=ThisWorkbook.FullName, Destination:=strToFolder, OverwriteFiles:=True
End Sub

10-01-2021 09:17 مساء
مشاهدة مشاركة منفردة [2]
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 167
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 185
 offline 
look/images/icons/i1.gif طلب كود إنشاء نسخة من ملف إكسيل تلقائيا عند غلق الملف
جزاك الله خيرا اخي الكريم
اخي ممكن لوسمحت اريد بمجرد ضغط على زر الخروج من الملف يقوم بعمل نسخة من الملف تلقائيا

11-01-2021 09:32 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif طلب كود إنشاء نسخة من ملف إكسيل تلقائيا عند غلق الملف
يتم وضع الكود في حدث 

Private Sub Workbook_BeforeClose(Cancel As Boolean)


11-01-2021 10:45 صباحا
مشاهدة مشاركة منفردة [4]
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 167
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 185
 offline 
look/images/icons/i1.gif طلب كود إنشاء نسخة من ملف إكسيل تلقائيا عند غلق الملف
zif74_66اخي لقد أعطاني هذا الخطأ
 
 


11-01-2021 11:35 صباحا
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif طلب كود إنشاء نسخة من ملف إكسيل تلقائيا عند غلق الملف
حضرتك لم تنسخ الكود كاملا في المشاركه الخاصة بي

تفضل

Option Explicit
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fso As Object, strToFolder As String
    strToFolder = "D:\" & Format(Date, "ddd") & "-" & Format(Date, "dd-mm-yyyy") & "\"
    MakeSureDirectoryPathExists strToFolder
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.copyfile Source:=ThisWorkbook.FullName, Destination:=strToFolder, OverwriteFiles:=True
End Sub

11-01-2021 01:10 مساء
مشاهدة مشاركة منفردة [6]
محمدعبدالسلام
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 167
الجنس : ذكر
تاريخ الميلاد : 19-6-1981
يتابعهم : 2
يتابعونه : 3
قوة السمعة : 185
 offline 
look/images/icons/i1.gif طلب كود إنشاء نسخة من ملف إكسيل تلقائيا عند غلق الملف
جزاك الله خيرا اخي


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
إنشاء ، نسخة ، إكسيل ، تلقائيا ، الملف ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:24 صباحا