Re, n'étant pas un partisan du "tout cuit", pas testé mais devrait t'apporter un début de solution
VB:
Option Explicit
Sub Tst()
Dim sFichier As String
Dim Ar() As String
Dim i As Long
sFichier = ThisWorkbook.Path & "/" & "Test.pdf"
Application.ScreenUpdating = False
For i = 0 To 24
ReDim Preserve Ar(i)
Ar(i) = i + 1
Next i
Sheets(Ar).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _...
Salut, va voir par ici, c'est une autre approche, à adapter à ton contexte.
Avec la possibilité de fusion en 1 seul pdf de l'ensemble des feuilles, ou de génération des feuilles sélectionnées de façon séparée, de gestion des doublons via un indice, le tout dans un dossier créé automatiquement et nommé par défaut Dossier PDFs à la racine de l'application. L'ensemble des feuilles ( visibles ou pas ) est listé via le bouton Récap.
Re, n'étant pas un partisan du "tout cuit", pas testé mais devrait t'apporter un début de solution
VB:
Option Explicit
Sub Tst()
Dim sFichier As String
Dim Ar() As String
Dim i As Long
sFichier = ThisWorkbook.Path & "/" & "Test.pdf"
Application.ScreenUpdating = False
For i = 0 To 24
ReDim Preserve Ar(i)
Ar(i) = i + 1
Next i
Sheets(Ar).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets(1).Select
Erase Ar
Application.ScreenUpdating = True
End Sub