Macro Vba pour exporter en pdf en excluant certains onglets
Bonjour tout le monde,
je tourne en rond depui un moment malgré les conseils glanés sur ce forum !
J'ai un classeur qui contient un nombre variable d'onglets. Les 2 premiers onglets (fiche_visite et tableau_stage) sont forcément présents dans le classeur et sont les 2 premiers onglets du classeur. Les autres onglets étant une duplication de l'onglet fiche_visite renommés avec les noms des étudiants.
Je souhaite imprimer tous les onglets sauf fiche_visite et tableau_stage.
J'ai récupéré et adapté un code trouvé sur ce forum, mais ça ne fonctionne pas. Les onglets fiche_visite et tableau _stage s'impriment quand même.
Merci de votre aide
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Sub Génération_PDF()
Dim groupesheet_imprim(), noimprim As String
noimprim = "Fiche_visite Tableau_stage" ' ceci est la liste des sheets que l'on doit pas imprimer
i = 0
For Each sh In ThisWorkbook.Sheets
If Not noimprim Like "*" & sh.Name & "*" Then 'on prend que les sheets qui ne sont pas dans noimprim et on en fait une liste(en array)
ReDim Preserve groupesheet_imprim(i): groupesheet_imprim(i) = sh.Name: i = i + 1:
End If
Next
'Impression des feuilles sélectionner dans l'array de sheets
Sheets(groupesheet_imprim).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Y:\stages cg\suivi stage\suivi_stage.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveWorkbook.Save
End Sub |
