Code imprimer tous les reçus

Bonsoir Forum,

svp

j'ai besoin de modifier ce code pour imprimer tous les reçus pdf dans un seul fichier pdf

Ce code imprime seulement une page : les reçus de 1 0 12

Sub pdf()

If Not ActiveSheet.Name Like "R*" Then Exit Sub 'sécurité
Dim chemin$, rep As Byte, a$, h&, i&
chemin = ThisWorkbook.Path & "\dossier de sauvgarde\"

If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'création du dossier

        MsgBox "création du dossier "

 MsgBox "Tous dans un Seul pdf"

Application.ScreenUpdating = False
With ActiveSheet
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesTall = 1 '1 page en hauteur, détermine le zoom

        a = .PageSetup.PrintArea
        h = .Range(a).Rows.Count
        .Copy 'nouveau document
        With ActiveSheet
            .PageSetup.PrintArea = ""
            For i = 1 To Val(.[U2] - 1)
                .Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i)
                .[C4].Offset(h * i).Value = 12 * i + 1
                .HPageBreaks.Add before:=.[A1].Offset(h * i) 'saut de page
            Next
            .PageSetup.PrintArea = .Range(a).Resize(h * i).Address
        hicham
            .ExportAsFixedFormat xlTypePDF, chemin & "Groupé.pdf"
            .Parent.Close False 'fermeture du document
        End With
        MsgBox "Done"

End With
End Sub

Merci d'avance.

Bonjour hicham2610,

Un sujet similaire :

https://forum.excel-pratique.com/excel/excel-et-pdf24-comment-ajouter-des-fichiers-174912

Note ...

Je n'avais pas bien lu ta demande ... désolé ...

ric

bonsoir,

comme ça ? mes les adresses ne somt pas encore en ordre, il serait par exemple mieux d'utiliser $O4 au lieu de $O$4

Bonsoir BsAlv, Bonsoir Forum

Merci BsAlv

Mais il y'a des erreur

long temps pour la publication

120 page c'est trop

u2==ARRONDI.SUP(U1/12;0)=9 page

et quand j'ai changé u2 par =ARRONDI.SUP(U1/12;0) et exécuter ton code il ya des erreur dans les reçus (recherchev)

svp aider moi à bien adapter ce code

Merci infiniment

cet erreur avec rechercheV, je l'avais indiqué, la colonne doit rester absolute, mais la ligne relative

svp

quant je met le numero manuellement le reçu remplir correctement

mais en exécutant le code il ya des érreur dans les reçus

svp avez vous vu les reçus en pdf?

Merci pour votre attention

ce sont les erreurs avec les numéros > 105 ?

avec l'annexe de 00:42

avec celui de 00:11

on a tout les 2 un petit peu raison, le pdf était crée mais il n'était pas dans le répétoire ".....\dossier de sauvgarde\"

c.ExportAsFixedFormat xlTypePDF, chemin & "Groupé.pdf", OpenAfterPublish:=True

il fallait ajouter ce "chemin &" et si vous ne voulez pas voir le pdf, remplacer ce "true" par "false"

Bonjour BsAlv, Bonjour forum

Merci infiniment BsAlv

Problème résolu.

SVP

Si vous voulez?
Comment le code fait-il cela ?
Collection de pages de la page 2 à la page 9
merci beaucoup