Pb capture d'écran et msgbox

Version imprimable

30/12/2005, 11h38
PRACH

Pb capture d'écran et msgbox

Bonjour à tous !
Voilà mon problème, j'ai crée un petit formulaire qui effectue une capture d'écran. Mais le problème est qu'il me serait intéressant de le lancer lors d'une erreur sur le logiciel au moment où s'affiche le msgbox d'erreur.
Seulement lorsqu'un msgbox apparait au 1er plan, il bloque tout le reste ainsi il est impossible de lancer la capture d'écran.
Pouvez vous m'aider ?
Merci.
30/12/2005, 12h37
ouskel'n'or

Hello,

Il serait bien que tu précises VB ou VBA...
Pour ton problème, il me semble avoir vu la réponse sur le forum : Placer ton msgbox dans une temporisation, à la fin de celle-ci le msgbox "devrait disparaître" (jamais essayé donc sans garantie) et permettre l'affichage de ta copie d'écran.
Par contre, une chose m'intéresse : Comment fais-tu ta copie d'écran ? A moins qu'elle soit manuelle, ton code m'intéresse. Merci.

A+
30/12/2005, 13h29
khany

Quand ton programme capture une erreur, fais d'abord la copie d'écran puis affiche seulement le MsgBox. C'est aisé avec une gestion d'erreur style "On Error GoTo ..." :wink:

Bonsoir,
ouskel'n'or, tu peux faire ceci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
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 Sub Command1_Click()
Dim msg As String, intx As Integer, Titre
msg = "Voulez-vous faire une capture d'écran ?"
Titre = "Capture d'écran"
intx = MsgBox(msg, vbYesNo, Titre)
If intx <> vbNo Then
On Error Resume Next
Call keybd_event(vbKeySnapshot, 0, 0&, 0&)  'envoie la code de la touche Print Screen (la capture dans le press papier)
SavePicture Clipboard.GetData(0), "c:\Image.bmp"
'enregistre la capture a l'adresse c:\Image.bmp
Else: Exit Sub
End If
 End Sub
 
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("C:\Image.bmp")
End Sub

jpleroisse

02/01/2006, 10h01
ouskel'n'or

Hello Leroissejp,

Tout d'abord, laisse moi répondre à ton post "meilleurs voeux" en te souhaitant à toi aussi une bonne année 2006 et que tous tes voeux exprimés dans ton message se réalisent.

Merci pour ta réponse. Je ne voudrais pas détourner la question posée par prach mais, s'il veut utiliser ton code, autant qu'il ait lui aussi la réponse...
J'ai en effet un problème avec Clipboard qui n'est pas reconnu et n'est pas déclaré, or je ne connais pas la syntaxe. Un truc comme :

Private Declare Function Clipboard Lib "user32" () As Quoi ???

Peux-tu me renseigner ?

Par avance, merci

A+
02/01/2006, 10h16
Mandalar
Chez moi ca marche impec, et je remarque que le clipboard n'a besoin d'aucune déclaration... (vb6) Tu développes en vba peut-être ?

Sinon ce que tu veux faire PRACH, c'est enregistrer un message d'erreur graphiquement. Mais tu pourrais gérer l'erreur et l'enregistrer par exemple dans un fichier texte pour l'analyser plus tard, en utilisant :

Code:

On error goto erreur

et ensuite quelque chose du genre :
Code:

1 2 erreur: Enregistrer(Err.Description) 'la fonction enregistrer est à définir pour toi
02/01/2006, 10h25
ouskel'n'or

Hello,

Effectivement je suis sur VBA... 97 de surcroit (!)
Donc, j'ai à déclarer le presse-papier.
Si tu as la solution...

A+
02/01/2006, 10h42
Mandalar

J'ai trouvé ca avec la visionneuse d'api:

Code:

Public Declare Function CloseClipboard Lib "user32" Alias "CloseClipboard" () As Long

Cependant je vois pas trop comment s'en servir ni même a quoi ca peut servir :?

Si, ça sert... :lol:

Si tu veux vider le presse-papier, tu dois d'abord déclarer "tout ça"
Code:

1 2 3 Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long
Ensuite, tu peux faire ça :
Code:

1 2 3 OpenClipboard 0 EmptyClipboard CloseClipboard
J'avais trouvé ça sur le forum mais j'ai oublié qui...

A toutes fins utiles.

N'empêche que je ne sais toujours pas comment déclarer Clipboard... :cry:

A+

Bonjour,
ouskel'n'or, voici tout ce que j'ai trouvé en VBA 97.

L’exemple suivant illustre les mouvements de données d’un contrôle TextBox vers le Presse-papiers, du Presse-papiers vers un objet DataObject et d’un objet DataObject vers un autre contrôle TextBox. La méthode GetFromClipboard transfère les données du Presse-papiers vers un objet DataObject. Les méthodes Copy et GetText sont aussi utilisées.
Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d’une feuille et vérifiez que celle-ci contient :

· deux contrôles TextBox nommés TextBox1 et TextBox2,
· un contrôle CommandButton nommé CommandButton1.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim MyData as DataObject Private Sub CommandButton1_Click() 'Sélectionnez un texte avant de le copier dans le 'Presse-papiers TextBox1.SelStart = 0 TextBox1.SelLength = TextBox1.TextLength TextBox1.Copy MyData.GetFromClipboard TextBox2.Text = MyData.GetText(1) End Sub Private Sub UserForm_Initialize() Set MyData = New DataObject TextBox1.Text = "Placez ces données dans " & _ "le Presse-papiers, dans un objet " & "DataObject, puis dans le contrôle " & "TextBox2 !" End Sub
jpleroisse

02/01/2006, 14h24
ouskel'n'or

Merci jp, j'avais quelque chose de proche et, pour du texte, pas de problème pour l'insérer où je le désire.
Mais ce dont j'aurais besoin est la sauvegarde d'une copie d'écran sous forme de BMP en VBA 97 après copie d'écran par macro. Et là... :?:

Pour faire ça :

Citation:

SavePicture Clipboard.GetData(0), "c:\Image.bmp"

je dois déclarer Clipboard. Comment ? J'en sais rien !

Merci

A+

bonsoir

Ouskel'n'or , cela ne répondra pas à la question d'origine qui consistait à faire une capture d'un MsgBox , mais tu peux tester cette procedure pour effectuer une capture d'écran depuis Excel et l'enregistrer sous forme d'image .jpg

(testé avec Excel 2002)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
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)
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub copieEcran_et_Sauvegarde()
'michelxld le 30.09.2005
Dim x As Byte
Dim Sh As Shape
Dim monImage As String
 
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
 
x = ActiveSheet.Shapes.Count
 
Application.ScreenUpdating = False
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
 
'verifie si le collage effectué correspond à une image
If x = ActiveSheet.Shapes.Count Then
Application.ScreenUpdating = True
MsgBox "Opération annulée"
Exit Sub
 
Else
 
Set Sh = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
monImage = "C:\monImage.jpg"
 
With ActiveSheet.ChartObjects.Add(0, 0, Sh.Width, Sh.Height).Chart
.Paste
.Export monImage, "JPG"
End With
 
With ActiveSheet
.ChartObjects(ActiveSheet.ChartObjects.Count).Delete
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
 
Application.ScreenUpdating = True
 
'-------------------------------------------------------------
'option pour les utilisateur de Windows XP :
'visualisation de l'image créée avec avec l'apercu images_telecopies Windows
'testé avec Excel2002 et WinXP
 
'ShellExecute 0, "open", "rundll32.exe", _
"C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & monImage, 0, 1
'-------------------------------------------------------------
 
End If
End Sub

la procedure peut aussi etre attachée à un CommandButton dans un Userform pour capturer et sauvegarder l'image de la Form

bonne soiree
michel

03/01/2006, 09h38
ouskel'n'or

Merci pour ton code, SilkyRoad.
J'ai une info : Il marche du tonnerre sur VBA97 :ccool: Donc, Youpi ! et toute cette sorte de choses. Heureusement qu'on t'a... :calin:
Bien sûr, merci à toi aussi, leroissejp, je suis sûr qu'il ne manquait pas grand chose à ton code pour qu'il tourne aussi sur VBA 97.

Tout ça en attendant que PRACH donne de ses nouvelles...

A+