Discussion :

[apnw7931]

Re-bonjour tout le monde.

J'aimerai savoir s'il est possible, dans un formulaire, de cliquer sur un bouton pour que celui-ci fasse un screenshot de l'userform (avec les données encodées par l'utilisateur), pour pouvoir coller l'image quelque part d'autre dans la feuille.

Merci d'avance, et encore merci pour vos contributions et aides.

[patricktoulon]

bonjour

tu devrais commencer par regarder dans la faq ou les sources avant de poster
tout est dans la faq

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub CommandButton1_Click()
 
 
    'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
 
    colle l'image dans le premier sheets    
    Sheets(1).Paste
 
End Sub

au plaisir