Utilisation de Selection.ExportAsFixedFormat pour générer PDF correctement

Je souhaite exporter vers pdf toutes les feuilles du classur sauf la première. Pour ce faire, j'ai utilisé Selection.ExportAsFixedFormat au lieu de ActiveWorkbook.ExportAsFixedFormat.

Le problème avec Selection.ExportAsFixedFormat est que pour chaque feuille, la seule partie qui apparaîtra et la page pdf correspondante est une sélection manuelle au lieu de toute la zone d'printing telle qu'elle devrait être (si je sélectionne une seule cellule, elle sera le seul qui apparaît sur le pdf). En utilisant ActiveWorkbook.ExportAsFixedFormat, le pdf est généré comme prévu.

Sub PDF() Dim SaveAsStr As Ssortingng Dim strName As Ssortingng Dim i As Long ReDim ArraySh(2 To Sheets.Count) For i = 2 To Sheets.Count ArraySh(i) = Sheets(i).Name Next ... 'ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:=SaveAsStr & ".pdf", OpenAfterPublish:=True, IgnorePrintAreas:=False Sheets(ArraySh).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:=SaveAsStr & ".pdf", OpenAfterPublish:=True, IgnorePrintAreas:=False End Sub 

Comment puis-je utiliser la méthode de sélection, pour générer le PDF correctement?

• Modification des valeurs dans chaque feuille et maintien de la valeur dans chaque feuille
• Insertion dynamic de données en Excel à l'aide de Java
• Copiez le contenu d'une table dans le corps d'un courrier électronique depuis la Boîte de réception Outlook vers Excel
• Cliquez pour la date et cliquez pour l'heure – Dans les colonnes spécifiées seulement
• Séparez les labels des formulaires user Excel pour différents users

• Le file Excel exporté à partir de datagridview affiche une erreur lors de l'ouverture de VB
• comment vérifier l'égalité de reference entre deux variables de scope
• Vlookup dynamic avec utilisation indirecte
• Obtention de l'erreur "SubScript Out of Range" dans VBA lors de l'appel de class Méthode
• Mise à jour / écriture OpenXML sur Excel Cell (même si elle est nulle)