patrickb12
Messages postés4Date d'inscriptionjeudi 10 novembre 2005StatutMembreDernière intervention20 avril 2006
-
7 déc. 2005 à 20:22
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
8 déc. 2005 à 09:50
Bonjour j'ai un code vba pour avoir une boite de message avant l'impression du document qui est activez par une macro.
Mais que je clique sur oui ou non l'impression est envoyer même si je ferme la fenêtre par la croix voici le code.
Sub Imprimer()
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
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 8 déc. 2005 à 09:50
Il te suffit de tester le résultat de la fonction MsgBox
Sub Imprimer()
if MsgBox("voulez imprimez cette page ? ", vbOKCancel) = VbOk Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=False
End If
End Sub