السلام عليكم
لدى كود تحديث يحدث بياناته من ملف اخر كل فترة زمنية
المطلوب فى حالة عدم وجود الملف الذى يحدث منه لا يخرج اى رسائل ولا يفعل شى وينتظر للدورة الثانية وهكذا
الكود كالاتى
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
جزاكم الله خيرا