PB Macro Impression

[Seydina]

Bonjour le Forum,

Je viens d’utliser la macro trouver sur le forum relatives au nombre d’impression.
La voici :
Sub Impression()
' Macro enregistrée le 14/11/2007

Dim NbImpression As Integer

NbImpression = InputBox("Combien d'exemplaire voulez-vous?")

Sheets("RECU").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=NbImpression, Collate:=True

End Sub

Quand j’annule le nombre d’impression, il y’a une erreur d’exécution type
(NbImpression = InputBox("Combien d'exemplaire voulez-vous?")

Merci de votre retour svp

 

[LPandre]

Re : PB Macro Impression

Bonjour


Sub Impression()

On Error GoTo fin

Dim NbImpression As Integer

NbImpression = InputBox("Combien d'exemplaire voulez-vous?")

Sheets("RECU").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=NbImpression, Collate:=True


fin:
End Sub

@+