ربط خلية في ورقة اكسل لفتح ملف من نوع PDF

[sami salem]

الأخوة الأعزاء

مرفق ملف أرجو المساعدة بعمل ماكرو لتنفيذ الآتي :

ربط الخلية B2 بملف من نوع Pdf بمعنى اذا كانت الخلية تساوي 4 يتم فتح الملف باسم 4 واذا كانت الخلية = 5 يتم فتح الملف باسم 5 والملفات كلها من نوع Pdf علماً مرفق مجلد به ملف اكسل وعدد 2 ملف من نوع Bdf.

ان كان ذلك بالأمكان أرجو المساعدة ولكم جزيل الشكر

_____________________Pdf.rar

[ابو اسامة العينبوسي]

السلام عليكم

ضع اى ملف PDF في My Documentsو سمه "Test"

Sub test()
On Error Resume Next
Filename = Range("A1").Value
ThisWorkbook.FollowHyperlink "C:\Documents and Settings\User\My Documents\" & Filename & ".pdf"
End Sub

test1.rar

تم تعديل مارس 29, 2009 بواسطه ابو اسامة العينبوسي

[sami salem]

الأخ الكريم /

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

بارك الله فيك على سرعة وتلبية الرد وإنشاء الله في ميزان حسناتك ، ولكن يأخي الكريم بالفعل الماكرو يعمل ولكن لا يقوم بفتح الملف لا أعلم لماذا علماً بأنني قمت بوضع ملف من Pdf بأسم Tes في الفولدر الخاص بالمستندات أرجو الإفادة ولك جزيل الشكر

[طارق محمود]

السلام عليكم

بعد إذن أخي أبو أسامة

المسار لازم يكون مطابق لحالتك

فلابد من ضبطه علي مسار My Documents اللي عندك مثلا أنا عندي: C:\Documents and Settings\Home User\My Documents

وفي جهاز آخر D:\My Documents وهكذا

وممكن تضع الملف في مكان مافيش فيه خلاف مثلا D:\

[ahmedhafez]

اخى طارق تم ظبط المسار ولكنة لا يعمل ولا اعرف السبب ارجو المساعدة جزاك الله كل خير

[sami salem]

الأخوة الكرام /

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

بالفعل شاكر لكم تفاعلكم مع طلبي لمساعدتي ومساعدة كل من يحتاج للمعرفة وان شاء الله تُعم المعرفة للجميع.

وبالنسبة للماكرو سليم ويعمل ولكن يتم التعرف على المسار ويفتح الملف ويغلق الملف في نفس الوقت ولهذا قد يكون لابد من اضافة آمر لجعله نشط دونلاق ولعل الأخوة بالمنتدى يوجد لديهم حل .......... وله جزيل الشكر ...

[طارق محمود]

انا لم أحمل الملف الإكسل

ولكن نسخت الماكرو إلي ملف عندي

ووضعت إسم الملف المراد فتحه في الخلية A1

حيث ينص الماكرو علي ذلك

Filename = Range("[u]A1[/u]").Value

والسطر التالي من الماكرو ينص علي:

ThisWorkbook.FollowHyperlink "[u]C:\Documents and Settings\User\My Documents\[/u]" & Filename & ".pdf"

لذلك يجب تضبيط المسار

C:\Documents and Settings\User\My Documents\

ووضع إسم الملف في الخلية A1

وقد فعلت ذلك ولم يحدث مشاكل

راجع أمان الماكرو ، لعله غبر مفعل

[طارق محمود]

السلام عليكم

إليك حل نهائي (باستخدام نفس فكرة أخي أبو أسامة جزاه الله خيرا)

الملف المرفق

الشرط الوحيد أن يكون الملف الإكسل مع الملفات الــ PDF المراد فتحها في مجلد (فولدر) واحد

تفضل وجرب وطبعا ممكن تغير أسماء الملفات الــ PDF

Link_Pdf.rar

[sami salem]

الأخوة الكرام

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

بارك الله فيك يأخي طارق وكل الأخوة الذين شاركوا بالمعلومة وبالفعل الماكرو يعمل ولكن للمعلومة عمل عندي فقط لعى ادوب ريدر 8 وليست النسخة 7 وشكراً