Macro pour imprimer

[KTM]

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

 

[cp4]

Bonsoir,
Sans fichier pour tester, essaie comme ceci:Cint(X)

Range("B6:F28").PrintOut Copies:=Cint(X), Collate:=True

Bonne soirée.

 

[KTM]

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.

 

[cp4]

Bonjour,

Moi aussi je n'ai pas compris. Voir ce lien ça pourrait t'aider.
Bonne journée.