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

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
 

Discussions similaires