Faire une copie d'écran en vba

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

Salut,
Une méthode avec SendKeys

Code:

---

1 2 3 4

Sub PrintScreen() Application.SendKeys "(%{1068})" DoEvents End Sub

---

A+

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

Bonjour à tous,

un exemple :

Code:

---

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

---