كود تحديث من ملف بدون رسائل خطاء فى حالة عدم وجود الملف

[MR.EXCEL]

السلام عليكم

 

لدى كود تحديث يحدث بياناته  من ملف اخر كل فترة زمنية

 

 المطلوب فى حالة عدم وجود الملف الذى يحدث منه لا يخرج اى رسائل ولا يفعل شى وينتظر للدورة الثانية وهكذا

الكود كالاتى

Sub TimerSave()
Dim alertTime
alertTime = Now + TimeValue("00:00:05")
Application.OnTime alertTime, "SaveMe"
End Sub

Sub SaveMe()
TimerSave
Run ("Macro1")
ActiveWorkbook.Save
End Sub
Sub Macro1()
'
' Macro1 
'


    ActiveWorkbook.UpdateLink Name:="D:\test.xls", Type:= _
        xlExcelLinks
End Sub

جزاكم الله خيرا

[حمادة باشا]

الأخ الكريم/MR.EXCEL

السلام عليكم ورحمة الله وبركاته

قم بتغيير إجراء الماكرو فقط إلي التالي : ( مع الإحتفاط بباقي الكود كما هو )

Sub Macro1()
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLink Name:="D:\test.xls", Type:=xlExcelLinks
End Sub

تقبل تحياتي