بسم الله الرحمن الرحيم
لا ادرى معنى واجهة تختلف عن واجهة اكسال
ولكن هناك خطأ فى هذا الكود
Public Sub MAJChrono()
Sheets("Chrono").Range("e5").Calculate
Application.OnTime Now() + TimeValue("00:00:03"), "MAJChrono"
End Sub
حيث ان البرنامج يبحث عن ورقه عمل أسمها Chrono لانه يقوم بالتحديث كل 3 ثوانى فلا يجد ورقه العمل و قد قمت بتعطيل Module1 قتم الدخول الى البرنامج
مرفق ملف
السلام عليكم
CLASSE_01.rar