XL 2010 Ne pas poursuivre l'impression en cas d'annulation

[JM27]

Bonjour
Je n'arrive pas à annuler l'impression en cas de clic sur le bouton annuler de la boite de dialogue
macro trouvée sur le site
merci de votre aide

 

[job75]

Bonjour JM27, le forum,

Sub ImprimerParticipants()
Sheets("ListeDesParticipantsJeunes").PageSetup.PrintArea = "$A$1:$H$" & Sheets("ListeDesParticipantsJeunes").Range("A1000").End(xlUp).Row
If Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    MsgBox "impression réalisée"
End If
End Sub

A+

 

[JM27]

Bonjour
merci beaucoup j'en était pas loin mais j'avais sorti le " msgbox impression réalisée " du test
Ce qui fonctionnait malgré mon message
Panne de cerveau du dimanche matin
merci encore