Bonjour, est-il possible de masquer l'affichage des petites fenêtres d'impression ?
Application.ScreenUpdating ET/OU Application.DisplayAlerts ne règle pas le problème...
Voici ma macro :
Sub Production()
Application.ScreenUpdating = False
Sheets("COMMANDE").Visible = True
Sheets("COMMANDE").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
Sheets("QUANTITE").Visible = True
Sheets("QUANTITE").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
Sheets("TRACABILITE").Visible = True
Sheets("TRACABILITE").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
Sheets("COMMANDE").Visible = False
Sheets("QUANTITE").Visible = False
Sheets("TRACABILITE").Visible = False
Application.ScreenUpdating = True
End Sub