bonjour tout le monde
voilà, j'ai fait ma première formule d'une macro faite à la main , mais, quand ,je souhaite dans la boite de dialogue "annuler " ou faire la fermeture avec la croix ,cela me met "Erreur d'execution "13" incompatibilité du type . comment éviter celà ,quand je click sur annuler et la fermeture de la boite de dialogue .
Merçi
Sub imprimertableau()
' Remise à zero du numéro d'exemplaire
Range("B1").Value = 0
nbcopies = InputBox("combien d'exemplaires veux tu ? Mathieu", _
"IMPRESSION NUMEROTEES", 0)
For i = 1 To nbcopies
' Incrémentation du numéro
Range("B1").Value = Range("B1").Value + 1
' Sélection du tableau et impression
Range("A2:I100").Select
Selection.PrintOut Copies:=1, Collate:=True
Next
' imprimertableau Macro
' Macro enregistrée le 22/08/2003 par m
'
'
End Sub