Bonjour,

j'ai créé un planning sous excel en vba avec remplissage par userform.
Je désire imprimer une zone de sélection en vba en ayant auparavant l'apercu avant impression. Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton3_Click()
 
Dim ws As Worksheet
 
Set ws = ThisWorkbook.Sheets("Schedule")
X = ws.Range("A65").End(xlUp).Row
 
ws.PageSetup.PrintArea = Range("A10", Cells(X, 3)).Address
ws.PrintPreview
ws.PageSetup.PrintArea = ""
 
End Sub
A chaque fois que j'imprime ca me ralentit tout le reste, tout se fait a vitesse d'escagot et si je referme le fichier et que je le réouvre ca travaille a bonne vitesse. Mon code serait-il disons "mal fermé" ou autre... Pouvez-vous m'éclaircir.

Merci.