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
Partager