Le problème

Bonjour, est-il possible de faire une copie d'écran en VBA ?

La solution

Je ne sais pas trop à quoi ça peut bien vous servir mais oui, c'est possible, c'est à la base silkyroad qui a lancé la macro sur le net... Remercions le pour son aide !

Voici le code de la macro à copier dans un module :

1
2
3
4
5
6
7
8
9
10

Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Sub CopieEcran()
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Range("A1").Select
ActiveSheet.Paste
End Sub
 

Lancez simplement la macro et votre copie d'écran est effectuée et collée directement dans votre classeur actif...