Bonjour,

J'essaie de créer une macro permettant d'imprimer plusieurs pages à partir d’Excel. Le problème c'est que c'est page ne se suivent pas.

Effectivement, j'ai besoin de faire imprimer les pages comprises entre les cellules 1@41 et 124@158. Pour les deux feuilles, c'est le contenu compris entre les rangé 1@10 qui devra s'imprimer.

J'ai créé une procédure, mais en lorsque je clique sur le bouton pour imprimer, il n'imprime qu'une seule des deux pages à imprimer.

Voici la fonction que j'ai faite:

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
Private Sub CommandButton6_Click()
 
'Imprime la page 1 et la page de note
 
Dim intColMin As Integer
Dim intColMax As Integer
Dim intLinMin As Integer
Dim intLinMax As Integer
Dim intLinMin_autre As Integer    '2e page à imprimer
Dim intLinMax_autre As Integer   '2e page à imprimer
Dim reponse As Byte
 
'Déterminer la zone à imprimer
 
intColMin = 1                   'Première colonne à imprimer
intColMax = 10                  'Dernière colonne à imprimer
intLinMin = 1                   'Première ligne à imprimer
intLinMax = 41                  'Dernière ligne à imprimer
intLinMin_autre = 124           'Première ligne à imprimer 2e page
intLinMax_autre = 158           'Dernière ligne à imprimer 2e page
 
'Donne la commande pour dire les ligne et colonnes à imprimer
 
ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMin, intColMin), _
Cells(intLinMax, intColMax)).Address
 
ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMin, intColMin), _
Cells(intLinMax_autrre, intColMax_autre)).Address
 
'Etes-vous sur de vouloir imprimer ???
 
reponse = MsgBox("Voulez-vous vraiment imprimer la page 1 et la page de note ?", _
vbquestios + vbYesNo + vbDefaultButton1)
If reponse = vbNo Then Exit Sub   
 
'Affiche l'onglet pour déterminer ou imprimer
 
Application.Dialogs(xlDialogPrinterSetup).Show      'Appel l'imprimante à sélectionner
    ActiveWindow.SelectedSheets.PrintOut            'Imprime le fichier
 
Paramètre_impression.Hide               'Enlever la fenêtre d'impression
 
End Sub
Merci de votre aide.