Discussion :

[imago54]

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 :

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

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

[Rino702]

Bonjour,

Le code est bon, je l'ai vérifié avec ma version d'Excel (Excel 365).

Le seul problème que je peux penser est le nom des 2 onglets, est-ce bien fiche_visite et tableau_stage tel que dit dans ton message
ou est-ce Fiche_visite et Tableau_stage tel que spécifié dans le code?

Cela qui pourrait expliquer que tous les onglets soient imprimés.

[imago54]

Ha, je ne pensais pas que la casse avait son importance.
Je teste quand je rentre en France.
Merci pour cette précision

[imago54]

Bonjour,

effectivement le problème venait bien d'un problème lié à la casse.
Une majuscule s'était glissée dans le nom d'un onglet.

Merci pour votre aide.

fred