Re : Paramètres d'impression applicables à plusieurs onglets
Salut,
Merci pour ta réponse rapide.
Lorsque je mets dans ThisWorbook :
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Selection de tous les onglets du fichier
Sheets.Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
'Dé-sélection de tous les onglets pour éviter les erreurs
Sheets("Chargement 2").Select
Range("A1").Select
End Sub
et que je clique pour démarrer la macro, il n'a aucune macro à me proposer.
Si sous
rivate Sub Workbook_BeforePrint(Cancel As Boolean)
J'ajoute : Sub ImpressionProtocole()
Lorsque je veux exécuter une macro, il propose cette fois :
ThisWorkbook.ImpressionProtocole.
Si je clique sur "Run", il met le message d'erreur Compile error: Expected End Sub.
Je fais OK, il surligne en jaune Private Sub Workbook_BeforePrint(Cancel As Boolean)
Je clique sur le bouton stop pour arréter la macro.
Il imprime le tout, mais toujours en appliquant mes paramètres qu'à la première page.
Aurais-tu une solution ?
Fab