Enregistrer classeur Excel en pdf avec onglet caché

Bonjour,

J'ai un problème d'export de mon classeur excel en pdf en raison de feuilles masquées.

J'ai défini dans le code suivant l'ensemble des feuilles du classeur pouvant être imprimées.

Cependant, au cas par cas, certaines seront masquées.

Il faudrait insérer dans mon code une ligne permettant d'éditer en pdf seulement les feuilles visibles.

Voici mon code :

Sub Imprimer()

Sheets(Array("5 M", "1.1- Fiche matière & composants", "2.1- Répertoire des moyens", "3.1- R&R", "3.2- Corrélation", "3.3- Protocole méthode mesure", "3.4- Analyse MSP", "4.1- Fiche de conditionnement", "4.2- Evaluation SSE", "5.1- Compétence & Qualification", "6.1- RETEX", "6.2- Gammes", "6.3- Plan bullé", "6.4- RC", "6.5- PFMEA", "7.1- Schéma de production", "7.2- Analyse Charge-Capa", "7.3- Matrice de conformité", "8- Dossier FAI")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:="C:\Temp\Indus", _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End Sub

UP !

En fouillant un petit peu, j'ai trouvé une solution mais qui ne me permet pas d'enregistrer l'ensemble des feuilles visible dans un même fichier PDF. Cela enregistre Feuille par Feuille, voilà le code :

" Dim wSheet As Worksheet

For Each wSheet In ActiveWorkbook.Worksheets

If wSheet.Visible Then wSheet.Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:="C:\Temp\Indus", _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Next

End Sub

Merci de votre aide !