الاخوة الكرام السلام عليكم
اريدتحديث هذا الكود كان موجود فى موضوع سابق حاولت تغيير المسار لكن لم يعمل معى
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
F:\Backup Excel Sheetsلكى يحفظ فى هذا المسار
وعند الحفظ الجديد للملف يستبدل الملف الاحتياطى السابق هل ممكن هذا
ولكم جزيل الشكر والتقدير
فواتير مشتريات2020 - Copy.xlsm