XL 2013 selection plusieurs feuilles onglets

[jeromeN95]

Bonjour,
erreur de synthaxe je pense :

Sheets("1", "2", "3", ).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fic
 , Quality:=xlQualityStandard, IncludeDocProperties:=True, _
 IgnorePrintAreas:=False, OpenAfterPublish:=False

Je souhaite sélectionner les feuilles de 1 à 25.
C'est toujours le même.

D'avance merci pour votre aide.

 

[kiki29]

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.

 

[jeromeN95]

Salut,
c'est gentil mais je ne souhaite pas rajouter un code. Juste selectionner en dur les onglets de 1 à 25 STP

 

[kiki29]

Re, n'étant pas un partisan du "tout cuit", pas testé mais devrait t'apporter un début de solution

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

 

[jeromeN95]

Super, je m'en sui servi pour trouver une réponse.
C'est simpa.

Bonne soirée.