[ahmed salam]

اخي الكريم
استخدم save as بدلا من save
مثال للكود

كود :

Dim ReportApp As New excel.Application
        Dim ReportWB As excel.Workbook
        Dim ReportWS As excel.Worksheet

        ReportWB = ReportApp.Workbooks.Open(Application.StartupPath & "\temp.xls")
        ReportWS = ReportWB.Worksheets("اسم الشييت")

ReportWB.Application.DisplayAlerts = False
        ReportWS.SaveAs(Application.StartupPath & "\Out.xls")
        ReportWB.Close()
        ReportApp.Quit()

و هذا السطر هو الذي يلغي رسالة تأكيد الحفظ بأن الملف موجود من قبل هل تريد الكتابة عليه
ReportWB.Application.DisplayAlerts = False

ارجو ان يكون وفقني الله في الاجابه علي سؤالك