كود لفتح ملف بى دى اف من زرار فى ملف اكسيل

[الفارس محمد رجب]

مرفق ملف اكسيل به زرار -- هل يوجد كود لفتح ملف بى دى اف من خلال الزرار الموجود فى ملف الاكسيل المرفق

تــم بتعديل رفع الملف بإمتداد Xlsm وذلك تجنباً لإهدار وقت الأساتذة .. طالما تريد حل طلبك بالأكواد

اوراق الشركة.xlsm

[Ali Mohamed Ali]

تفضل هناك العديد من الأكواد لتنفيذ طلبك منها :

Sub PDF_Show()
    ActiveWorkbook.FollowHyperlink "C:\Users\Ali\Downloads\ÚÞÏ ÇáÊÃÓíÓ-ãÍæá.pdf"
 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص 
End Sub

وهذا كود ثانى

Sub OpenPDF()
Dim pdf As String
    On Error Resume Next
    pdf = "C:\Users\Ali\Downloads\عقد التأسيس-محول.pdf"
 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص 
ActiveWorkbook.FollowHyperlink pdf
End Sub

واليك الملف

اوراق الشركة.xlsm

[الفارس محمد رجب]

لا اجد رد يعبر عن مدى احترامى وشكرى لكل من اعضاء هذا المنتدى المحترم الذى تعلمت منه الكتير والكثير  شكرا لك ا/ على محمد على

[حسين مامون]

بعد ادن استادي Ali Mohamed Ali

واتراء للموضوع هذه طريق اخرئ

1- حمل الملف وفك الضغط 

2 بعد فتح ملف اكسيل حدد اسم ملف بدف واضغط الزر

ملاحظة: يجب ان تخزن الملفات ب د ف في نفس الفولدر"oqoud" مع ملف اكسيل و اسمارها ايضا في الصفحة كما في المرفق

oqoud.rar

[أبو إيمان]

بعد إذن الأساتذة الأفضل

إثرائا للموضوع يمكن ذلك من خلال التالي 

=IF(J4>0;HYPERLINK(CONCATENATE("PDF/";J4;".pdf");"الاطلاع على العقد");"")