هذا الروتين لا يعمل

[COKING]

السلام عليكم

Private Sub UserForm_Activate()

MyPath = Workbooks("The Cooker_without.xls").Path & "\SCHED_without.xls"

Set Mybook = Workbooks.Open(Filename:=MyPath)

End sub

هذاالروتين كان يعمل ثم توقف فجأة ولا أعرف السبب ويعطيني رسالة"Compile Error:Object required"

ويقف على عبارة Mybook

أرجو المساعدة حيث أنني لا أرى سببا لهذا العطل

شكرا جزيلا لكم

[عادل حنفي]

السلام عليكم

اخي الفاضل

الملف يعمل قد تكون المشكله من الاوفيس او حدوث مشكلة ما بالملف الاصلي

جرب الملفان المرفقان بعد فك الضغط عنهما وان كانا يعملان بطريقة صحيحة

فستكون المشكله في الملف الاساسي علما بانه تم التعديل الطفيف علي الكود

ليعمل بدون رسائل

تحياتي

لفتح ملف من ملف.rar

[COKING]

السلام عليكم

أولا أشكركم على الإهتمام وسرعة الرد

ثانيا الملفان الذان أرسلتهما يعملان

إذا المشكلة في الملف الأساسي ولست أدري أين تكمن ولا كيفية إصلاحها

هل أطمع بالمساعدة

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

[عادل حنفي]

السلام عليكم

اخي

قابلتني مشكلة كهذه من قبل و لم تستجيب لاي تعديل

الا بعمل ملف جديد و نقل الاكواد و كل ما يلزم من بيانات للملف الجديد

و ان شاء الله تنجح هذه الطريقة و ان احتجت لمساعده نحن معك ان شاء الله

تحياتي

[COKING]

شكرا جزيلا يا أخي

سأحاول العمل بنصيحتكم

شكرا مرة أخرى