Logiciel de capture d'écran.

Bonjour,
Un logiciel ou un code VBA ?
A+

J'ai bien un code pour capturer l'écran (pas la vidéo) mais je crains fort qu'étant débutant tu n'y comprenne rien.

je vais faire avec ^^

Beh voila.. mais compliquer !!
Dans un module...

'************************************************************ 
' Déclarations des API : 
' Pour copier l'image de votre écran dans une PictureBox 
Public Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long 
Public Declare Function GetDesktopWindow Lib "user32" () As Long 
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 
'************************************************************ 
' Déclarations des API : 
' Détecte la position du curseur 
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PosCurs) As Long 
' Modifie la position du curseur 
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 
' Redessine le curseur 
Public Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long 
' Lit le modèle de curseur 
Public Declare Function GetCursor Lib "user32" () As Long 
' 
' Déclaration du type PosCurs necessaire pour l'API 
Public Type PosCurs 
    x As Long 
    y As Long 
End Type 
Public PositSourX As Integer 
Public PositSourY As Integer 
Public genrecurs As Long 
'************************************************************

Dans le même module ou un autre..

Sub Capture() 
Dim varRet As Integer 

Dim posit As PosCurs 
Dim ret As Long 
    MemL = Me.Left 
    MemT = Me.Top 
     
    ret = GetCursorPos(posit) 
    PositSourX = posit.x 
    PositSourY = posit.y 
    Me.Move 0, 0, Screen.Width, Screen.Height 
    'Picture1.Visible = True 
    varRet = BitBlt(Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, _ 
              GetWindowDC(GetDesktopWindow), 400, 200, vbSrcCopy) 
    Picture1.Visible = True 
   

En VBA les image n'ont pas de hdc, cherche dans mes astuces comment trouver le hdc d'une image.
Bon courrage
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.

Merci !
Mais il y a 35 erreur :/