Discussion :

[maintSiniat]

Bonjour à tous et merci de prendre le temps de réfléchir à mon problème,

J'ai un formulaire représentant un calendrier dont les élément se déplace dynamiquement en fonction du mois désiré. Je souhaite effectué une capture d'écran du userform pour coller celle-ci dans un onglet où je pourrait rogner et retravaillé mon image.
Je souhaiterais avoir plusieurs capture d'écran pour affiché plusieurs mois.

Jusqu'ici rien de spécial, je fais mon code avec la commande keybd_event vbKeysnapshot 1,0&,0&
1er mois désiré, pas de soucis (enfin presque pas. dans certain cas il me donne pas la dernière capture mais celle d'avant qui peu être du texte ou tout autre objet copier qui n'ont pas de rapport. (c'est un problème mais en vidant le presse papier avant l'ImprEcran sa marche)
2eme mois désiré, la macro s'exécute cependant si je n'ai pas vidé le presse papier il me met la même image que la première et dans le presse papier il n'y a pas de nouvelle image. Si je vide le presse papier il ne fais une de capture écran et me dit que le presse papier et vide donc il n'y a pas d'image a copier.


Pour chaque nouvelle fois ou je fais un imprime écran c'est la méme chose.
Est-ce que par hasard le fait de copier dans un feuillet fait perdre le focus, ou faut-il réinitialisé keybd_event?
Je viens de passé 3h à essayé plein de code, de manipulation et autre mais rien ne résous mon problème d'où mon appel à l'aide

Merci de votre aide

[unparia]

Bonjour
En quoi crois-tu que le fonctionnement de fonctions de l'Api de Windows, qu'elles soient ou non appelées depuis VBA, soit un problème VBA ?
Pour moi, ta question est fondamentalement autre qu'une question VBA.

[maintSiniat]

Je met sa en problème vba car quand je le fais avec les touche sa fonctionne à merveille. Je cherche juste à automatisé le fonctionnement en vba.
Je me trompe peu être mais dans tout les cas si quelqu'un a déjà eu le problème ou si quelqu'un a une idée je suis preneur

[patricktoulon]

bonsoir
oui le probleme est connu tu tourne sur Windows 7 je suppose ?

1. doevents
2. et les 3 api clipboard (open,empty,close)
3. tu peut régler aussi le problème en relâchant les touche simuler, 90% des utilisateurs de l api keybt event l'oubli

Code :

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

1
2
3
4
 
 keybd_event le code de la touche ou sa constante, 0, 0, 0 ' on appuie sur la touche 
 
 keybd_event code de la touche , 0, &H2, 0 ' on relâche la touche

sinon le clipboard ne se met pas a jour car occupé

n'oubli pas aussi que tu paste sur un sheet il y a donc activation de la fenêtre Excel et tu n'a plus le focus sur l'usf il faut réactiver (show)

[maintSiniat]

Merci pour cette réponse, c'est l'élément que je ne connaissait pas et qui me manqué ( ce que j'entendais par réinitialisé keybd_event).
Voici mon code pour ceux qui peuvent en avoir besoin :

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
16
17
18
19
 
'Sauvegarde de la hauteur du formulaire et redimensionnement
hauteurDefault = Me.Height
Me.Height = action.Top + 5
 
'Capture d'écran
keybd_event vbKeySnapshot, 1, 0&, 0&
 DoEvents
Application.Wait Now + TimeValue("0:00:01")
keybd_event vbKeySnapshot, 0&, &H2, 0&
 DoEvents
 
'Ajout de l'image au feuillet
With Feuil15 'à adapter à la feuille que tu veux
    .Paste
End With
 
'Remise en forme du formulaire
Me.Height = hauteurDefault

le application.wait est obligatoire ^pur que le formulaire est le temps de se rafraichir après le dimensionnement.

Encore merci pour votre aide, cordialement

[patricktoulon]

re
oui dans beaucoup de procédure même avec les api clipboard il faut un temps des fois le doevents suffit
pour les touches t'inquiet j'ai cherché sur la toile dans divers forum un qui aurait pensé a libérer la touche snapshot et bien je te rassure même les plus chevronnés ne le font pas
c'est pourtant d'une évidences


il viendrait a personne l'idée d'appuyer sur une touche en la laissant appuyée et taper sur d'autre touche sans jamais relâcher la touche 1 sauf pour les association shift et alt