XL 2013 Enregistrer plusieurs onglets sous un seul fichier pdf

[AKOLIAI]

J'ai un fichier contenant plusieurs onglets. A l'aide d'un bouton j'aimerai enregistrer un seul fichier PDF (Les onglets pris en compte seront en fonction du choix qui se fait au niveau de l'onglet informations (Oui : Pris en compte, Non : non pris en compte)
Merci

 

[danielco]

Bonjour,

Essaie :

Sub test3()
  Dim Tabl() As String, C As Range, I As Long
  With Sheets("Informations")
    I = -1
    For Each C In .[B4:B7]
      If C.Offset(, 1) = "Oui" Then
        I = I + 1
        ReDim Preserve Tabl(I)
        Tabl(I) = C.Value
      End If
    Next C
    Sheets(Tabl).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "d:\Users\dcola\Downloads\Test-GazZ.pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      True
  End With
End Sub

En changeant le chamin et le nom du fichier.

Daniel

 

[kiki29]

Salut, à adapter à ton contexte
sinon il y a ceci, au bas du post 1 : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant