السلام عليكم اخوانى الافاضل كل عام وحضراتكم بخير احتاج شرح كود تصدير بيانات التصفية للاكسيل On Error Resume Next If IsNull(FromDate) Or IsNull(ToDate) Then MsgBox "íÌÈ ÇÎÊíÇÑ äØÇÞ ÇáÊÇÑíÎ ÇæáÇð", vbCritical + vbMsgBoxRight, "ÊäÈíå" Else Dim MyFile As String DstFile = CurrentProject.Path & "\" & "File1.xlsm" Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs A