XL 2010 Editer en pdf dernière page Sans "les lignes à répéter du haut"

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
cathodique

cathodique

XLDnaute Barbatruc
Bonjour🙂,

Une feuille à éditer en PDF (ou imprimer ), sur laquelle une entête à reproduire sur toutes les pages sauf la dernière qui contient un petit encadré.
Je parvins à gérer les sauts de page mais je n'ai aucune idée pour ne pas imprimer l’entête sur la dernière page.
VB: 
Option Explicit
Sub mep()
    Dim dl As Long, col As Byte, HPage As Integer, VPage As Byte, x As Integer
    ActiveWindow.View = xlPageBreakPreview

    With ActiveSheet
        dl = .UsedRange.Rows.Count
        .ResetAllPageBreaks
        .PageSetup.PrintArea = "A1:k" & dl
        .PageSetup.PrintTitleRows = "$1:$4"
        HPage = .HPageBreaks.Count
        VPage = .VPageBreaks.Count
      
        If VPage >= 1 Then .VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
      
        If HPage >= 1 Then
            For x = dl To 1 Step -1
                If .Cells(x, 9).Borders(xlEdgeTop).LineStyle = xlContinuous Then
                    .HPageBreaks.Add Before:=Range("A" & x - 1)
                    Exit For
                End If
            Next x
        End If
    End With
    ActiveWindow.View = xlNormalView
End Sub
Merci pour votre aide.
 
Dernière édition:
Trier par date Trier par votes
patricktoulon à dit:
et oui mais visiblement on peut pas enlever l'entete sur la derniere page
je suis en train de tester une autre solution
Cliquez pour agrandir...
Merci Patrick de me consacrer de ton temps. Si ça peut t'inspirer une solution. Pour éditer plusieurs, j'utilisais ce code au boulot, pour faire un rapport constitué de 3 feuilles en 1 seul fichier pdf.
VB: 
Sub En_PDF()
Dim Chemin As String, MonFichier As String, Ch As String
Application.ScreenUpdating = False

Ch = ThisWorkbook.Path
Chemin = Ch & "\Contrôle"
MonFichier = Chemin & "\" & "Rapport CP" & " " & Sheets("bd").Range("C2") & ".pdf"

txt = Dir(MonFichier)
If txt = "" Then
   Sheets(Array("A", "B", "C")).Select '***choix des feuilles'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonFichier, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
    End
 End If
MsgBox "Opération terminée!"
End Sub
 
Vote positif 0 Vote négatif
oui c'est ce que j'etait en train de voir justement
reconstruire une feuille avec chaque tableau page +entete ou sur plusieur pages

teste ceci et dis moi si ce que dis le message est bon pour toi
VB: 
Sub test()
    debut = 5
    With ActiveSheet
        dl = .UsedRange.Cells(.UsedRange.Cells.Count).Row    'Là on est sur!!!!
        For i = 5 To dl
            If .Rows(i).PageBreak <> xlNone Then texte = texte & "entete : A1:K4 ; page " & "A" & debut & ":K" & i - 1 & vbCrLf: debut = i
        Next
         texte = texte & "pas d'entete : page " & "A" & debut & ":K" & dl

    End With
MsgBox texte
End Sub
 
Vote positif 0 Vote négatif
patricktoulon à dit:
oui c'est ce que j'etait en train de voir justement
reconstruire une feuille avec chaque tableau page +entete ou sur plusieur pages

teste ceci et dis moi si ce que dis le message est bon pour toi
VB: 
Sub test()
    debut = 5
    With ActiveSheet
        dl = .UsedRange.Cells(.UsedRange.Cells.Count).Row    'Là on est sur!!!!
        For i = 5 To dl
            If .Rows(i).PageBreak <> xlNone Then texte = texte & "entete : A1:K4 ; page " & "A" & debut & ":K" & i - 1 & vbCrLf: debut = i
        Next
         texte = texte & "pas d'entete : page " & "A" & debut & ":K" & dl

    End With
MsgBox texte
End Sub
Cliquez pour agrandir...
Voici une capture d’écran
1612000144706.png
 
Vote positif 0 Vote négatif
et bien maintenant tu sais comment faire
soit un addsheet puis dans la boucle copy destination ( entete + plage)plus add hpagebreak a chaque tour sur le usedrange(methode patrick(important!!!!))

ou
créer autant de sheets que de plage et copy destination entete + plage

et enfin selection l'array de sheet puis save as pdf

fait le et je le fait de mon coté 😉 (je teste le plus facile en premier [chaque plage sur une feuille différente])
 
Vote positif 0 Vote négatif
patricktoulon à dit:
et bien maintenant tu sais comment faire
soit un addsheet puis dans la boucle copy destination ( entete + plage)plus add hpagebreak a chaque tour sur le usedrange(methode patrick(important!!!!))

ou
créer autant de sheets que de plage et copy destination entete + plage

et enfin selection l'array de sheet puis save as pdf

fait le et je le fait de mon coté 😉 (je teste le plus facile en premier [chaque plage sur une feuille différente])
Cliquez pour agrandir...
Non Patrick, je ne veux pas ajouter de feuilles. Merci beaucoup, je vais essayer de creuser du côté de l'édition de plusieurs plages dans un seul PDF. Est-ce possible? Je ne sais pas encore🔦☺️.

Bonne journée.
 
Vote positif 0 Vote négatif
patricktoulon à dit:
ben avec save As tu va être obligé
trouillard!!!!! 🤣 😉
tiens regarde
Cliquez pour agrandir...
Je te remercie beaucoup. Je connais bien tes capacités. Mais je veux pas ajouter de feuilles.
J'étais entrain d'exploiter ton code pour récupérer les pages dans des variables plages (je n'ai pas encore réussi).
Car, j'ai trouvé un code de Kiki29 qui pourrait convenir. ICI
VB: 
Option Explicit
 
Sub Tst()
Dim Rg As Range
    Set Rg = Application.Union(Range("Plage_01"), Range("Plage_02"), Range("Plage_03"))
    Rg.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                           ThisWorkbook.Path & "\" & "Test.pdf", _
                           Quality:=xlQualityStandard, _
                           IncludeDocProperties:=True, _
                           IgnorePrintAreas:=False, _
                           OpenAfterPublish:=False
    Set Rg = Nothing
End Sub
Encore merci.

Bon appétit😉
 
Vote positif 0 Vote négatif
re
et oui mais je sais pas si avec union tu pourra faire
Set Rg = Application.Union(range("entete"),Range("Plage_01"), range("entete"),Range("Plage_02"), range("entete"),Range("Plage_03"),range("plage_04"))

a tester 😉
pour info dans mon model tout est supprimé a la fin il revient a l'original
 
Vote positif 0 Vote négatif
patricktoulon à dit:
re
et oui mais je sais pas si avec union tu pourra faire
Set Rg = Application.Union(range("entete"),Range("Plage_01"), range("entete"),Range("Plage_02"), range("entete"),Range("Plage_03"),range("plage_04"))

a tester 😉
Cliquez pour agrandir...
Re,
et oui, à tester.
Cependant, étant que le nombre de pages n'est pas connu au préalable. Donc, il faut créer les plages que je n'ai pas encore réussi à faire. Et, madame se met de la partie... c'est le moment de manger🤬 me dit-elle.

Allez à toute à l'heure. 😉
 
Vote positif 0 Vote négatif
ok bon app
pour info
j'ai testé ça ne fonctionne pas l’entête est uni aux plages qu'une fois en premier et il n'y a plus de saut de pages
VB: 
Option Explicit
 
Sub Tst()
Dim Rg As Range
    Set Rg = Application.Union(Range("A1:K4"), Range("A5:k10"), Range("A1:K4"), Range("A11:k15"), Range("A1:K4"), Range("A16:k20"), Range("A21:k29"))
    Rg.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                           ThisWorkbook.Path & "\" & "Test.pdf", _
                           Quality:=xlQualityStandard, _
                           IncludeDocProperties:=True, _
                           IgnorePrintAreas:=False, _
                           OpenAfterPublish:=False
    Set Rg = Nothing
End Sub

WRONG WAY !!!!!
😉
 
Vote positif 0 Vote négatif
patricktoulon à dit:
ok bon app
pour info
j'ai testé ça ne fonctionne pas l’entête est uni aux plages qu'une fois en premier et il n'y a plus de saut de pages
VB: 
Option Explicit

Sub Tst()
Dim Rg As Range
    Set Rg = Application.Union(Range("A1:K4"), Range("A5:k10"), Range("A1:K4"), Range("A11:k15"), Range("A1:K4"), Range("A16:k20"), Range("A21:k29"))
    Rg.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                           ThisWorkbook.Path & "\" & "Test.pdf", _
                           Quality:=xlQualityStandard, _
                           IncludeDocProperties:=True, _
                           IgnorePrintAreas:=False, _
                           OpenAfterPublish:=False
    Set Rg = Nothing
End Sub

WRONG WAY !!!!!
😉
Cliquez pour agrandir...
OK, WRONG WAY!
Merci beaucoup. Qui ne tente rien n'a rien!
Sur ce forum et d'autres, on disait bien qu'on pouvait tout faire en VBA.
Avec cet exemple, on pourra aussi dire que VBA à ses limites.

En tout cas, je te remercie beaucoup pour ta patience et ta pertinence.
Mais une dernière question, pourquoi dl = .UsedRange.Rows.Count renverrais une fausse une formation
et ta suggestion dl = .UsedRange.Cells(.UsedRange.Cells.Count).Row 'Là on est sur!!!!
Le "UsedRange d'un UsedRange" donne la bonne information. Je reconnais que tu as plus d'un tour dans ton sac.

Bon week-end.
 
Vote positif 0 Vote négatif
ben c'est simple et tout bete
supposons: que ta plage utilisée commence en A4 et termine en K20 et que au dessus il n'y ai rien


donc quand tu boucle comme tu le fait ici
VB: 
With ActiveSheet
        dl = . dl = .UsedRange.Rows.Count    
        For i = 5 To dl'???????????????
d'apres toi la boucle va s’arrêter a la ligne 20 ou 16

maintenant si je fait

VB: 
With ActiveSheet
        dl = .UsedRange.Cells(.UsedRange.Cells.Count).Row    'Là on est sur!!!!
        For i = 5 To dl'???????????????
d’après toi la boucle va s’arrêter à 16 ou à 20

c'est bon ? ça rentre 😉
 
Vote positif 0 Vote négatif
patricktoulon à dit:
ben c'est simple et tout bete
supposons: que ta plage utilisée commence en A4 et termine en K20 et que au dessus il n'y ai rien


donc quand tu boucle comme tu le fait ici
VB: 
With ActiveSheet
        dl = . dl = .UsedRange.Rows.Count   
        For i = 5 To dl'???????????????
d'apres toi la boucle va s’arrêter a la ligne 20 ou 16

maintenant si je fait

VB: 
With ActiveSheet
        dl = .UsedRange.Cells(.UsedRange.Cells.Count).Row    'Là on est sur!!!!
        For i = 5 To dl'???????????????
d’après toi la boucle va s’arrêter à 16 ou à 20

c'est bon ? ça rentre 😉
Cliquez pour agrandir...
Encore merci. Il faut que je fasse un test pour m'en rendre compte de moi-même. C'est en forgeant qu'on devient forgeron. Et des fois, il y a des ratées comme pour les voitures. Mais pour les voitures on peut changer les bougies. Pour nous autres humains pas possible malgré les grands avancés scientifiques😏.

MERCIIIIIIIIIIIIIIIIII
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

patricktoulon
Imprimer ou exporte une plage en pdf pleine page zoom auto
Réponses
0
Affichages
325
patricktoulon
patricktoulon
shinozak
  • Question Question
XL 2016 VBA: Ne pas répéter lignes pour dernière page PDF
Réponses
0
Affichages
934
shinozak
shinozak
grisan29
  • Question Question
problème de mise en page
Réponses
2
Affichages
915
grisan29
grisan29
A
  • Question Question
VBA macro imprimer en PDF les onglets sans les nommer
Réponses
7
Affichages
2 K
Anna_2013
A
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
Le_Phénomène
M
[VBA] Gérer les impressions par VBA
Réponses
9
Affichages
89 K
cathodique
cathodique
Retour