bonjour a tous
j'ai un petit souci avec un copy paste

voila mon souci
je prend un cliché de l'userform avec l'api adequate
'capturer l'écran

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
private sub bouton_click()
keybd_event vbKeySnapshot, 1&, 0&, 0& ' fenêtre active
        DoEvents
Sheets(1).Paste
end sub
sa sa fonctionne
le problème c'est que je peut le faire plusieurs fois après avoir apporté des modification a l'userform

et a chaque fois c'est l'image de la précédente capture qui se colle dans le sheets
je suis obligé de faire 2 a trois fois la capture pour que la capture soit bien la dernière comme ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
private sub bouton_click()
for i = 1 to 3
keybd_event vbKeySnapshot, 1&, 0&, 0& ' Capture de la fenêtre active
next
        Sheets(1).Paste
end sub
quelqu'un a une idée pourquoi je suis obligé de faire ca ??

merci pour le retour

au plaisir