Impression sous VBA

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:

---

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.

Et si tu ajoutes

Code:

---

DoEvents

---

avant la ligne qui lance l'impression... ?

Salut,
non ca fonctionne pas...
C'est vraiment bizarre.. ca ralentit le code vraiment beaucoup...

Salut, pour accélérer les choses voir ExecuteExcel4Macro et PAGE.SETUP, à adapter à ton contexte

Code:

---

1 2 3 4

Sub Tst() ExecuteExcel4Macro "PAGE.SETUP(" & Chr(34) & "" & Chr(34) & "," & Chr(34) & Chr(34) & _ ",.15748031496063,.0118110236220472,.78740157480315,.78740157480315,FALSE,TRUE,TRUE,FALSE,1,,100,,1,,,,,,)" End Sub

---