capture d'un userform bien preci

Version imprimable

bonjour

j'ai récupéré ça dans la FAQ et sa fonctionne très bien
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 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 commandButton1_Click() keybd_event vbKeySnapshot, 1, 0&, 0& DoEvents Range("A1").Select ActiveSheet.Paste End Sub
le soucis c'est que moi j'ai plusieurs usf a l'écran alors des fois dans la capture j'ai tout les userforms c'est un peu embêtant
alors ma question est :
y a t il un moyen par exemple de mettre le handle d'un userform bien précis dans
Code:

1 2 keybd_event vbKeySnapshot, 1, 0&, 0&
a quoi correspondent les deux "0&" dans la commande

merci d'avance

au plaisir

26/09/2010, 15h31
mercatog

Code:

keybd_event vbKeySnapshot, X, 0&, 0&

correspond exactement à faire la touche clavier: Imprime écran
X=0: Imprime écran entier
X=1: Imprime écran de la fenêtre active
26/09/2010, 15h38
patricktoulon

bonjour Mercatog

merci pour ta réponse rapide

je voudrais savoir maintenant a quoi correspondent les deux "0&" sur tout qu'en début de module dans la déclaration de l'api il y en a 4

puisque la première variable a "1" désigne la fenêtre active
est ce que si je lui met le handle a la place trouver par le findwindowA
ça fonctionnerais

merci au plaisir
26/09/2010, 16h02
mercatog

Je crois que c'est non
une explication trouvée sur le net

Citation:

Fonction keybd_event

Declare Sub keybd_event Lib "user32" Alias "keybd_event" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Description :
Cette API permet de simuler des frappes au clavier tout comme vous le feriez.
bVk est le code ascii de la touche à envoyer au buffer clavier.
bScan est utilisé pour définir l'action de certaines touches spéciales comme "Imprime écran".
dwFlags est l'évènement que l'on souhaite génèrer comme KeyUp ou l'utilisation des touches étendues sur les claviers spéciaux.
dwExtraInfo permet d'ajouter une valeur supplémentaire à la touche actionnée.

Je pense que tu dois activer d'abord l'userform en question, ensuite lancer la fonction keybd_event
26/09/2010, 17h00
patricktoulon

re

ok merci Mercatog

dans ce cas la puisque le "dwExtraInfo" serai une fonction supplémentaire pour quoi pas lui attribuer une variable désignant le usf

enfin c'est une idée

après j'avais trouvé sur ce site je ne sais plus ou la possibilité de faire une capture en fonction d'un userform

je ne trouve plus ce lien

pourrais tu m'aider a ce sujet

merci a toi

au plaisir
26/09/2010, 18h09
babaothe

salut

Tu sais déjà déterminer le hwnd d'une fenêtre.

Je pense que tu trouveras là toutes les possibilités qui s'offrent à toi :
http://support.microsoft.com/kb/161299
L'adaptation pour VBA est simple.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
    Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
    lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) _
    As Long
 
 
Private Sub CommandButton1_Click()
Dim hd1 As Long, hd2 As Long
 
Application.ScreenUpdating = False
hd1 = FindWindow(vbNullString, Me.Caption) 'userform actif
hd2 = FindWindow(vbNullString, "UserForm3") 'userform à numériser
SetForegroundWindow hd2
DoEvents
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Range("A1").Select
ActiveSheet.Paste
SetForegroundWindow hd1
End Sub

26/09/2010, 18h29
patricktoulon

re

wouaouhhh!!! ya pas rien la !!!:ccool::ccool:

et ben dis donc je suis bluffé une solution toute prête je n'ai plus qu'a prendre mon billet d'avion pour les îles:mouarf:

voila un code source

je ne connaissais pas l'api "SetForegroundWindow" si je traduit en français qui veut dire mise en avant plan enfin je crois de ce fait oui c'est évident

je savais bien qu'il fallait que j'aille chercher encore dans les apis

je n'était pas loin avec mon "findWindowA"
je vais essayer ça tout de suite bien que vu la structure de la macro je n'ai aucun doute que ça fonctionne

merci a toi trop top
26/09/2010, 18h36
mercatog

Simplement, j'apprends aussi en essayant et grâce à tes questions originales ;)
02/10/2010, 18h30
patricktoulon

re

bonjour mercatog

je reviens malgré le résolu pour te signaler que ta macro fonctionne très bien mais ne donne pas le focus a l'userform je suis obligé de faire un nouveau show de l'userform pour qu'il ai le focus

un idée sur la question

comment donne t_on le focus a un userform bien précis

je te remercie d'avance

au plaisir
02/10/2010, 19h49
mercatog

Code:

Declare Function SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
02/10/2010, 20h13
patricktoulon

re

bonjour mercatog

puré tu a réponse a tout toi

je suppose que vu le titre de la fonction je suis en droit d'espérer que ca fasse l'effet voulu

tu aurais pas carément un lien listant expliquant toute les fonctions dans le user32.dll ca me permetrais d'avancer un peu sur mes projet

maintenant avec setforeground je le met en avant plan et avec la setfocus je l'active donc plus d'erreur possible a mon avis

je te remercie encore une fois

au plaisir
02/10/2010, 23h11
mercatog

Lien interne API
Lien externe API
Bonne lecture et application
03/10/2010, 00h55
patricktoulon

re

merci a toi trop top

le lien externe a l'air pas trop mal en tout cas je le comprend

au plaisir

rebonjour mercatog

tien en voila une autre qui fait les deux en meme temps

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'La Fonction BringWindowToTop
'Description :
'Cette fonction met la fenêtre, dont le handle est envoyé en paramêtre, 'au 'premier plan. Elle se positionne devant toutes les autres et devient la fenêtre active. Elle renvoie 'Vrai' si la fonction a fonctionné, sinon 'Faux'.
 
Declare Function BringWindowToTop Lib "user32" ( _
                 ByVal hWnd As Long) As Long 
'Versions :
'. Windows 95/98 : Oui
'. Windows NT : A partir de 3.1
'. Windows 2000/XP : Oui
 
'exemple:
sub activation_de_l_userform
BringWindowToTop  hd2 
end sub

au plaisir

re je n'arive plus a m'arreter

et- en voila une autre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Declare Function FWA Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function show Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public handle As Long
Sub mode_d_affichage()
'on determine le pointeur de la fenetre(hwnd) ici nommé handle
handle = FWA(vbNullString, nom_de_l_userform.Caption)
show handle, 5 
End Sub
 
'ci dessous les autres possiblités
 
'le  0  Cache la fenêtre et en active une autre.
'le  3  Agrandit la fenêtre.
'le  6  Réduit la fenêtre et active la prochaine (dans l'ordre des tâches windows).
'le  9  Active et affiche la fenêtre à sa taille et position initiales.
'le  5  Active et affiche la fenêtre.
'le  3  Active et agrandit la fenêtre.
'le  2  Active et réduit la fenêtre.
'le  8  Identique à 5 sauf que la fenêtre n'est pas activée

si ca c'est pas preci je sais plus moi

au plaisir

03/10/2010, 19h26
babaothe

Citation:

Envoyé par patricktoulon

re je n'arive plus a m'arreter

et- en voila une autre
....

si ca c'est pas preci je sais plus moi

....

salut patrick
encore un minuscule effort et tu seras complet ;)
Il consiste à prévoir le cas où ta fenêtre n'a pas de caption.
Je te laisse faire (ce n'est pas trop difficile)
Amitiés
04/10/2010, 12h34
patricktoulon

re

bonjour babahote

justement mon userform a capturer n'a plus de caption

puisque les handle respectifs sont determinés dès le load du premier

et le deuxieme est passé a la moulinette (setwindowlongA)ect...

et je lui ai supprimé la caption

tralalalalere

au plaisir
04/10/2010, 12h58
babaothe

Citation:

Envoyé par patricktoulon

et le deuxieme est passé a la moulinette (setwindowlongA)ect...

et je lui ai supprimé la caption

tralalalalere

subterfuge adroit, mais ... réservé uniquement à la maitrise de l'UserForm dont tu supprimes a posteriori le Caption ;) (donc de toi)
Si tel n'est pas le cas : va falloir t'y mettre différemment ;)
04/10/2010, 14h19
patricktoulon

re

daccors

je comprends ce que tu veux

enfin je crois

en fait tu par lais de caption d'autre application

et bien dans ce cas il il a le "sendmessage" en passant par le "hwnd" et ensuite pareil le "findwindowA" et apres le "showwindow hwnd", 1,2,3,4,5,6,7,8 comme tu veux

voila

au plaisir