Bonjour, j'ai créé un userform avec ce code rattaché au bouton "IMPRIME"
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
 
Private Sub Imprime_Click()
 Dim Sh As Shape
  keybd_event vbKeySnapshot, 1, 0&, 0&
  DoEvents
  Application.ScreenUpdating = False
  With Feuil1
    'par précaution, pour faire le ménage
    For Each Sh In .Shapes: Sh.Delete: Next Sh
    .Paste .Range("A1")
    'obligatoire avant un PrintPreview, mais pas avant un PrintOut
    Me.Hide
    .PrintOut
    .Shapes(1).Delete
    'userform à nouveau visible
    Me.Show
  End With
  Application.ScreenUpdating = True
End Sub
Je souhaiterai que lors de l'impression, le bouton IMPRIME n'apparaisse pas.
Est-ce possible.