Macro Impression

Salut chers tous

J'ai fais une macro pour imprimer une plage de cellules mais elle ne fonctionne pas .( Débogage à l'exécution)

Je vous la montre pour que vous m'aidiez a l'arranger voire la parfaire. Merci de me revenir.

Sub imprimer()

Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show

Dim X As Byte

X = InputBox("Saisir le nombre de copies à effectuer", "Impression")

If X = "" Then

MsgBox "nombre de copies non déterminé"

Exit Sub

End If

If X <> 0 Then

ActiveWorkbook.PrintOut Copies:=X, Collate:=True

Range("B6:F28").PrintOut

End If

End Sub

Bonsoir,

sans conviction :

Dim X As Byte

X = InputBox("Saisir le nombre de copies à effectuer", "Impression")

X = Byte mais la réponse d'un inputbox = String je crois, d'où une erreur, non ?

@ bientôt

LouReeD

Bonsoir à tous.

Je vous propose ce code à adapter. Ici la zone d'impression est à définir au clavier, mais si c'est toujours la même...

Sub Imprimer_test()
'
' Imprimer_test Macro

Dim Nbexemp  As String
Dim n As Integer
'
    Dim MaPlage As String
    MaPlage = Application.InputBox(Prompt:="D?finissez la zone ? imprimer au clavier     Ex:A1:G64", Title:="Zone d'impression", Default:="A1:G64", Type:=2)
    Range(MaPlage).Select
    ActiveSheet.PageSetup.PrintArea = (MaPlage)
         Application.ScreenUpdating = False

    Nbexemp = InputBox("Tapez le nombre d'exemplaires souhait?s")
        If Nbexemp = "" Then Exit Sub
                 For n = 1 To Nbexemp
            ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
         Next n

            Application.ScreenUpdating = True
End Sub

Elle fonctionne sur Excel 2016

Cordialement.