Message d'erreur Input Box

Bonjour,

Ci-joint un fichier avec un bouton macro qui permet d'imprimer le nombre voulu de facture.

Mais lorsque l'input box est ouvert, si on décide d'annuler ou de cliquer sur la croix pour fermer la fenêtre, un message d'erreur apparait :

erreur d'exécution '13', incompatibilité de type

Comment ne plus avoir ce massage ?

Merci pour votre aide.

Dadams51

Bonjour,

Un essai :

Sub imprimer()
Dim nb As Integer
   On Error Resume Next
   nb = InputBox("Combien d'exemplaires voulez-vous imprimer ?")

   ActiveWindow.SelectedSheets.PrintOut Copies:=nb, Collate:=True, _
                                        IgnorePrintAreas:=False
End Sub

ric

Merci ric,

C'est résolu !

On trouve vraiment réponse à tout sur ce forum !

Bonne soirée et à une prochaine !

Dadams51

ric