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

XL 2013 Enregistrement en PDF

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion STARRAG
  • 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
S

STARRAG

XLDnaute Nouveau
Bonjour à tous,

J'ai besoin de votre aide pour savoir s'il existe une solution concernant ma macro.
J'utilise une macro pour enregistrer mon tableau excel en pdf via cette macro:
VB: 
Sub PDF_ENREGISTRER()

Dim LHeure As String, LeDate As String

LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\ " & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=18, OpenAfterPublish:=False

End Sub

Cependant, je suis obligé de modifier le nombre de page à créer sur le pdf à chaque fois que mon tableau s'agrandit.
A t'il une solution pour qu'il s'adapte automatiquement?

Merci d'avance de votre aide.
Cordialement
 
Solution
Starrag, michockette, Kiki29

Si j'ai compris ta réponse ce code fonctionne ?

VB: 
Option Explicit

Sub Impression()
Dim sFichier As String, Nb As Long, LastRow As Long

sFichier = ThisWorkbook.Path & "\" & "Test_NbPages.pdf"

Feuil1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                               From:=1, OpenAfterPublish:=False
End Sub

@Phil69970
Trier par date Trier par votes
 
Vote positif 0 Vote négatif
a essayer
Sub PDF()
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "dd\_mm\_yyyy\_hhmm")

'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")

'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile

'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strPathFile, _
FileFilter:="Fichier PDF (*.pdf), *.pdf", _
Title:="Selectionnez Un Repertoire pour la Sauvegarde")

'export to PDF if a folder was selected
If myFile <> "False" Then
wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'confirmation message with file info
MsgBox "Fichier PDF Crée: " _
& vbCrLf _
& myFile
End If

exitHandler:
Exit Sub
errHandler:
MsgBox "Impossible de créer le Fichier PDF"
Resume exitHandler


End Sub
 
Vote positif 0 Vote négatif
Bonjour Starrag, le forum

Que se passe t'il si tu ne mets pas les arguments From et To.


Range.ExportAsFixedFormat, méthode


FromFacultatifVarianteNuméro de la page à partir de laquelle commence la publication. Si cet argument est omis, la publication commence à la première page.
ToFacultatifVarianteNuméro de la dernière page à publier. Si cet argument est omis, la publication se termine à la dernière page.

@Phil69970
 
Vote positif 0 Vote négatif
Bonjour,

Merci michokette et Phil69970, mais apparemment, je dois avoir un problème sur mon tableau excel.
Lorsque je lance la macro de michoquette ou que je modifie ma macro selon les conseils de Phil69970, un pdf s'ouvre avec 36 pages alors que 18 étaient nécessaire...
En rajoutant un filtre sur mon tableau, le pdf s'ouvre avec 8 pages alors que 4 étaient nécessaire...
 
Vote positif 0 Vote négatif
Salut, ici en Portrait A4 avec 62 lignes par page, à tester et adapter à ton contexte.
Un échantillon de ton tableau aiderait.

VB: 
Option Explicit

Sub Impression()
Dim sFichier As String, LastRow As Long, Nb As Long

    sFichier = ThisWorkbook.Path & "\" & "Test.pdf"
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    'LastRow = Feuil1.UsedRange.Rows.Count
    Nb = LastRow \ 62
    If LastRow Mod 62 > 0 Then Nb = Nb + 1

    Feuil1.ExportAsFixedFormat Type:=xlTypePDF, _
                               Filename:=sFichier, _
                               Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, _
                               IgnorePrintAreas:=False, _
                               From:=1, To:=Nb, _
                               OpenAfterPublish:=False
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re, ceci devrait fonctionner, elle me sort 21 pages.
VB: 
Option Explicit

Sub Impression()
Dim sFichier As String, Nb As Long, LastRow As Long

    sFichier = ThisWorkbook.Path & "\" & "Test_NbPages.pdf"

    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    Feuil1.PageSetup.PrintArea = "$A$4:$X$" & LastRow

    Nb = Feuil1.HPageBreaks.Count + 1

    Feuil1.ExportAsFixedFormat Type:=xlTypePDF, _
                               Filename:=sFichier, _
                               Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, _
                               IgnorePrintAreas:=False, _
                               From:=1, To:=Nb, _
                               OpenAfterPublish:=False
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour Starrag, michockette, Kiki29

Si tu supprimes l'option ==> "To:= XX ," (XX = le nbre de page ou la variable NB dans le code de kiki29) ton pdf est bien crée avec la totalité des pages quelque soit la longueur de ton tableau le nombre de page s'adapte automatiquement.

Si tu fais le test ton tableau actuellement à 610 lignes (603 demandes) et 18 pages en pdf.
Si tu rajoutes 100 lignes ton tableau passent à 710 lignes (703 demandes) et 21 pages en pdf.

@Phil69970
 
Vote positif 0 Vote négatif
Bonjour Phil69970,

Sur le fichier excel original, il me créé le double de page pdf même si j'enlève la fonction TO:= xx
Je pense que j'ai eu un problème sur le tableau excel.
J'ai repris l'intégralité du fichier et maintenant, ça fonctionne correctement.
 
Vote positif 0 Vote négatif
Starrag, michockette, Kiki29

Si j'ai compris ta réponse ce code fonctionne ?

VB: 
Option Explicit

Sub Impression()
Dim sFichier As String, Nb As Long, LastRow As Long

sFichier = ThisWorkbook.Path & "\" & "Test_NbPages.pdf"

Feuil1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                               From:=1, OpenAfterPublish:=False
End Sub

@Phil69970
 
Vote positif 0 Vote négatif
Solution
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

M
  • Résolu(e)
Microsoft 365 erreur 1004
Réponses
6
Affichages
247
sylvanu
T
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
318
cathodique
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
696
Nounours4173
N
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
292
patricktoulon
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
311
pascal21
S
  • Question Question
XL 2016 Erreur dans fonction VBA
Réponses
2
Affichages
448
sylvanu
S
  • Question Question
XL 2019 enregistrement pdf avec variable et format variable
Réponses
10
Affichages
503
sofmat
S
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
592
MarineU
M
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
530
Phil69970
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
715
Phil69970
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
655
ph.vanne
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
800
job75
N
  • Question Question
Autres bouton d'action sous excel
Réponses
6
Affichages
451
wDog66
J
  • Résolu(e)
XL 2021 pb d'export pdf
Réponses
3
Affichages
933
JPaul78
J
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
489
firecarl
F
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
859
Panda79360
P
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
385
StéphaneDeLà
S
  • Résolu(e)
XL pour MAC Excel vba export pdf sur bureau pour Mac
Réponses
10
Affichages
1 K
Dan
C
  • Résolu(e)
XL 2021 Ne pas enregistrer la 2 ème feuille dans le pdf
Réponses
1
Affichages
447
Claudinedu13
C
Capturer et imprimer ou exporter en pdf un userform
Réponses
4
Affichages
392
PHV62
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…