Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Export plusieurs plages en Pdf

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Calvus
  • Date de début Date de début

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

Calvus

XLDnaute Barbatruc
Bonsoir le forum,

Je voudrais exporter 2 plages non contigues en pdf. La sélection se fait mais l'exportation en pdf comprend toute la plage, y compris celle non sélectionnée.

Y a t'il un moyen ? J'ai tenté Array, mais sans succès.

VB: 
If [C83] <> "" Then
Range("B1:H56, B65:H120").Select
Else
Range("A1:H56").Select
End If



Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Range("I18").Select

Merci
 
Trier par date Trier par votes
Re : Export plusieurs plages en Pdf

Bonjour, Calvus 😀, le Forum,

Peut-être ainsi :

Code: 
Option Explicit
Sub Pdf()
    Application.ScreenUpdating = False
    If [C83] <> "" Then
        Sheets.Add.Name = "pdf"
        Sheets("Feuil1").Range("B1:H56,B65:H120").Copy Destination:=Sheets("pdf").Range("A1")
        ' emplacement et nom adapter
        Sheets("pdf").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                          "C:\Users\00\Downloads\Calvus.pdf", Quality:=xlQualityStandard, _
                                          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                          False
        Application.DisplayAlerts = False
        Sheets("pdf").Delete
        Application.DisplayAlerts = True
    Else
        Range("A1:H56").Select
    End If
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Bonjour 00, le forum,

Merci Gardienne de mes codes 🙂

J'avais bien pensé à créer une feuille temporaire, mais je voulais savoir si l'on pouvait faire autrement. On dirait que non.

Ceci étant, ton code fonctionne très bien, mais.... comment faire pour conserver les formats ?
Et indiquer le nombre de lignes pour avoir 2 pages Pdf identiques ? Il faudrait une dizaine de lignes vides sur la copie entre les 2 sélections.

Merci 🙂

A bientôt

Message modifié suite à une 1ère réponse envoyée sans bien réfléchir....
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Re-bonjour,

Calvus à dit:
... je voulais savoir si l'on pouvait faire autrement. On dirait que non.

Ceci étant, ton code bogue chez moi à la 3eme ligne :
Sheets("Feuil1").Range("B1:H56,B65:H120").Copy Destination:=Sheets("pdf").Range("A1")...
Cliquez pour agrandir...

Peut-être est-il possible d'agir autrement mais... comment ? Je ne le sais 😕 pas.

Le couac serait-il dû au nom de l'onglet ("Feuil1") ?

Si tu souhaites éviter le passage par un onglet temporaire, reste à masquer les lignes et colonnes indésirables dans le PDF.

A bientôt 😀😀
 
Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Bonjour Calvus, 00

Pour ce genre de problème, le mieux serait de faire un test en copiant tes 2 plages sur une feuille et en mettant un saut de page (si j'ai bien compris).

Ensuite tu imprimes ta feuille en PDF.

PS: sinon masquer les lignes serait un test à faire comme l'a suggéré 00 🙂.
 
Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Re-bonjour, bonjour, Michel 😀,

Calvus à dit:
... ton code fonctionne très bien, mais.... comment faire pour conserver les formats...
Cliquez pour agrandir...

Ah, voilà qui est rassurant. Pour conserver les formats :

Code: 
Option Explicit
Sub Pdf_v2_formats_conservés()
    Application.ScreenUpdating = False
    If [C83] <> "" Then
        Sheets.Add.Name = "pdf"
        Sheets("Feuil1").Range("B1:H56,B65:H120").Copy
        With Sheets("pdf").Range("A2")
            .PasteSpecial Paste:=xlPasteColumnWidths
            .PasteSpecial Paste:=xlPasteAll
        End With
        Application.CutCopyMode = False
        ' emplacement et nom adapter
        Sheets("pdf").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                          "C:\Users\00\Downloads\Calvus.pdf", Quality:=xlQualityStandard, _
                                          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                          False
        Application.DisplayAlerts = False
        Sheets("pdf").Delete
        Application.DisplayAlerts = True
    Else
        Range("A1:H56").Select
    End If
    Application.ScreenUpdating = True
End Sub

Calvus à dit:
... indiquer le nombre de lignes pour avoir 2 pages Pdf identiques ? Il faudrait une dizaine de lignes vides sur la copie entre les 2 sélections...
Cliquez pour agrandir...

Là, moi pas comprendre 😕 le besoin.

A bientôt 🙂🙂
 
Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Re

Pour les sauts de page, il faut aller dans le mode Affichage et on doit voir les sauts de pages. On peut aussi l'insérer avec un click droit en mode Mise en Page et aperçu des sauts de page et choisir Insérer un saut de page.

Sinon en macro, on peut insérer un saut de page avec le code:

Code: 
 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
 
Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Re,

Ben voilà qui est mieux 00 ! Il faut toujours attendre pour que tu sois efficace !! 😉😉😉

Bon, plus sérieusement, c'est mieux, mais toujours pas ça car les colonnes sont ajustées. J'envoie une copie de la feuille en question avec les bons formats.

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Re,

Michel, j'ai adapté ton code mais ce n'est pas ça. Ou peut être ne sais je pas faire correctement.

Bon, j'ai réglé mon problème en faisant tout simplement Range("B1:H120").Select de mon 1er code. #1

tant pis pour celui là. Je verrai au prochain problème qui se posera.

Merci et bon we 🙂
 
Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Coucou Zèbre,

Ne t'embête pas. Comme je te l'ai dit, j'ai réglé le problème. Il faut simplement que je m'assure de ne rien écrire dans les lignes 57 à 63. Sinon ça fonctionne.

Garde de l'énergie pour ma prochaine question.... car mon problème de noms copiés n'est toujours pas résolu lui....

A bientôt 🙂🙂
 
Vote positif 0 Vote négatif
Re : Export plusieurs plages en Pdf

Re-bonjour,

Calvus à dit:
... Alors là, tu m'impressionnes ! ... Bug chez moi à l'avant dernière ligne...
Cliquez pour agrandir...

😕🙁

Qu'est-ce qui t'impressionne ? Les rayures 😎 ?

"l'avant dernière ligne", chez moi = Application.ScreenUpdating = True

Peux-tu mettre celle-ci ("Application.CommandBars("Format Object").Visible = False) en commentaire ?

A bientôt 🙂🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
471
youguybass
Y
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
362
patricktoulon
Y
  • Résolu(e)
XL 2019 Vérification si dossier existe et création s'il n'existe pas
Réponses
3
Affichages
85
youguybass
Y
T
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
396
cathodique
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
905
Nounours4173
N
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
802
Phil69970
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
367
pascal21
S
  • Question Question
XL 2016 Erreur dans fonction VBA
Réponses
2
Affichages
486
sylvanu
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
752
ph.vanne
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
637
Phil69970
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
848
job75
J
  • Résolu(e)
XL 2021 pb d'export pdf
Réponses
3
Affichages
1 K
JPaul78
J
Capturer et imprimer ou exporter en pdf un userform
Réponses
4
Affichages
553
PHV62
P
G
  • Question Question
Microsoft 365 vba intégrer réf onglet dans code sauvegarde
Réponses
2
Affichages
606
patricktoulon
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
651
MarineU
M
  • Résolu(e)
XL pour MAC Excel vba export pdf sur bureau pour Mac
Réponses
10
Affichages
2 K
Dan
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
1 K
JPaul78
J
N
  • Question Question
Autres bouton d'action sous excel
Réponses
6
Affichages
514
wDog66
W
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
901
Panda79360
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…