Enregistrer plusieurs onglets Excel en un fichier PDF

Fermé
Signaler
-
Messages postés
16128
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 décembre 2021
-
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

Messages postés
16128
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 décembre 2021
1 566
Bonjour,

Quel excel avez-vous ??
Messages postés
16128
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 décembre 2021
1 566
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