ماسبب هذا الخطإ وجزاكم الله خيرا

[hicham2610]

السلام عليكم

من فضلكم

لماذا تخرج رسالة الخطإ عند الضغط على oui في اختيار هل تريدها مجتمعة في ملف واحد؟

With ActiveSheet
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesTall = 1 '1 page en hauteur, détermine le zoom
    If rep = 6 Then 'Oui
        a = .PageSetup.PrintArea
        h = .Range(a).Rows.Count

الجملة الأخيرة بالأصفر

الملف مرفق وزر الكود في طبع النتائج في الورقة: bulletins_tre 1

وجزاكم الله خيرا

imprimerbulletins .xlsm

[Emad Sabry]

تم الحل متنساش علامتين التنصيص "" مع range بالاضافة الى تحديد المدى اللى هو من a :o50 وتم تعدلها 3 مرات فى الكود 

 

imprimerbulletins .xlsm

تم تعديل نوفمبر 19, 2018 بواسطه Emad Sabry