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

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


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





اريد كود لعمل نسخة احتياطية من الملف فى الF ويستبدل النسخة الاحتياطية السابقة

السلام عليكم اريد من الاخوة الكرام كود لعمل نسخة احتياطية من ملف الاكسل فى بارتيشن الـF وكل مرة يعمل نسخة احتياطية يستب ..



29-03-2020 04:27 مساء
moonlight
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-04-2018
رقم العضوية : 5471
المشاركات : 44
الدولة : egypt
الجنس : ذكر
تاريخ الميلاد : 23-7-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 47
 offline 

السلام عليكم 
اريد من الاخوة الكرام كود لعمل نسخة احتياطية من ملف الاكسل فى بارتيشن الـF وكل مرة يعمل نسخة احتياطية يستبدل النسخة السابقة .

 ولكم منى جزيل الشكر والتقدير ,,,,,,
 
 
  فواتير مشتريات2020 - Copy.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(225.904) KB


29-03-2020 07:00 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اريد كود لعمل نسخة احتياطية من الملف فى الF ويستبدل النسخة الاحتياطية السابقة
وعليكم السلام أخي الكريم
جرب الكود التالي عله يكون المطلوب إن شاء الله
http://raboninco.com/51S8

30-03-2020 02:35 مساء
مشاهدة مشاركة منفردة [2]
moonlight
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-04-2018
رقم العضوية : 5471
المشاركات : 44
الدولة : egypt
الجنس : ذكر
تاريخ الميلاد : 23-7-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif اريد كود لعمل نسخة احتياطية من الملف فى الF ويستبدل النسخة الاحتياطية السابقة
مشكور استاذ ياسر جزاك الله خيراً بس هو فين الكود قصد حضرتك صفحة النت دى  http://raboninco.com/51S8  مافيش فيها حاجة 

30-03-2020 04:57 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اريد كود لعمل نسخة احتياطية من الملف فى الF ويستبدل النسخة الاحتياطية السابقة
هذا رابط مختصر وإذا لم تستطع الوصول للكود سأقوم بوضعه لك بشكل مباشر .. انقر على Skip Ad التي تظهر لك في الصفحة ثم Allow وسيظهر لك الكود

31-03-2020 01:38 مساء
مشاهدة مشاركة منفردة [4]
moonlight
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-04-2018
رقم العضوية : 5471
المشاركات : 44
الدولة : egypt
الجنس : ذكر
تاريخ الميلاد : 23-7-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 47
 offline 
look/images/icons/i1.gif اريد كود لعمل نسخة احتياطية من الملف فى الF ويستبدل النسخة الاحتياطية السابقة
جزاك الله خيراً استاذ ياسر وصلت للكود الحمد لله الصفحة متعبة شوية بس وصلت شكرا لك اعمل بقى insert modul والصق الكود بتاع حضرتك واحفظ ولما اعمل شغل على الشيت اعمل حفظ والكود كده حيعمل نسخة لوحده ولا فى حاجة معينة اعملها تانى غير كده .
بس حضرتك لو تكرمت وعملت تعديل على كود معايا كان معمول يعمل نسخة من الملف فى الـ C فغيرت وكتبت يحفظ فى F ما اشتغلش هو ده الكود يمكن يفيد 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Shell "cmd.exe /C copy " & """" & ThisWorkbook.Path & "" & ThisWorkbook.Name & """" & " " & """" & "c:" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM-") & ThisWorkbook.Name & """", 0
End Sub

شكراً لزوق حضرتك

31-03-2020 06:01 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اريد كود لعمل نسخة احتياطية من الملف فى الF ويستبدل النسخة الاحتياطية السابقة
وجزيت خيراً أخي الكريم بمثل ما دعوت لي
ضع الكود الذي كان يعمل معك سابقاً للإطلاع عليه وتعديله ليقوم بالحفظ على أي بارتشن آخر .. وإن كنت أرى أنه لا داعي لاستخدام مثل هذه الأوامر طالما يوجد ميزة الحفظ في الإكسيل نفسه SaveCopyAs ..

02-04-2020 12:33 صباحا
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif اريد كود لعمل نسخة احتياطية من الملف فى الF ويستبدل النسخة الاحتياطية السابقة
هذا الكود الموجود في ملفك المرفق يعمل بدون مشاكل


Sub Backup_M_D()
         ThisWorkbook.SaveCopyAs Filename:="f:\Backup Excel Sheets\" & ThisWorkbook.Name
End Sub

غير فقط
"f:\Backup Excel Sheets\" & ThisWorkbook.Name

الى
"c:\Backup Excel Sheets\" & ThisWorkbook.Name




الكلمات الدلالية
اريد ، لعمل ، نسخة ، احتياطية ، الملف ، ويستبدل ، النسخة ، الاحتياطية ، السابقة ،


 










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

الساعة الآن 06:16 مساء