G
Guigui
Guest
hello le forum,
Je souhaite demander a l'utilisateur de mon fichier combien de copie il désire d'une impression. pas de probleme pour ceci mais si il clique "annuler", j'ai un plantage.
Private Sub CommandButton1_Click()
Dim N As String
N = InputBox("Combien de copie imprimer ?", "NOMBRE D'EXEMPLAIRE ?", "1")
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=N, Collate:=True
End Sub
je ne vois pas ce qui cloche..
merci d'avance pour votre aide
Guillaume
Je souhaite demander a l'utilisateur de mon fichier combien de copie il désire d'une impression. pas de probleme pour ceci mais si il clique "annuler", j'ai un plantage.
Private Sub CommandButton1_Click()
Dim N As String
N = InputBox("Combien de copie imprimer ?", "NOMBRE D'EXEMPLAIRE ?", "1")
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=N, Collate:=True
End Sub
je ne vois pas ce qui cloche..
merci d'avance pour votre aide
Guillaume