خوب خوبه كه لااقل خودم هستم جواب بدم
كد رو اينجوري تغيير دادم و الان درست كار ميكنه. فقط دو تا مشكل دارم
اول اينكه چه كنم تا محل ذخيره، در همون پوشه فايل سورس باشه (اينجوري روي دسكتاپ سيستم*هاي ديگه به مشكل ميخوره)
دوم اينكه: ميخوام اسم فايل جديد كه ذخيره ميشه، مساوي با يك سلول باشه
Windows("Liste hoghoogh.xlsm").Activate
Sheets("ListeHoghooghi").Select
Range("J.LISTE.HOGHOGH[#All]").Select
Range("A1").Activate
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.SaveAs Filename:="C:\Users\313\Desktop\111222.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Workbooks("Liste hoghoogh").Application.Visible = False
علاقه مندی ها (Bookmarks)