Enregistrer plusieurs onglets Excel en un fichier PDF

Elvt -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je souhaite à partir du premier onglet (ONGLET1) de mon fichier excel ouvrir un formulaire type Userform sur lequel apparaissent l'ensemble des noms des onglets (ONGLET1, ONGLET2, ONGLET3 etc) avec une case à cocher en face de chaque ligne ONGLET.

A partir de ça je souhaite pouvoir sélectionner mes onglets, et ensuite appuyer sur un bouton qui enregistre l'ensemble de ma sélection en 1 seul fichier PDF (les zones de pages sont définies pour chaque onglet)

Jusqu'ici j'ai réussi à créer le formulaire Userform avec l'ensemble des onglets qui sont listés, il me faudrait le programme qui créé le PDF en fonction de ma sélection.

Est-ce possible ?

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Quel excel avez-vous ??
    0
    1. Elvt
       
      Excel2010
      0
  2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    une facon de faire: 

    Private Sub CommandButton1_Click()
        Dim tOngl(), a
        'pointeur tableau onglet(s) a enregistrer
        a = -1
        'boucle onglet selectionnes
        For x = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(x) = True Then
               a = a + 1
               ReDim Preserve tOngl(a)
               tOngl(a) = ListBox1.List(x)
            End If
        Next x
        'selection onglet
        Sheets(tOngl()).Select
        'export PDF: modifiez le chemin et le nom
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "D:\_Docs_Prog_Excel\Impression\impression_select_sheets.pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        'deselection onglets
        Sheets(1).Activate
        'deselection listbox
        For x = 0 To ListBox1.ListCount - 1
            ListBox1.Selected(x) = False
        Next x
    End Sub
    0