Bonjour à tous,

L'idée est: depuis un tableau sur la feuille "PHASES" est d'exporter les feuilles correspondantes au ligne du tableau avec la valeur 1.

J'ai trouvé sur le net le code pour l'impression mais je souhaiterais également exporter en format PDF les feuilles sélectionnées depuis le tableau.

Ci-dessous le code pour l'impression qui marche:

Sub Imprime_Feuilles()
 
' Macro Imprime_Feuilles>
' par  Le CFO masqué
 
Dim vararray() As String
Dim csname As Integer, c As Integer
Dim countarr As Integer, r As Integer
Dim sname As Worksheet
 
'set up location and counter variables
    csname = Range("A4").Column
    c = Range("C4").Column
    Set sname = ActiveSheet
    r = Range("C4").Row
    countarr = 0
 
'loop in sheets list
    While sname.Cells(r, csname) <> ""
 
'add to array if flag is on
        If sname.Cells(r, c) = 1 Then
            ReDim Preserve vararray(countarr)
            vararray(countarr) = sname.Cells(r, csname).Value
            countarr = countarr + 1
        End If
        r = r + 1
    Wend
 
  ActiveSheet.PrintOut
  Sheets(vararray).Select
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  sname.Activate
 
    End Sub

Merci par avance.

A+

fonction ExportAsFixedFormat de workbook https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.exportasfixedformat 

un exemple: https://exceloffthegrid.com/vba-code-save-excel-file-as-pdf/#Selecting_specific_worksheets_before_saving_as_PDF 

une autre solution est de définir et imprimer sur une "imprimante pdf" comme pdfcreator par exemple ou "Microsoft Print to PDF"