Export PDF via macro VBA avec nom de feuilles variants
Résolu
Matheew
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
-
-
Bonjour à tous,
Je souhaite réaliser un extract PDF de plusieurs feuilles de mon fichier Excel.
J'ai déjà codé une macro pour ça, qui fonctionne lorsque je lui donne l'ensemble des noms de mes feuilles et utilise la commande Sheets(Arrays("nom des feuilles").
Ci-dessous ma macro.
Sub Extract_PDF()
'
Dim chemin As String
chemin = Workbooks(ActiveWorkbook.Name).Path
NumSemaine = Worksheets("Objectifs").Range("B3").Value
Sheets(Array("Visuel Structure 1", "Visuel Structure 2", "Visuel Structure 3", "Visuel CN", "Visuel Equipement 1", "Visuel Equipement 2", "Visuel Equipement 3", "Visuel P66")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\KPI TP A320NEO Semaine " & NumSemaine & ".pdf", IncludeDocProperties:=True, IgnorePrintAreas:=False
'
End Sub
Or mon problème est que je ne souhaite pas exporter l'ensemble des feuilles présentes ci-dessous, mais celles pour lesquelles j'ai défini un objectif pour la semaine.
Je suis capable de récupérer l'ensemble des noms des pages que je souhaite exporter via des variable String, mais je n'arrive pas à permettre d'exporter un nombre variable de page et sans donner directement l'instruction avec le nom de la feuille.
Par exemple, si je récupère le nom de mes feuilles dans les variables nom_feuille1 et nom_feuille2, la commande Sheets(Array(nom_feuille1, nom_feuille2)) ne fonctionne pas.
Je me suis demandé s'il fallait que le tableau contienne les feuilles et pas seulement les noms, mais aucune différence, ça bloque aussi.
Est-ce que vous auriez une idée de comment faire s'il vous plait ?
Merci beaucoup de votre aide !
Mathieu
Je souhaite réaliser un extract PDF de plusieurs feuilles de mon fichier Excel.
J'ai déjà codé une macro pour ça, qui fonctionne lorsque je lui donne l'ensemble des noms de mes feuilles et utilise la commande Sheets(Arrays("nom des feuilles").
Ci-dessous ma macro.
Sub Extract_PDF()
'
Dim chemin As String
chemin = Workbooks(ActiveWorkbook.Name).Path
NumSemaine = Worksheets("Objectifs").Range("B3").Value
Sheets(Array("Visuel Structure 1", "Visuel Structure 2", "Visuel Structure 3", "Visuel CN", "Visuel Equipement 1", "Visuel Equipement 2", "Visuel Equipement 3", "Visuel P66")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\KPI TP A320NEO Semaine " & NumSemaine & ".pdf", IncludeDocProperties:=True, IgnorePrintAreas:=False
'
End Sub
Or mon problème est que je ne souhaite pas exporter l'ensemble des feuilles présentes ci-dessous, mais celles pour lesquelles j'ai défini un objectif pour la semaine.
Je suis capable de récupérer l'ensemble des noms des pages que je souhaite exporter via des variable String, mais je n'arrive pas à permettre d'exporter un nombre variable de page et sans donner directement l'instruction avec le nom de la feuille.
Par exemple, si je récupère le nom de mes feuilles dans les variables nom_feuille1 et nom_feuille2, la commande Sheets(Array(nom_feuille1, nom_feuille2)) ne fonctionne pas.
Je me suis demandé s'il fallait que le tableau contienne les feuilles et pas seulement les noms, mais aucune différence, ça bloque aussi.
Est-ce que vous auriez une idée de comment faire s'il vous plait ?
Merci beaucoup de votre aide !
Mathieu
A voir également:
- Exporter feuille excel en pdf vba
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Exporter excel en pdf sur une page - Guide
- Exporter favoris chrome - Guide