تعديل كود تصدير بيانات الشيتات لمصنف

[M.NHAKAMI]

السلام عليكم 

عندي الكود التالي يصدر الشيت النشط لمصنف اخر وانا اريد تصدير جميع شيتات المصنف لمصنف اخر ايش التعديل المطلوب

ThisWorkbook.ActiveSheet.copy _
before:=Workbooks.Add.Worksheets(1)
Worksheets(1).Name = "current balance" & Format(Date, "dd-mm-yyyy")

 

نسخ الشيتات.xlsm

[حسين مامون]

قم بانشاء مجلد باسم copie في في :C واضغط زر SAVE COPY

 

نسخ الشيتات.xlsm

[حسين مامون]

غير الكود بهذا 

Sub COPIE_cop()

Dim Nam
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
      Nam = ThisWorkbook.Name & " " & Format(Now(), "dd mm yyyy  hh mm ss")
'           ThisWorkbook.SaveCopyAs Filename:="D:\copie\" & Nam & ".xlsx"
                  ActiveWorkbook.SaveAs Filename:="D:\copie\" & Nam & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
 MsgBox "Êã ÍÝÙ äÓÎÉ ÈÇÓã " & Nam & " ", vbInformation
End Sub
 

 

[M.NHAKAMI]

اخ حسن لك جزيل الشكر هذا ما احتاجه شكرا لك