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 : 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
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