Discussion :

[Pierre67]

Bonjour,

j'ai un fichier contenant plusieurs onglets.
je souhaite mettre en place un userform dans lequel avec des cases à cocher (soit toutes les feuilles, soit celles commencant par "F_", soit le feuille "Recap", ....).

je pourrai choisir les onglets que je souhaite enregistrer au format PDF.

en utilisant l'enregistreur de macro on obtiens par exemple pour les feuilles A et C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Sheets(Array("A", "C")).Select
    Sheets("A").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\.......\Documents\......\pdf\Classeur1.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

Comment par le code, compléter la liste dans Array ?
cordialement

[lionel86500]

Bonjour,

au lieu d'avoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Array("A", "C")).Select

peu être mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Array(s1, s2)).Select

s1 et s2 contenant le nom de la feuille
exemple avec deux feuilles, il peut y avoir plus de variables si plus de feuilles

[Pierre67]

Bonjour

oui ça je l'avais bien compris

ma question est : Comment ecrire Sheets(Array ????? ) Select

quand le nombre de feuilles est variable ?

[lionel86500]

Bonjour,

as tu essayé de déclarer des variables
mettre rien dans celle ci
et renseigner celles dont tu veut le pdf

je viens de tester ce que je t'ai écris ca ne marche pas.

par contre tu peux faire une ligne array par choix de feuille sélectionné

Regarde ma pièce jointe pour un exemple avec pdfcreator

tu peux imprimer la feuille F2 (macro imp_f2)
tu peux imprimer les feuilles F1 F2 F4 (macro imp_f124)
tu peux imprimer les feuilles F1 F3 F2 F4 (macro imp_f1234)