ارجو المساعدة في تعديل كود حفظ ملف اكسل
اضع فيه مسار حفظ الملف
وكذلك لا يظهر مربع الحفظ بل يحفظ في المسار الذي حددته
With Application.FileDialog(msoFileDialogSaveAs)
.AllowMultiSelect = False
.FilterIndex = 2
.InitialFileName = "B" & Range("b1").Text
If .show Then
ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If