Export de plusieurs onglets Excel en PDF au choix avec ToggleButtons

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 Sub

Merci d'avance pour votre aide !

Rechercher des sujets similaires à "export onglets pdf choix togglebuttons"