Bonsoir
essaye ceci
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Save
Application.OnTime DateAdd("s", 10, Time), "ferme" 'ferme l'application 10 seconde après avoir cliquer sur impression à regler en fonction des besoins
End Sub
et dans un module
Sub ferme
Application.quit
End Sub
Il n'y a que l'évenement beforeprint alors j'ai contourné en utilisant application.ontime .
il doit y avoir d'autres solutions.
Bonne nuit
@+Vincent