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

[محي الدين ابو البشر]

في المرفق كود ساعدني به الاستاذ مختار جزاه الله كل خير

أرجو مساعتي في تعديل الجزء المتعلق باختيار ملف الوورد فبدلا من اختياه من نافذة حوار أن يأخذ اسم الملف ومساره من الشيت 2 الخلية لتكن A1

والشكر لكم  للاستاذ مختار مرة أخرى

وبارك الله

قائمة بالاسعار مختار.rar

[ياسر خليل أبو البراء]

أخي الكريم محي

قم بوضع تعليق على هذه الأسطر التي تقوم بفتح مربع حواري لاختيار الملف منها

'    Set FD = Application.FileDialog(msoFileDialogOpen)
'    FD.Show
'    If FD.SelectedItems.Count <> 0 Then
'        FName = FD.SelectedItems(1)
'        Else
'        Exit Sub
'    End If

وضع هذا السطر .. قبلها أو بعدها (مش هتفرق)

FName = Sheet2.Range("A1").Value

 

ممكن ترفق ملف الورد المستخدم في مثالك للإطلاع عليه والاستفادة منه

تقبل تحياتي

[محي الدين ابو البشر]

استاذي العزيز ياسر

التعديل لا يعمل

هناك رسالة تمنعه من المتابعة:  file in use

مرفق الملف الذي طلبت

قائمة بالاسعار مختار.rar

[ياسر خليل أبو البراء]

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

[محي الدين ابو البشر]

لا أكيد اغلق كل ملقات الوورد 

جرب بتنفيذ الكود ب F8 يعطي نفس الرسالة مع العلم أن وورد مغلق

[محي الدين ابو البشر]

عذراً منك استاذياسر يبدو أنه" في حشيش مضروب" عندي 

شكرا على مساعدتك

تم تعديل يناير 2, 2016 بواسطه محي الدين ابو البشر
إضافة

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير ..

وإن كان ع الحشيش ، فأنا عندي للأسف مفيش .. ممكن نستعين بأحد الأصدقاء من كفور بلشاي (مش عارف هو ظهر فجأة واختفى تاني ليه)