- Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
-
- Public Function EnrgEcran(ByVal Fichier As String) As Boolean
- On Error Goto SortieErreur
-
- 'Test de la présence du fichier
- If Dir(Fichier) <> "" Then Exit Function
-
- 'Pour Capturer l'ecran entier
- Call keybd_event(vbKeySnapshot, 1, 0, 0)
-
- SavePicture Clipboard.GetData(vbCFBitmap), Fichier
- EnrgEcran = True
- Exit Function
-
- SortieErreur:
- MsgBox "Erreur dans le Module EnrgEcran. Erreur #: " & Err.Number & ", " & Err.Description
- End Function
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Function EnrgEcran(ByVal Fichier As String) As Boolean
On Error Goto SortieErreur
'Test de la présence du fichier
If Dir(Fichier) <> "" Then Exit Function
'Pour Capturer l'ecran entier
Call keybd_event(vbKeySnapshot, 1, 0, 0)
SavePicture Clipboard.GetData(vbCFBitmap), Fichier
EnrgEcran = True
Exit Function
SortieErreur:
MsgBox "Erreur dans le Module EnrgEcran. Erreur #: " & Err.Number & ", " & Err.Description
End Function