Sujet Précédent Sujet Suivant

Enregistrer plusieurs onglets Excel en un fichier PDF

Fermé
Elvt - 24 juin 2014 à 14:28
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 - 27 juin 2014 à 09:06
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 ?

A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
24 juin 2014 à 15:38
Bonjour,

Quel excel avez-vous ??
0
Elvt
27 juin 2014 à 08:10
Excel2010
0
Réponse 2 / 2
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
27 juin 2014 à 09:06
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