mexitinoco
XLDnaute Nouveau
Salut le forum,
J'ai créé une macro qui affiche une fenêtre avec plusieurs cases à cocher, chaque case correspond en fait à un onglet du classeur, et donc on choisit les onglets que l'on souhaite conserver puis on clique sur un bouton qui les exporte en pdf. J'arriva à faire fonctionner la macro un onglet à la fois mais le soucis est que j'aimerais bien pouvoir sélectionner plusieurs onglets en même temps et les exporter dans le même pdf.
Je vous mets le code que j'ai écris jusqu'à présent mais qui ne fonctionne pas (pour changer) :
Des idées ? Merci pour vos réponses !
J'ai créé une macro qui affiche une fenêtre avec plusieurs cases à cocher, chaque case correspond en fait à un onglet du classeur, et donc on choisit les onglets que l'on souhaite conserver puis on clique sur un bouton qui les exporte en pdf. J'arriva à faire fonctionner la macro un onglet à la fois mais le soucis est que j'aimerais bien pouvoir sélectionner plusieurs onglets en même temps et les exporter dans le même pdf.
Je vous mets le code que j'ai écris jusqu'à présent mais qui ne fonctionne pas (pour changer) :
VB:
Private Sub CommandButton1_Click()
Dim Sh1, Sh2, Sh3, Sh4, Sh5 As Worksheets
If CheckBox1.Value = True Then
Set Sh1 = Sheets("Format 1")
Else
End If
If CheckBox2.Value = True Then
Set Sh2 = Sheets("Format 2")
Else
End If
If CheckBox3.Value = True Then
Set Sh3 = Sheets("Format 3")
Else
End If
If CheckBox4.Value = True Then
Set Sh4 = Sheets("Format 4")
Else
End If
If CheckBox5.Value = True Then
Set Sh5 = Sheets("Format 5")
Else
End If
Sheets(Array(Sh1, Sh2, Sh3, Sh4, Sh5)).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\antoine.dupont\Desktop\Stage\Mes tâches\Validation format\Fichier_test_formats.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Des idées ? Merci pour vos réponses !