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