Macro pour faire un print screen d'un site

Bonsoir,

est-il possible de faire une macro qui permette de faire un copier/coller d'un site et de l'insérer dans une cellule ?

J'ai tenté en faisant une macro qui ouvre un site, puis print screen et enfin coller, mais ça ne marche pas une fois que je redémarre le PC...

Merci d'avance!

Salut le forum

Capture d'écran

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)

Private Const VK_SNAPSHOT = &H2C

Sub PrintScreen()
    keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub 

Capture de la fenêtre active

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)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Sub AltPrintScreen()
    keybd_event VK_MENU, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub

3 minutes de décalage et plus de Vinzu.....

Mytå