تعديل مسار الملف أو حذفه

[محمود_الشريف]

الساده /   أعضاء المنتدى        المحترمين

سلام الله عليكم جميعا

أرفق اليكم ملف بمسمى التنبيه

وظيفة الأكواد التى به تعمل على التنبيه بمواعيد محدده حسب الطلب ( تاريخ )

ولكن كل ما أغير المسار الخاص بحفظ الملف لا تعمل الأكواد

أو عند إلغاء المسار لا تعمل الأكواد 

برجاء التعديل بحيث تعمل الأكواد دون التقيد بالمسار بحيث ضمان فعاليتها

 

شاكرا لكم حسن تعاونكم

وتقبلوا منى وافر الإحترام والتقدير

أخيكم فى الله

محمود الشريف

التنبيه.rar

[حمادة باشا]

الأخ الكريم/ محمود_الشريف

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

تحديد مسار ثابت لملف داخل الكود يفقد البرنامج المرونة

قم بإستبدال السطور التالية حسب الموضح :

التغيير الأول
SndFile = "C:\Warning.wav"
كالتالي
SndFile = ActiveWorkbook.Path & "\" & "Warning.wav"

التغيير الثاني
reminderFile = "c:\reminder.txt"
كالتالي
reminderFile = ActiveWorkbook.Path & "\" & "reminder.txt"

مع الحرص علي نقل ملف النص وملف الصوت في نفس مجلد ملف الإكسل حيثما نقلته

جربت ووجدت الكود يعمل وفق المفترض - تقبل تحياتي

[محمود_الشريف]

الأستاذ الفاضل

وأخى فى الله

الأستاذ / حماده باشا

بارك الله فيكم

وجزاكم رب العالمين عنى خير الجزاء

دمتم فى حفظ الله وأمنه

وتقبل منى وافر الإحترام والتقدير

أخيكم فى الله

محمود الشريف