Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Enregistrer plusieurs onglets sous un seul fichier pdf

AKOLIAI

XLDnaute Nouveau
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
 

Pièces jointes

  • Test-GazZ.xlsm
    13.8 KB · Affichages: 12

danielco

XLDnaute Accro
Bonjour,

Essaie :

VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…