Macro impression

Bonjour chers tous

Je suis à la recherche un code pour pouvoir imprimer une plage de cellules.

Dans mes recherches j'ai pu en trouver que j'ai adapté à mon fichier mais le nombre de copies désigné dans ma inputbox n'est pas respecté lors de l'impression.

La macro me lance toujours une seule copie. Je pense que quelque chose manque à mon code.Merci de m'aider à corrigé ce dysfonctionnement.

Salut,

Moi aussi je ne comprend pas le problème de ta macro, en revanche tu peux essayer de dupliquer la feuille en fonction du nombre X.

Imprimer l'intégralité des feuilles, et ensuite supprimer les feuilles différentes de la Feuil1.

Bon courage.

Bonjour

voila une macro pour imprimer en PDF

a voir si ca te va

A+

Maurice

Sub Imprimer()
Dim N&
    N = InputBox("Saisissez le nombre de copies d?sir?es :", "Nombre de copies", 1)
    If IsNumeric(N) Then
        Choix N
    Else
        MsgBox "Saisie incorrecte.", 16
        Exit Sub
    End If
End Sub

Sub Choix(N)
Dim Chemin$, NomDoc$, NomFiche$
Dim C&
'Sheets("Stat").Select
   With ActiveSheet.PageSetup
    .PrintArea = "$B$6:$F$28"
    .CenterHorizontally = True
    .Orientation = xlPortrait ' Portrait
    .PaperSize = xlPaperA4 'Format papier
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .BlackAndWhite = False ' Couleur
   End With
Chemin = ThisWorkbook.Path & "\"

    NomDoc = "Facture"

For C = 1 To N
    NomFiche = Chemin & NomDoc & C & Format(Now, "-dd-mmmm-yyyy") & ".pdf"
   Call EditionPDF(NomFiche)
Next
 MsgBox "Edition Terminer"
End Sub

Sub EditionPDF(NomFiche)
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub