Bonjour,

Je voudrai arriver à imprimer une page définie, avec une demande de quantité d'impressions.

Malgré toutes mes tentatives, pas moyens d'imprimer une zone défini, il me sort toujours une page vierge en plus, pour ce qui est de la quantité de copie, ça marche super.
Ma zone d'impression est toujours de A1:J52

J'ai essayé qui marche très bien mais toujours deux pages (en sachant que de part et d'autre des cellules ci dessus, il n'y a rien):


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub IMPRIMER()
 
Dim i As String
 
i = "i pas un nombre"
 
While (IsNumeric(i) = False Or InStr(i, ".") > 0)
i = InputBox("Combien de copies voulez-vous imprimer ?")
If i = "" Then
MsgBox "Impression annulée"
Exit Sub
End If
Wend
 
If CDbl(i) = 0 Then
MsgBox "Impression annulée"
Exit Sub
End If
 
Application.Dialogs(xlDialogPrinterSetup).Show 'Pour choisir l'imprimante
ActiveSheet.PrintOut copies:=CDbl(i)
 
End Sub
Merci par avance.