vba save as xlsm

[عصام مسعد]

السلام عليكم

عندى كود يقوم يحفظ الملف SAVE AS فى نفس مكان الملف الاصلى

ويحفظ الملف بنفس اسم الموجود  فى خانه A1  

ولكن عندى مشكله ان الكمبيوتر عندى 32 bit  وعند تنفيذ المايكرو يعطينى خطا

وتم ارفاق صوره من الرساله الخطا

TT = Range("A1").Value
Dim Path As String
Path = Application.ActiveWorkbook.Path

    fname = TT
  ActiveWorkbook.SaveAs "path & " \ " & fname"
            
 Application.ActiveWorkbook.SaveAs Filename:=Path & "\" & fname, FileFormat:=52

End Sub

فبرجاء تعديل او عمل 

مع الشكر

New Microsoft Word Document.rar

[ياسر خليل أبو البراء]

وعليكم السلام

الخطأ قد يكون من نسخة الأوفيس التي لديك أو قد يكون لديك إضافة AddIn حدث معها تضارب أو ماشابه

يرجى ذكر إصدار الأوفيس الذي تعمل عليه ..وجرب حذف الإضافات لديك ثم جرب الكود مرة أخرى

Sub Test()
    Dim fName       As String
    Dim Path        As String
    
    fName = Range("A1").Value
    Path = ThisWorkbook.Path & "\" & fName
    
    Application.ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=52
End Sub

 

[عصام مسعد]

استاذنا الفاضل  / ياسر خليل

جزاك الله خير 

الكود شغال تمام التمام

مع الشكر