Discussion :

[jdeheul]

Bonjour,

Je suis confronté au même problème que dans cette discussion. Je dois imprimer des onglets dans un même document en fonction de valeur de cellules. J'ai donc tester votre code et j'arrive bien a avoir un tableau avec l'ensemble des onglets à imprimer.

Cependant mon problème vient de la ligne

Code :

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

Sheets(Feuille).PrintOut Copies:=1

au moment de passer dessus en pas à pas en VBA j'ai le message suivant:

l'indice n'appartient pas à la sélection

Pouvez vous m'aider?

merci d'avance

[Philippe Tulliez]

Bonjour,
Si tu as fais du pas à pas, tu sais alors vérifier la valeur de la variable tableau feuille, c'est vraisemblablement là que se situe le problème.

[jdeheul]

j'ai bien vérifier la valeur de la variable feuille. Et j'ai bien l'ensemble des feuilles que je souhaites imprimer.

Voici le code modifié que j'utilise:

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
Dim i As Integer, c As Integer
 Dim Feuille() As String
 c = 4: ReDim Preserve Feuille(4)
 Feuille(0) = "courrier"
 Feuille(1) = "Conditions part"
 Feuille(2) = "Conditions géné"
 Feuille(3) = "Annexe 1 - récap portes"
 Feuille(4) = "Annexe 2 - récap équip"
 With Sheets("saisie")
   For i = 5 To 17  ' à adapter
    If .Range("DG" & i) > 0 Then
     c = c + 1: ReDim Preserve Feuille(c)
     Feuille(c) = .Range("DH" & i)
    End If
   Next i
 
 End With
 Sheets(Feuille).PrintOut Copies:=1

J'ai beau chercher, je ne trouve pas

[Philippe Tulliez]

Bonjour,
Précise le parent de Sheets, le problème vient peut-être de là si tu as un autre classeur ouvert qui serait la fenêtre active.
Par exemple

Code :

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

ThisWorkbook.Sheets(feuille).PrintOut Copies:=1

[jdeheul]

Je viens d'effectuer le test, cela ne change rien.

[Philippe Tulliez]

Bonjour,

Je viens d'effectuer le test, cela ne change rien. C'est quand même étrange, j'ai vu sur différent forum, et tout le monde propose la même chose.

Oui, c'est bizarre.
Si je vois bien, tu as dix-huit feuilles du même classeur à imprimer ensemble dont le nom des cinq premières est une constante et le nom des suivantes déterminé par la valeur des cellules $DG$5:$DG$17 de la feuille [saisie]