Export de plusieurs onglets Excel en PDF au choix avec ToggleButtons
P
Bonjour à tous,
Je souhaiterais pouvoir générer un fichier PDF à partir d'un userform VBA qui piocherait dans les différents onglets.
La subtilité est que je souhaiterais pouvoir mettre les documents optionnels souhaités dans (aucun, un ou plusieurs) dans la sélection.
Je ne sais pas s'il est possible de créer une liste de chaînes de caractères en VBA, car cela me simplifierait la tâche. Voilà comment je m'y suis pris jusqu'à maintenant, l'export du fichier fonctionne mais je ne vois pas comment sélectionner mes fichiers optionnels selon l'activation où non de mes togglebuttons.
Private Sub CommandButton1_Click()
'Remplissage fichier
'Objectif : mettre les documents optionnels souhaités (aucun, un ou plusieurs) dans la sélection
'Test non concluant pour sélectionner les onglets, mais l'idée peut peut-être aider
Dim onglets as String
onglets = ""
If ToggleButton1.BackColor = &HFF00& Then
onglets = onglets & "Feuil2"
End If
If ToggleButton2.BackColor = &HFF00& Then
onglets = onglets & "Feuil3"
End If
ActiveWorkbook.Sheets(Array("Feuil1", onglets, "Feuil4")).Select
nom = "C:\" & "NomPDF" & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
'Activation ou non de mes ToggleButton avec changement de couleur pour le visuel sur Userform
Private Sub ToggleButton1_Click()
If ToggleButton1.BackColor = &HFF00& Then
ToggleButton1.BackColor = &HFF& 'Passage du rouge au vert
ElseIf ToggleButton1.BackColor = &HFF& Then
ToggleButton1.BackColor = &HFF00& 'Passage du vert au rouge
End If
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2.BackColor = &HFF00& Then
ToggleButton2.BackColor = &HFF&
ElseIf ToggleButton2.BackColor = &HFF& Then
ToggleButton2.BackColor = &HFF00&
End If
End SubMerci d'avance pour votre aide !