السلام عليكم
 
	من فضلكم
 
	لماذا تخرج رسالة الخطإ عند الضغط على 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