اقدم لكم كود لعمل نسخه احتياطيه مع عمل مجلد جديد

[عمرو السيد]

هذا الكود يقوم بانشاء مجلد جديدعلى اى دريف انت تحدده ويضع بداخله ملف اكسيل كنسخه احتياطيه

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

Sub copy1()

Dim Extension$

Dim savePathName As String

Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"

savePathName = "c:\Amr Inv System Backup 1\"

    On Error Resume Next

    Application.DisplayAlerts = False

    GetAttr (savePathName)

    Select Case Err.Number

    Case Is = 0

	    Application.DisplayAlerts = False

	    ThisWorkbook.SaveCopyAs savePathName & Extension

	    Application.DisplayAlerts = True

    Case Else

	    MkDir savePathName

	    ThisWorkbook.SaveCopyAs savePathName & Extension

    End Select

    On Error GoTo 0

End Sub

انتظرونى قريبا مع برنامج المخزون و الفواتير الشامل

سلامى الى كل اعضاء ومشرفى المنتدى

[الـعيدروس]

السلام عليكم

جزاك الله خير على الكود

بالنسبة لي انا استخدم هذا الكود

Sub ALIDROOS_SAVE()

Const PRUEBAS = "D:\"

Dim Nombre As String

Nombre = "إسم النسخة"

With ActiveWorkbook

.SaveCopyAs Filename:=PRUEBAS & Nombre & "_" & Format(Now, "dd-mm-yyyy") & ".xls"

MsgBox ("تم حفظ قاعدة بيانات بالأسم التالي..." & Nombre & vbInformation)

End With

End Sub

وبإنتظار برنامج المخزون

نشكر لك جهودك

موفق ان شاء الله

تقبل مروري

[abouelhassan]

روائع اخى واستاذنا ابونصار

احترمى

[abouelhassan]

استاذنا هل يمكن الحفظ فى فولدر يكون بأسم الشهر وبداخله فولدر بتاريخ اليوم

مثلا لو كان لدينا ملف اكسيل بأسم على

عند الحفظ

تاريخ اليوم هو 2/1/2012

يكون فوللدر اسمه يناير بداخله فولدر اسمه 2 بداخله الملف باسمه على

وغدا يكون داخل نفس فولدر يناير اسمه 3 بداخله الملف باسمه على

والشهر القادم يتم عمل فولدر اسمه فبراير بداخله فولدر اسمه 1 وبداخله الملف بأسمه على

وهكذا. كل شهر وكل يوم وعند الحفظ اكثر من مرة فى نفس اليوم يتم عمل استبدال للملف

احترامى

تم تعديل يناير 2, 2012 بواسطه abouelhssan

[الـعيدروس]

حسب فهمي لما تريد

هو حفظ الملف في درايفر D مثلا

في ملف اسمه يناير

غير المسار بهذا السطر ليكن

Const PRUEBAS = "D:\يناير\"

وعند دخول شهر جديد اعمل مجلد جديد بإسم الشهر الجديد

وغير المسار بتغير الاسم فقط بدل يناير مثلا فبراير

وهكذا

[abouelhassan]

احترامى استاذنا

الا يمكن عمل هذا عن طريق الكود اوتو

بارك الله لك وبك وفيك وال بيتك امين

[عمرو السيد]

بارك الله فيكم جميعا

اخى ابو نصار اشكرا على هذا الكود كود مختصر وجميل

ولكن هناك فرق فى الكودين بمعنى

الكود اللى حضرتك وضعته يعمل نسخه احتياطيه على درايف انت تحدده و لايقوم بانشاء مجلد جديد وهذا هو الفرق

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

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

وكذلك تستطيع اختيار الدريف المناسب

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

وهذا لكى تعم الفائده

باختصار

الكود الرئيسى فى المشاركه الاولى يقوم بعمل التالى

1-الذهاب الى الدريف المحدد والذى تستطيع تغييره داخل الكود

2-انشاء فولدر جديد انت تستطيع ان تحدد اسمه من داخل الكود ولاحظ كلمه فولدر

3-يقوم بعمل نسخه احتياطيه باسم ملف الاكسيل بتاريخ و الوقت الحاليين ويضعها داخل الفولدر المنشئ فى الخطوه رقم 2

اما كود اخى ابو نصار جزاه الله خير يقوم بالخطوه رقم 1 و 3

ولا يقوم بانشاء فولدر

تم تعديل يناير 6, 2012 بواسطه amroomo

[عمرو السيد]

من الاكواد الهامه

الرفع للفايده

[saad abed]

اخى عمرو

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

كود مهم ومفيد هل اذا غيرت امتداد الملف بدل xslm الى xls

Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"

تحدث مشكلة ام لا

سعد عابد

[عمرو السيد]

اخى عمرو
جزاك الله كل خير
كود مهم ومفيد هل اذا غيرت امتداد الملف بدل xslm الى xls
Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"
تحدث مشكلة ام لا
سعد عابد

اخى سعد

اذا كنت تستخدم اكسيل 2007 او 2010 فلا بد من حفظ الملف بهذه الصيغه xlsm

اما اذا كنت تستخدم اكسيل 2003 فقوم بتغيير الصغيه الى xls

ولن تحدث مشكله ان شاء الله

والسبب فى ذلك ان شركه مايكروسوفت قامت بتمييز ملفات الاكسيل التى تحتوى على ماكرو بدايه من 2007 الى ما فوق بامتداد جديد و هو xlsm

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

ارجو ان تكون اتضحت الفكره

تحياتى