Macro pour imprimer

KTM

XLDnaute Impliqué
Salut Chers Amis du forum
J'ai élaboré une macro pour imprimer une plage de cellule connue et le nombre de copies doit être déterminé via InputBox . J'ai remarqué qu' elle lance une seule copie malgré le nombre indiqué dans la inputbox
Pouvez vous m'aider à faire le reglage?
Voici la macro :

Sub imprimer()
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
Dim X As String
X = InputBox("Saisir le nombre de copies à effectuer", "Impression")
If X = "" Then
MsgBox "Nombre de copies non determiné Veuillez reesayer ", 64
Exit Sub
End If
If X <> 0 Then
Range("B6:F28").PrintOut Copies:=X, Collate:=True
End If
End Sub
 

KTM

XLDnaute Impliqué
Donc si j'ai bien compris mon code sera comme ceci:

Sub imprimer()
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
Dim X As String
X = InputBox("Saisir le nombre de copies à effectuer", "Impression")
If X = "" Then
MsgBox "Nombre de copies non determiné Veuillez reesayer ", 64
Exit Sub
End If
If X <> 0 Then
Range("B6:F28").PrintOut Copies:=Cint(X), Collate:=True
End If
End Sub

Mais le nombre de copies n'est toujours pas respecté
Je joint un fichier test Merci.
 

Pièces jointes

  • macro_impression.xlsm
    16.9 KB · Affichages: 41

Discussions similaires

Réponses
4
Affichages
391
Réponses
6
Affichages
388

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson