سؤال : ماكرو لعمل نسخه طبق الاصل من صفحه الاكسل ( بدل ما اعمل حفظ باسم )

[الطـاهر]

السلام عليكم

 

اريد ماكرو لعمل نسخه طبق الاصل من ورقه العمل وحفظها باسم جديد كما لو ضغط على حفظ باسم

 

وعند تنفيذ الماكرو يظهر لى مستطيل لكتابه اسم الملف الجديد ويقوم بحفظه تلقائيا فى نفس مجلد الملف الاصلى بالاسم الجديد الذى تم كتابته فى المستطيل

 

هل يوجد ماكرو لفعل هذا الامر ؟؟

"" * ملحوظه : office 2003 ""

[أبو حنــــين]

السلام عليكم

جري هذا الكود

Sub iCopy_ActiveSheet()

Dim iPath As String, N As String
    iPath = ThisWorkbook.Path & "\"
    N = InputBox("أكتب هنا إسم الملف", "تحديد الإسم")
    If N = "" Then Exit Sub
Application.DisplayAlerts = False
    ActiveSheet.Copy
    With ActiveWorkbook
    .SaveAs Filename:=iPath & N
    .Close
    End With
Application.CutCopyMode = False: Application.DisplayAlerts = True


End Sub

 

[الطـاهر]

بارك الله فيك

 

سلمت يداك اخى الفاضل ماشاء الله عليك