XL 2013 Enregistrer plusieurs onglets sous un seul fichier pdf

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
337
Réponses
5
Affichages
541
Retour