Gardez la procédure non et supprimer la procédure oui de ce code VBA

Bonjour forum

S’il vous plaît, comment pouvez-vous modifier ce code et le faire comme si l’utilisateur avait choisi non dès le premier afin que les cartes ne soient pas imprimées groupé?

Supprimez la procédure du réponse oui et conservez la procédure du réponse non dans le code suivant, et merci beaucoup

Sub imprimer2()
    If Not ActiveSheet.Name Like "Feuil4*" Then Exit Sub ' sécurité
    Dim chemin$, rep As Byte, a$, h&, i&
    chemin = ThisWorkbook.Path & "\cartes \"
    If Dir(chemin, vbDirectory) = "" Then MkDir chemin ' création du dossier

    MsgBox "dossier sauvegaede au meme emplacement"

    rep = MsgBox("tu veux fichier groupés¿", 3)
    If rep = 2 Then Exit Sub
    Application.ScreenUpdating = False
    With ActiveSheet
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesTall = 1 ' 1 page en hauteur, détermine le zoom
        If rep = 6 Then ' Oui
            a = .PageSetup.PrintArea
            h = .Range(a).Rows.Count
            .Copy ' nouveau document
            With ActiveSheet
                .PageSetup.PrintArea = ""
                For i = 1 To Val(.Range("L5").Value) - 1
                    .Range(a).EntireRow.Offset(h * i - h).Copy .Range("A1").Offset(h * i)
                    .Range("L2").Offset(h * i).Value = i + 1
                    .HPageBreaks.add Before:=.Range("A1").Offset(h * i) ' saut de page
                Next
                .PageSetup.PrintArea = .Range(a).Resize(h * i).Address
                .PageSetup.FitToPagesTall = i
                .ExportAsFixedFormat xlTypePDF, chemin & "Groupé.pdf"
                .Parent.Close False ' fermeture du document
            End With
            MsgBox "fichiers groupés"
        Else ' Non
            For i = 1 To Val(.Range("L5").Value)
                .Range("L2").Value = i
                .ExportAsFixedFormat xlTypePDF, chemin & .Range("L2").Value & ".pdf"
            Next
            .Range("L2").Value = 1
            MsgBox i - 1 & " : nombre des fichiers"
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Bonjour hicham

Même chose que votre fil précédent, si vous voulez des réponses

A+

Bonjour BrunoM45, Bonjour forum

voici le fichier

S’il vous plaît, si quelqu’un est intervenu de votre côté pour corriger parti l’impression des cartes combinées dans un seul fichier, alors c’est bien parce qu’elles sont imprimées avec moi en chevauchement, sinon modifier le code pour qu’il ne soit valable que pour imprimer des cartes individuellement

Le Bouton d’impression sur la feuille 4

Merci

Bonjour Forum,

Le défaut n’était pas dans le code, mais plutôt dans la détermination de la zone d’impression, donc en changeant la zone d’impression pour inclure jusqu’à la ligne 49, le problème est résolu.

Je mets la solution ici pour ceux qui veulent en bénéficier.