Discussion :

[deubelte]

bonjour

COmment faire une copie d'écran en VBA?
Est il un code qui permette de faire la copie d'écran d'un tableau excel?
merci

[Fvandermeulen]

Salut,
Une méthode avec SendKeys

Code :

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

1
2
3
4
Sub PrintScreen()
Application.SendKeys "(%{1068})"
DoEvents
End Sub

A+

[Jean-Philippe André]

salut,
une solution toute faite est disponible dans la
http://access.developpez.com/sources...dows#Imprecran

[aalex_38]

Bonjour à tous,

un exemple :

Code :

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

1
2
3
4
5
6
7
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Sub Capture()
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
End Sub