Visual basic excel

Bonjour,

j'ai une petit programme de calcul excel qui beug à l'impression est ce que quelqu'un pourrais m'aider? je poste le code

Code:

---

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

Private Sub btnimp_Click() UserForm1.MultiPage1.Value = 4 Me.MultiPage1.Value = 4 Me.Repaint keybd_event vbKeySnapshot, 1, 0&, 0& DoEvents With ActiveSheet .Paste p = .Shapes.Count .Shapes(p).Top = .Range("a24").Top .Shapes(p).Left = .Range("a24").Left .Shapes(p).Height = 300 .Shapes(p).Width = 500 End With Sheets("fenêtre").Activate Range("A1:J33").Select Selection.PrintOut Copies:=1, Collate:=True Range("a1").Select ActiveSheet.Shapes(p).Delete Sheets("feuil1").Activate UserForm1.MultiPage1.Value = 0 End Sub

---

Il bloque à la fonction "paste" ou ne m'imprime qu'un petite bande de l'écran .

PS: j'ai installer un deuxième écran sur mon pc peut être que ça vient de là,

D'avance merci

Ne faudrait-il pas faire un .copy avant .paste ? Là ta macro n'a rien à copier.

Bonjour

pour tous dire je ne connais pas ce code c'est un membre du forum qui me l'avais rédiger il y a quelque temps donc si vous avez la solution n'hésitez pas.

Ps; j'ai quand même rédigez toutes mes ligne de calcul mais je connait pas le codage pour les impressions :(