Macro : export PDF plusieurs feuille dans le même fichier

Out of category
1

Bonjour,

 Jai récupéré une macro pour faire des exports PDF, je l'ai légèrement modifier pour quel exporte toutes les configurations avec le même plan. je souhaite faire deux feuille sur ce plan.

seulement elle exporte les feuilles indépendamment.

connaissez vous un moyen de mettre les deux feuilles dans le même fichier?

partie du code concerné:

While i <= iT - 1
          'Vue de mise en plan20
            boolstatus = Part.Extension.SelectByID2("Vue de mise en plan20", "DRAWINGVIEW", 0.195997909234212, 0.164382166839605, 0, False, 0, Nothing, 0)
            Set swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        'Vue de mise en plan17
            boolstatus = Part.Extension.SelectByID2("Vue de mise en plan17", "DRAWINGVIEW", 0.127659480183812, 0.163338832044942, 0, False, 0, Nothing, 0)
            Set swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        'Vue de mise en plan16
            boolstatus = Part.Extension.SelectByID2("Vue de mise en plan16", "DRAWINGVIEW", 6.19293881200676E-02, 0.163338832044942, 0, False, 0, Nothing, 0)
            Set swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        '
            Part.ClearSelection2 True

            Part.ForceRebuild3 True

            For a = 1 To swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Set swSheet = swModel.GetCurrentSheet
                ' Pour enregistrer la feuille en PDF
                Set swModelDocExt = swModel.Extension
                Set swExportPDFData = swApp.GetExportFileData(1)
                swExportPDFData.ViewPdfAfterSaving = False
                nFileName = Path & "\" & vNameConf(i) & "-" & lastInd & "-" & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nFileName, 0, 0, swExportPDFData, lErrors, lWarnings)
            Next a
            'MsgBox i
            i = i + 1
            
           Wend


macro_pdf_enregistrer_sous-2.swp
2

Bonjour,

C'est ce que fait l'exemple donné ICI.

Cordialement,

3

Merci,
difficile a comprendre, c'est mas première macro, il me semble que ce code est bourré de coquille surement fait par la traduction...

mais si je comprend je dois faire une variable avec le nom de toutes mes feuilles.

je test cool

4

Il suffisait de remplacé une valeur pas un tableau

swSheet etan la variable de la feuille active

swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)

vSheet etan ma viable des feuilles

boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, vSheet)