تعديل مسار الملف والمجلد في ماكرو

[مداد_1423]

السلام عليكم

تحية طيبة

 

عندي ملف عملت عليه ماكرو لفتح ملف آخر في نفس الجهاز

Sheets("HR").Select
ChDir "D:\HR\Ini"
Workbooks.Open Filename:="D:\HR\Ini\1.xlsx"
Range("A4:AI200").Select

 

والمطلوب يا سادة : بغيت أفتح ملف 

1.xlsx

من نفس مجلد الملف المرفق 

NEP_Ini.xlsm

ولا أريد أن أبقى دائماً في مجلد 

D:\HR\Ini

لأني أريد أن أعمل مجلد لكل شهر ومن الصعب كتابة المسار لكل ملف

 

1.xlsx

NEP_Ini.xlsm

[مداد_1423]

للرفع ... وفي الرفع نفع.

[أبوعيد]

وعليكم السلام

حياك الله وبياك وجعل الجنة مثواك (بياك = أكرمك)

التعديل سيكون في هذا الملف . استبدله بالملف القدم وسيفتح لك الملف في أي مكان بشرط أن يكون الإثنين في مجلد واحد

تفضل

NEP_Ini.xlsm

[مداد_1423]

استاذي : أبو عيد ، جزاك الله خير الجزاء

هذا هو المطلوب بارك الله فيك وكثر الله من أمثالك

لك دعوة من الحرم إن شاء الله يوم الجمعة

 

 

قال تعالى: (ولقد بوأنا بني إسرائيل مبوأ صدق ورقناهم من الطيبات)ـ

 

[أبوعيد]

شكرا أخي الحبيب على مشاعرك الطيبة

أللهم اكبي لي (ولأخواني الذين لم يحجوا بعد) حج بيته الحرام

9 ساعات مضت, مداد_1423 said:

ك دعوة من الحرم إن شاء الله يوم الجمعة

هذه أعظم هدية من أرض الحرمين

 

حياك الله