Problème enregistrement feuille en pdf si plus de 2 pages...

  • Initiateur de la discussion Initiateur de la discussion pnlop
  • 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 !

pnlop

XLDnaute Occasionnel
Bonjour le forum,
En testant mon programme, je me rend compte qu'il fonctionne très bien, mais que si la feuille à enregistrer en pdf, dans un dossier précis, avec un nom précis, fait plus de 2 pages, il ne prend en compte que la première... Il met bien sur la première page 1/2, mais la 2 n'apparaît pas....
Alors je sèche.

Voici un bout de mon code qui concerne cette opération.
Merci de votre aide!

Code:
Dim LaDate As String
Dim LeClient As String
Dim LeNomClient As String
Dim LObjet As String
Dim LeRep As String
Dim Mess As String
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

LeClient = Worksheets("+ total").Range("C3").Value
LeNomClient = Worksheets("+ total").Range("D3").Value
LObjet = Worksheets("+ total").Range("D4").Value

LeRep = "N:\DOM\VKFS\VOKA\Offres PDF"
    Worksheets("+ total").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "N:\ZZZ\YYY\XXX\Offres PDF" & "\" & LeClient & "_" & LeNomClient & "_" & LaDate & "_" & LObjet & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
 
- 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

Réponses
3
Affichages
672
Réponses
9
Affichages
893
Retour