السلام عليكم ورحمة الله
 
	المرجو المساعدة
 
	هدالكود يقوم بعمل نسخة احتياطية فاتورة
 
	 اريدالما اقوم بعمل نسخة احطياطية الملف يتم تحويل التاريخ  في الخلية E3 لقيم ثابتة
 
saveDate = Date
Dim saveTime
saveTime = time
Dim formatTime As String
formatTime = Format(saveTime, "hh.MM.ss")
Dim formatDate As String
formatDate = Format(saveDate, "DD - MM - YYYY")
Application.DisplayAlerts = False
   
   
   If ActiveSheet.Range("F5").Value = "نقدي" Then
      ThisWorkbook.SaveCopyAs Filename:="E:\Backup\نقدي\" & Range("E5").Value & "  _   " & Replace(Format(Range("E3"), "yyyy/mm/dd"), "/", "_") & ".xlsm"
Else
    If ActiveSheet.Range("F5").Value = "اجل" Then
         ThisWorkbook.SaveCopyAs Filename:="E:\Backup\اجل\" & Range("E5").Value & "  _  " & Replace(Format(Range("E3"), "yyyy/mm/dd"), "/", "_") & ".xlsm"
End If: End If
'
' Sheets("invoice3").Select
[G3] = [G3] + 1
ThisWorkbook.Save
 'Application.ScreenUpdating = False
End Sub
	 
 
يتم تحويل التاريخ والمعادلات في الخلية E3 لقيم ثابتة.xlsx