Discussion :

[patricktoulon]

bonjour


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 keybd_event vbKeySnapshot, 1, 0&, 0&

a quoi correspondent les deux "0&" dans la commande

merci d'avance


au plaisir

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

[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

[mercatog]

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

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

[patricktoulon]

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

[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.