Enregistrer plusieurs onglets Excel en un fichier PDF

Fermé
Elvt - 24 juin 2014 à 14:28
f894009 Messages postés 16749 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 décembre 2022 - 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

f894009 Messages postés 16749 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 décembre 2022 1 660
24 juin 2014 à 15:38
Bonjour,

Quel excel avez-vous ??
0
Excel2010
0
f894009 Messages postés 16749 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 décembre 2022 1 660
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