fermer apres imprimer

[ludo]

bonjour a tous

voila apres avoir imprimer je voudrai fermer excel

j'ai tenté

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Save
Application.Quit
End Sub

mais sans succes

avez vous des idées

merci

a+

ludo

 

[vincent]

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