اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by Ali Mohamed Ali,

الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

  • Like 7
  • Thanks 2
رابط هذا التعليق
شارك

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

oqoud.rar

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information