Impression plusieurs feuilles

**PPN83** · 15/11/2010, 14h03

Bonjour,

je souhaite imprimer toutes les feuilles d'un classeur.
chaque feuille à sa propre macro (dans le code de la feuille) pour imprimer. je voulais créer à partir du Userform un bouton pour imprimer l'ensemble des feuilles mais j'ai l'erreur "sub ou fonction non définie".

voici un extrait de mon code

Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Imprimer_Bilan_Click() 'Imprimer la feuille active
 
Dim i As Integer
 
        For i = 1 To 16
        ActiveSheet.OLEObjects("bil" & i).Object.BackColor = RGB(255, 255, 255)
    Next
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    For i = 1 To 16
        ActiveSheet.OLEObjects("bil" & i).Object.BackColor = RGB(233, 239, 250)
    Next
 
End Sub

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
Sub Imprimer_rec_Click()
 
 
With ActiveSheet.OLEObjects("rec1").Object
        .BackColor = RGB(255, 255, 255)
        .SpecialEffect = fmSpecialEffectFlat
    End With
 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1 'impression de la feuille
 
    With ActiveSheet.OLEObjects("rec1").Object
        .BackColor = RGB(233, 239, 250)
        .SpecialEffect = fmSpecialEffectSunken
    End With
 
End Sub

Code :

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

1
2
3
4
5
6
Sub Imprime_tout_Click()
 
Imprimer_Bilan
Imprimer_rec
 
End Sub

**NEC14** · 15/11/2010, 14h30

Bonjour,

Sur quelle ligne te met il un message d'erreur ?

Sinon moi j'ai fait ceci à partir d'un bouton sur la feuille et ça fonctionne bien.

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
 
Private Sub Imp1_Click()
Dim MaFeuil As Object
Dim vRep As Byte
    vRep = MsgBox("Voulez-vous continuer l'impression ?", vbYesNo + vbQuestion)
        If vRep = vbYes Then
    GoTo continu
Else
    Exit Sub
End If
continu:
        Application.ScreenUpdating = False
            Set montab = Sheets("BC1")
                Sheets("BC1").PageSetup.PrintArea = "$A$1:$N$72"
                Sheets("BC1").Visible = True
                Sheets("BC1").PrintOut Copies:=1
                Sheets("BC1").Activate
End Sub

**PPN83** · 15/11/2010, 14h34

Sur le sub Imprime_tout_click() il se trouve dans le code de mon Userform,
les autres se trouvent dans le code de chaque feuille.

**NEC14** · 15/11/2010, 14h44

Tes intitulés sont nommés : Sub Imprimer_Bilan_Click() et Imprimer_rec_Click() qui correspondent aux noms de tes boutons.

Tu ne fais pas appel à une action à partir d'un module mais à un bouton, donc cela ne peut pas fonctionner. Il faut que tu créé un module Imprimer_Bilan et Imprimer_rec avec les mêmes actions qu'avec tes boutons.

J'espère mettre bien expliquer et ne pas mettre trompé dans ma réponse, je ne suis pas un grand spécialiste mais je pense être dans le vrai.

Cordialement

**PPN83** · 15/11/2010, 15h02

J'ai transposé les macros dans un module mais les boutons à partir des feuilles ne sont plus opérants !!!

**Godzestla** · 15/11/2010, 15h24

Bonjour je te conseille ceci :

1) Pour chaque feuille tu constitues une procédure (SUB) propre pour imprimer son contenu. cette procédure est à stocker dans un module de ton choix.
Cette procédure n'utilise pas Activesheet ni selectedsheet mais fait référence à ta feuille nominativement (Ex sheets("Lafeuille voulue") ou par numéro (ex sheets(5) ou encore sheets(n)

Exemple

Code :

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

1
2
3
4
5
Sub Print_Feuille_1
with sheets("Feuille_1")
'ton code
end with
End sub

2) Si tu veux accéder via un bouton de ta feuille à cette procédure d'impression, tu constitues un simple code d'appel à la procédure d'impression dans l'évènement click de ton bouton

Code :

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

1
2
Sub Imprimer_Bilan_Click()
Print_Feuille_1

3) Tu constitues une procédure qui appelle chaque procédure d'impression spécifique à chaque feuille et ainsi tu conserves la possibilité d'imprimer tout (via cette procédure) ou juste un feuille

Code :

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

1
2
3
4
5
Sub Imprime_tout
Print_Feuille_1
Print_Feuille_2
'....
end sub

4) Tu peux mettre dans ton USerform un contrôle qui te permettra d'appeler la procédure d'impression global.

**PPN83** · 15/11/2010, 16h41

Bon j'ai fait comme tu as dit mais dès que je lance à partir du bouton du userform
j'ai l'erreur d'execution 1004 impossible de lire la propriété OLEObjects de la classe Worksheet qui correspond à une ligne de ma procedure

**Godzestla** · 15/11/2010, 17h00

Montre ton code, cela sera plus simple.

je suppose que tu as du laisser ce genre de code :

Code :

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

1
2
3
4
With ActiveSheet.OLEObjects("rec1").Object
        .BackColor = RGB(255, 255, 255)
        .SpecialEffect = fmSpecialEffectFlat
    End With

Qui doit être remplacé par qqchose du genre :

Code :

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

1
2
3
4
With Sheets("lafeuillevoulue").OLEObjects("rec1").Object
        .BackColor = RGB(255, 255, 255)
        .SpecialEffect = fmSpecialEffectFlat
    End With

dans toutes les feuilles...

je suppose que tu auras compris la raison...

**PPN83** · 15/11/2010, 18h01

J'ai modifié comme tu as dit mais ça imprime 2 fois la 1ère feuille du classeur en fait il ne va pas chercher la procédure Imprime_tout dans le module !!!
Merci d'avance

le code dans le module

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub Imprimer_Evalué() ' Imprimer la feuille
 
Dim i As Integer
 
With Sheets("Evalué")
 
For i = 1 To 15
    With Sheets("Evalué").OLEObjects("eva" & i).Object
    .BackColor = RGB(255, 255, 255)
    .SpecialEffect = fmSpecialEffectFlat
    .ShowDropButtonWhen = fmShowDropButtonWhenNever
    End With
Next
 
For i = 2 To 4
    With Sheets("Evalué").OLEObjects("nb" & i).Object
            .BackColor = RGB(255, 255, 255)
            .SpecialEffect = fmSpecialEffectFlat
        End With
Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
 
For i = 2 To 12
    With Sheets("Evalué").OLEObjects("eva" & i).Object
    .BackColor = RGB(233, 239, 250)
    .SpecialEffect = fmSpecialEffectSunken
    .ShowDropButtonWhen = fmShowDropButtonWhenAlways
    End With
Next
 
For i = 2 To 4
    With Sheets("Evalué").OLEObjects("nb" & i).Object
    .BackColor = RGB(233, 239, 250)
    .SpecialEffect = fmSpecialEffectSunken
    End With
Next
 
    With Sheets("Evalué").OLEObjects("eva1").Object
    .BackColor = RGB(233, 239, 250)
    .SpecialEffect = fmSpecialEffectSunken
    End With
    With Sheets("Evalué").OLEObjects("eva13").Object
    .BackColor = RGB(233, 239, 250)
    .SpecialEffect = fmSpecialEffectSunken
    End With
    With Sheets("Evalué").OLEObjects("eva14").Object
    .BackColor = RGB(233, 239, 250)
    .SpecialEffect = fmSpecialEffectSunken
    End With
    With Sheets("Evalué").OLEObjects("eva15").Object
    .BackColor = RGB(233, 239, 250)
    .SpecialEffect = fmSpecialEffectSunken
    End With
 
    Range("a29,c29").Select
    Selection.Font.ColorIndex = 1
    Range("a39,d39").Select
    Selection.Font.ColorIndex = 1
End With
End Sub

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
Sub Imprimer_recours()
 
With Sheets("Recours")
With Sheets("Recours").OLEObjects("rec1").Object
        .BackColor = RGB(255, 255, 255)
        .SpecialEffect = fmSpecialEffectFlat
    End With
 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1 'impression de la feuille
 
    With Sheets("Recours").OLEObjects("rec1").Object
        .BackColor = RGB(233, 239, 250)
        .SpecialEffect = fmSpecialEffectSunken
    End With
End With
End Sub
Sub Imprime_tout()
 
Imprimer_Evalué
Imprimer_recours
 
End Sub

Dans le code du userform

Code :

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

1
2
3
Sub Imprime_ent_Click()
Imprime_tout
End Sub

**Godzestla** · 16/11/2010, 10h12

Envoyé par PPN83

Quelqu'un a-t-il une solution à mon problème

La patience est la mère de toutes les vertus !!!!

C'est normal que ton code imprime 2 fois la même page, car dans chaque procédure tu fais référence à la même feuille, à savoir la feuille sélectionnée SelectedSheets

Comme je te l'ai déjà expliqué, tu dois dans chaque procédure faire référence à la feuille voulue et pas à la feuille selectionnée.

Donc ce code

Code :

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

    ActiveWindow.SelectedSheets.PrintOut Copies:=1

présent dans les 2 procédures t'imprimera la même page chaque fois.
Tu comprends ?

J'en ai profité pour un peu revoir ton code. Remarque l'utilisation de la clause With qui te permet de faire référence à ta feuille dans toute ta procédure sans repréciser son nom à chaque instruction (pour détails, voir aide sur clause WITH)

Autres remarques,
- toujours éviter les SELECT qui ralentissent tout.
- Il est toujours meilleur de préciser la variable à incrémenter après la clause next (dans ton cas NEXT I)

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Imprimer_Evalué() ' Imprimer la feuille
 
Dim i As Integer
 
'Référence la feuille "Evalué"
With Sheets("Evalué")
 
    For i = 1 To 15
        With .OLEObjects("eva" & i).Object
             .BackColor = RGB(255, 255, 255)
             .SpecialEffect = fmSpecialEffectFlat
             .ShowDropButtonWhen = fmShowDropButtonWhenNever
        End With
    Next i
 
    For i = 2 To 4
        With .OLEObjects("nb" & i).Object
            .BackColor = RGB(255, 255, 255)
            .SpecialEffect = fmSpecialEffectFlat
        End With
    Next i
 
    'Imprime la Feuille "Evalué"
    .PrintOut Copies:=1
 
    For i = 2 To 12
         With .OLEObjects("eva" & i).Object
            .BackColor = RGB(233, 239, 250)
            .SpecialEffect = fmSpecialEffectSunken
            .ShowDropButtonWhen = fmShowDropButtonWhenAlways
         End With
    Next i
 
    For i = 2 To 4
        With .OLEObjects("nb" & i).Object
            .BackColor = RGB(233, 239, 250)
            .SpecialEffect = fmSpecialEffectSunken
        End With
    Next i
 
    With .OLEObjects("eva1").Object
        .BackColor = RGB(233, 239, 250)
        .SpecialEffect = fmSpecialEffectSunken
    End With
 
    With .OLEObjects("eva13").Object
        .BackColor = RGB(233, 239, 250)
        .SpecialEffect = fmSpecialEffectSunken
    End With
 
    With .OLEObjects("eva14").Object
        .BackColor = RGB(233, 239, 250)
        .SpecialEffect = fmSpecialEffectSunken
    End With
 
    With .OLEObjects("eva15").Object
        .BackColor = RGB(233, 239, 250)
        .SpecialEffect = fmSpecialEffectSunken
    End With
 
    Range("a29,c29").Font.ColorIndex = 1
    Range("a39,d39").Font.ColorIndex = 1
 
End With
End Sub

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
Sub Imprimer_recours()
 
With Sheets("Recours")
     With .OLEObjects("rec1").Object
            .BackColor = RGB(255, 255, 255)
            .SpecialEffect = fmSpecialEffectFlat
     End With
 
     .PrintOut Copies:=1 'impression de la feuille
 
    With .OLEObjects("rec1").Object
        .BackColor = RGB(233, 239, 250)
        .SpecialEffect = fmSpecialEffectSunken
    End With
End With
End Sub
Sub Imprime_tout()
 
Imprimer_Evalué
Imprimer_recours
 
End Sub

Je n'ai pas testé, mais cela devrait fonctionner.

**PPN83** · 16/11/2010, 11h12

Merci de ne pas m'avoir laissé tomber.

Bon j'ai remplacé le code mais au niveau du

Code :

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

 .Print out copies:=1

j'ai l'erreur 1004 la méthode PrintOut de la classe Worksheet a échoué

**Godzestla** · 16/11/2010, 11h30

Re

Cette ligne n'est pas dans mon code (Print OUT en 2 mots !!)

Chez moi cela fonctionne. Peut-être une erreur dans l'orthographe du nom de ta feuille ?

Si ceci fonctionne, cela confirme.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Imprimer_test()
 
With Sheets(1)
 
     .PrintOut Copies:=1 'impression de la feuille
 
 
End With
End Sub

**PPN83** · 16/11/2010, 12h02

Il n'y a pas d'espace dans le code.
chaque procedure fonctionne correctement à partir du bouton qui lui est directement rattaché, mais si je passe par le bouton de l'Userform j'ai ce message d'erreur

**Godzestla** · 16/11/2010, 12h17

Tu ne montres pas ton code du userform ?

**PPN83** · 16/11/2010, 12h54

le voici il se trouve dans le code de l'userform

Code :

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

1
2
3
Sub Imprime_ent_Click() 'bouton du Userform
Imprimer_tout
End Sub

Dans le module avec les autres procédures d'impression

Code :

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

1
2
3
4
5
6
Sub Imprimer_tout()
 
Imprimer_Evalué
Imprimer_recours
 
End Sub

**Godzestla** · 16/11/2010, 13h12

Cela semble correct.
Quand le code plante et que tu le prends en debug, tu es dans quel procédure et à quelle ligne ?

(merci de recopier ici la procédure qui plante en mettant en gras le ligne en erreur et le code d'erreur).

Autrechose, as-tu fais le test ci-desous

Code :

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

1
2
3
4
5
6
7
8
9
Sub Imprimer_test()
 
With Sheets(1)
 
     .PrintOut Copies:=1 'impression de la feuille
 
 
End With
End Sub

As-tu essayé de l'appeler depuis ton userform ?

**PPN83** · 16/11/2010, 13h56

J'ai fais le code test, j'ai le même problème à la ligne PrintOut
ci dessous le code où se produit l'erreur 1004 "la méthode PrintOut de la classe Worksheet a échoué".

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
Sub Imprimer_recours() 'Imprimer Recours

With Sheets("Recours")
With .OLEObjects("rec1").Object
        .BackColor = RGB(255, 255, 255)
        .SpecialEffect = fmSpecialEffectFlat
    End With
    
    .PrintOut Copies:=1 'impression de la feuille
    
    With .OLEObjects("rec1").Object
        .BackColor = RGB(233, 239, 250)
        .SpecialEffect = fmSpecialEffectSunken
    End With
End With

End Sub

**Godzestla** · 16/11/2010, 14h04

J'allais te proposer de m'envoyer ton fichier, mais comme tu ne peux/veux recevoir de MP, je ne sais pas te communiquer mon email.

Tu sais m'envoyer un MP avec ton email ?