خطاء invalid procedure call or argument

[مختار البركاني]

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

لدي الملف المرفق استخدمه لترحيل اشعارات وحفظ نسخة من الاشعار بملف pdf

تعطل عليا الملف وتظهر الرسالة invalid procedure call or argument

امل من الاخوة التعاون بحل المشكلة

وتقبلوا تحياتي

Desktop.rar

تم تعديل ديسمبر 20, 2015 بواسطه مختار البركاني
خطاء مطبعي

[مختار البركاني]

اخواني هل من حل للمشكلة اذا تكرمتم.

 

[عبدالله بشير عبدالله]

اخي الفاضل السلام عليكم

الكود ليست به اي مشكلة

في الكود المطلوب تحويل الاشعار الى ملف اسمه mokhter

يجب ان يكون لديك ملف في القرص D بإسم  ,mokhter وستحل المشكلة بإذن الله  وقد جربت ذلك وتم نحويل الاشعار

 

اشعارات.rar

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

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

تأكد من وجود المجلد المسمى Mokhtar في البارتشن D ثم جرب التعديل البسيط الذي يسرع من عمل الكود

Sub Tarheel()
    Dim myFile As String, iRow As Integer
    
    myFile = "D:\Mokhtar\" & Sheets(1).Range("C8") & "-" & Sheets(1).Range("I7") & ".pdf"
    iRow = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    
        Sheets(2).Range("A" & iRow).Value = Sheets(1).Range("H6").Value
        Sheets(2).Range("B" & iRow).Value = Sheets(1).Range("I7").Value
        Sheets(2).Range("C" & iRow).Value = Sheets(1).Range("C8").Value
        Sheets(2).Range("D" & iRow).Value = Sheets(1).Range("I28").Value
        
        Sheets(2).Hyperlinks.Add anchor:=Sheets(2).Range("F" & iRow), Address:=myFile, TextToDisplay:=myFile
        Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFile
        
        MsgBox "Done", 64
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.Calculation = xlCalculationAutomatic
End Sub

 

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

[مختار البركاني]

اخواني الاعزاء

هذه الملف اعمل عليه منذ اشهر ولم تواجهني اي مشكلة

وبالنسبة للمجلد باسم Mokhtar  فهو موجود بال D

ايضا تم استبدال الكود بمود الاخ ابو البراء ولم يعمل

حسب المرفقات

فهل المشكلة بالاكسل لدى او ان هناك اعدادات تم تغيرها لدى

  شاكرا لتفاعلكم

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

ما هي نسخة الأوفيس التي تعمل عليها؟

إذا كانت أوفيس 2007 فأعتقد أنك ستحتاج لإضافة يتم تنصيبها فيما يخص تصدير ملفات PDF

أما الإصدارات الأحدث فلا يوجد بها مشكلة

والكود مجرب ويعمل جيداً

[KHMB]

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

شكرا للجميع  عمل معي الملف 100% من اول خطوه جزاكم الله خير

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

وعليكم السلام أبا الحسن والحسين

جزيت خيراً على تجربة الكود والملف .. بارك الله فيك ونفع بك إخوانك

 

يرجى من الأخ مختار ذكر النسخة التي تعمل عليها .. وإذا كانت النسخة أوفيس 2007 فلتخبرنا ، فقد تكون المشكلة في النسخة لديك

تقبلوا تحياتي

[مختار البركاني]

نعم استاذ ياسر

اعمل على النسخة 2007

ما الذي يحتاج تنصيب

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

جرب الملف التالي

 

SaveAsPDFandXPS.rar

[مختار البركاني]

بارك الله فيك استاذ

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

نعم اشتغل 

الف الف شكر

تم تعديل ديسمبر 24, 2015 بواسطه مختار البركاني

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

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله أخي الحبيب مختار أن من الله علينا بحل المشكلة

لا تنسانا بدعوة بظهر الغيب

تقبل تحياتي

[KHMB]

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

الاخ الحبيب والعزيز استاذنا ومشرفنا الفاضل / ياسر خليل ابو البراء

والله العظيم يعجز اللسان عن شكرك وبأدي طريقة او تعبير فلك دعوة طيبة من القلب في ظهر الغيب.

في الفترة التي انت فيها الغائب الحاضر هناك عند كل دخول نرى كثير من المواضيع  الردود صفر والان لايوجد .

فبارك الله فيك وجزاك الله خير الجزاء

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

أخي الغالي أبا الحسن والحسين

بارك الله فيك وجزاك الله خيراً على كلماتك الرقيقة وشعورك الطيب نحوي

البركة في الأخوة المتواجدين ..إن غاب نجم فهناك شموس تضيء بالمنتدى ليل نهار

وأنت أحد هؤلاء النجوم

تقبل وافر تقديري واحترامي