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