Supprimer un classeur après une impression ?

Bonjour , toutes et tous,

Je cherche une ligne de code du genre

Sub Imprimer()
Application.Dialogs(xlDialogPrintPreview).Show ''''imprime la feuille active
ActiveWorkbook.Delete   '' qui me permettrais de supprimer le classeur après l'impression de ses données.
End Sub

Merci de m'aider encore une fois,

Bon dimanche à tous

Amicalement

Pierrot

bonjour

est-ce une bonne idée ?

car si l'imprimante cafouille en cours d'impression, tu perds tout

bonjour Pierrot,

peut être avec ce code :

Application.DisplayAlerts = False
Sheets("nomdelafeuille").Delete
Application.DisplayAlerts = True

Bon wk

Bonjour, jmd, Julien,

merci à vous deux de votre gentillesse, mais de 1, mon imprimante qui est Belge ne cafouille jamais

De 2.,je possède le code proposé par Julien et cela fonctionne sauf qu'il ne supprime que la feuille active .

Je souhaitais supprimer tout le classeur.

Encore merci et bon Week-end à vous deux

Amitiés

Pierrot

Application.DisplayAlerts = False 

Avec cela alors.

Amitiés Pierrot

Merci Julien, mais cela ne marche pas, rien ne se passe

alors j'ai crée une macro qui supprime la feuille.et ça marche

Amitiés, Merci

Pierrot