validez impresion par uneboite de dialogue

[patrick]

Bonjour.
Voici le code mais que je clique sur ok ou annulé ou la croix j'ai toujour une impresion de lancer.
------------------------------------------------------------------------------

Sub test()
Dim i
i = MsgBox('voulez imprimez cette page ? ', vbOKCancel)
'Ok renvois i=1, Cancel renvois i = 2, fermeture à la croix renvois i = 2
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=False
End Sub


----------------------------------------------------------------------------
Si vous avez une information pour completer le code Merci

 

[salim]

Bonsoir

Patrick essaie comme ceci :

Option Explicit

Sub test()
Dim i
    i = MsgBox('voulez imprimez cette page ? ', vbOKCancel)
    If i = 1 Then ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=False
End Sub

salim