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
Private Sub CommandButton5_Click()
 
dim intColMin as integer, intColMax as integer
dim intLinMax_autre as integer, intLinMax_autre as integer
dim intLinMax as integer, intLinMax as integer
 
intColMin = 1
intColMax = 10
intLinMin_autre = 1
intLinMax_autre = 41
intLinMin = 124
intLinMax = 158
 
with ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMin, intColMin), _
Cells(intLinMax, intColMax)).Address
ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMinautre, intColMin), _
Cells(intLinMax_autre, intColMax)).Address
end with
 
Application.Dialogs(xlDialogPrinterSetup).Show
    ActiveWindow.SelectedSheets.PrintOut
 
Paramètre_impression.Hide
 
End Sub
Merci à l'avance de votre aide.