Discussion :

[daffy44]

Bonsoir,

Je voudrait faire un imprim' écran par le sendkeys. Pour ce faire j'utilise la ligne suivante :
SendKeys "%{PRTSC}"

Qd je récupère la main, je tente de faire un coller dans paint mais il semble que l'impr écran n'a pas fonctionné.

Idem avec la ligne toute simple SendKeys "{PRTSC}".
QQu'un a une idée ?

[SilkyRoad]

bonsoir

tu peux tester cette syntaxe pour faire des copies d'écran

Code :

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

1
2
3
4
5
6
7
8
9
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
keybd_event vbKeySnapshot, 1, 0&, 0&
End Sub

(très pratique pour faire des copies d'écran de UserForm)


bonne soiree
michel

[Dolphy35]

Salut,

Réaliser et sauvegarder une capture d'écran

Dolphy

[SilkyRoad]

Salut,
Réaliser et sauvegarder une capture d'écran
Dolphy

Dolphin, merci pour ce lien tres interessant...et bravo à Tofalu