Version imprimable
Bonjour,
Je cherche à automatiser des captures d'écran d'un userform sous excel 2021 64 bits en cliquant sur un commandbutton (j'ai vu des solutions sur le forum mais en 32 bits, apparemment il faudrait passer par des api pour les 64 bits...?).
Une fois la capture faite l'idée est de l'enregistrer en tant qu'image avec un nom dépendant du contenu du usf, dans un google drive...
Des pistes ?:D
Merci !
Salut,
Théoriquement, il suffit d'adapter la déclaration de l'API, et bien souvent, on les trouve qui traînent sur le net.
As-tu cette dernière ?
Non sincèrement je suis utilisateur vba occasionnel et parler des api c'est me parler en mandarin :lol:
Bonjour
travaillant sur 2007 2013 2016 et 365 il est penible de faire sans cesse des adaptations
alors je me suis developpé un outils (un complement xla) dans le quel j'ai mis une fonction captureform avec les api mais utilisées par les macro4
ce qui implique que pas de déclaration d'api ni en 32 ni 64
voici un extrait allégée de ma fonction
dans le userform tu met un bouton et dans l'event click tu metCode:
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
exemple
et voila tu clique et ca te propose le dialog enregistrer sous pour enregistrer ta capture ou tu veuxCode:
2
3
bonne continuation :D
re
une autre méthode vielle comme le monde
ici on va simplement manipuler la touche snapshot avec le send keys
et ensuite pareil on paste sur un chart et l'export
Code:
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
Bonjour,
Merci pour les 2 propositions sur lesquelles je fais le retour suivant : la 1ère propose une capture ciblée, (mais impose donc une manipulation manuelle supplémentaire ce qui est à éviter dans mon cas), fait fait ramer l'ordi 40 secondes environ par la suite...
La seconde est plus rapide, copie bien une capture d'écran dans le presse papier, mais ne l'enregistre pas sur l'image (j'ai un grand carré jaune sur le fichier sauvegardé, pas la capture) je ne sais pas pourquoi... D'ailleurs pourquoi faut-il passer par un chartobjects.add? Ne peut on pas commander en vba à windows de sauvegarder le dernier élément du presse papier sous forme de fichier jpeg ?
Je cherche un moyen d'enregistrer bêtement la capture à un endroit, en tant que jpeg ou pdf, sans manipulation extérieure (définir initialement l'emplacement et le nom du fichier).
Merci encore !
bonjour
ha si on peut faire directe par window mais avec les api ce qui implique
des déclarations d'api 32/64 conformes et que ce soit non fonctionnel sur mac et les windows sur tablette
mais il n'y a aucune raison que les deux propositions ne fonctionnent pas chez toi
peut être que si j'avais le fichier je pourrais voir ce qui se passe
lre
j'avais oublié la latence du clipboard dans les version 64
donc la méthode 2 avec gestion d'attente du clipboard pour le paste avec le pictures.count=0 dans le chart
normalement ça devrait fonctionner maintenant
Code:
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
Bonjour Patrick,
Merci de tes retours. C'est très bizarre ça plante sauf si je passe en mode debogueur pas à pas... J'ai essayé avec un fichier excel vierge, usf vierge, juste ton code et un commandbutton : pareil !
C'est le presse papiers qui pose problème ?
Tu dis qu'on peut faire direct par windows, c'est peut être mieux pour moi ; c'est destiné à rester sur pc non tablette.
Question subsidiaire : la capture (lorsqu'elle marche en pas à pas) fait 400Ko ; je vais probablement en faire et stocker sur le cloud + de 1000/an ; est-il possible d'automatiser une réduction du poids à la création ou à posteriori ?
Bonne soirée,
Arnaud
avec les api windows le fichier est encore plus gros à la sortie c'est un bitmap avec l'api bitblt du un dc dynamique avec la copy d'une portion de l’écran
si en pas à pas la méthode 2 fonctionne ,c'est qu'il y a une autre gestion d'attente a faire
je vais voir ça
pour la reduction on pourrait passer par WIA
re
méthode 2 avec gestion d'attente clip et gestion d'attente paste
Code:
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
Bonjour Patrick,
Merci pour cette nouvelle proposition, mais hélas là aussi ça plante ; obligé de couper excel avec le gestionnaire de taches. Et même en pas à pas :en fait ça plante dès la validation de la fenêtre d'emplacement d'enregistrement.:(
[edit :] j'ai retesté et finalement ça a planté lors de l'ajout du graphique...
[edit 2 :] en fait ça a pas planté, si je laisse mouliner 5 min il s'en sort... et continue la procédure comme si de rien n'était. Et c'est bien au moment d'exécuter la ligne suivante qu'il galère :
Code:With ActiveSheet.ChartObjects.Add(0, 0, uf.Width, uf.Height).Chart
je précise que c'est le cas même sur un fichier excel vierge contenant juste le usf avec commandbutton et aussi avec le presse papier vide...
Bonjour,
J'ai trouvé le sujet de cette discussion intéressant donc je m'y suis penché de mon côté en fouillant dans mes archives.
Mais avant de présenter le code que je vous propose deux remarques sur la copie du presse-papiers dans un objet "Chart" qui peut (parfois) planter pour deux raisons :
1) La mise à jour de l'écran est désactivée, mettre "Application.ScreenUpdating=True" pour corriger, ça ne se voit pas au pas-à-pas car dans ce cas "Application.ScreenUpdating=False" est ignoré par de VBE.
2) La cellule active est trop loin de l'objet "Chart" généré. Il faut remonter en début de feuille avec "Application.Goto [A1], True".
Bref.
Je vous propose un code, qui utilise les API mais c'est transparent pour vous, qui appelle la fonction "UserFormEnImage".
Ses arguments sont :
- StrNomDuFichier : Non du fichier à générer avec son chemin (valide) et son extension.
- ObjFormulaire : Nom du formulaire (soit Me si c'est un appel depuis le formulaire actif).
- HauteurMaxi : (facultatif) Si différent de 0 la hauteur maxi en pixel (le ratio est conservé).
- LargeurMaxi : (facultatif) Si différent de 0 la largeur maxi en pixel (le ratio est conservé).
- Zoom : (facultatif) Le Zoom à appliquer, 100 = 100%.
Le fichier image généré peut être au format : BMP, GIF, JPG, PNG, TIF.
La hauteur et largeur maximum peut être renseignée dans les arguments facultatifs (en pixels) et le ratio initial est conservé.
Un zoom permet d'agrandir ou de diminuer la taille de l'image. 100 = 100%
Exemple d'appel dans votre formulaire sur un clic sur un bouton nommé "CommandButton1" pour générer une image au format "jpg" sur le dossier "P" :
Code:
2
3
4
5
Idem mais avec un zoom x 2 :
Code:
2
3
4
5
Le code de la fonction à mettre dans un nouveau module classique :
Code:
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
Remarques :
- Je n'ai pas encore testé sur deux écrans.
- J'ai dû mettre une marge sur la version Excel où les formulaires ont un bord arrondi, à modifier si besoin.
- Je n'ai pas fait de gestion des erreurs car ça me gonfle.
Bonne continuation.
bonsoir laurent ott
oui je l'ai aussi le bilblt dans mes archive
je ne l'ai pas donné car le fichier final fait a peu près 10 à 15 fois le poids de celui avec les autres méthodes
exemple pour un userform de 200x200
avec la méthode chart il fait 43 kilo
avec celle ci il fait 733 kilo
et cela varie en fonction de la taille du userform (la différence est exponentielle
voici la version que j'ai dans mes bon vieux xls en 32 bits
Code:
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
Hello,
je viens d'essayer le code de Laurent. Il fonctionne chez moi sur un excel 32 bits et sur un excel 64 bits.
Pour le format de sauvegarde pour des formulaires où il n'y a pas de photos ou d'images détaillées , je conseille le format png. Cela compresse beaucoup quand il y a beaucoup de zones avec la même couleur et cela ne dégrade pas l'image. Le jpg c'est plutôt quand il a des zones avec beaucoup de détails (comme les photos). Le jpg peut dégrader l'image si on applique une trop forte compression.
Ami calmant, J.P
Bonjour,
C'est normal puisque la fonction enregistre l'image au format BMP. Avec la nouvelle version que je propose l'utilisateur peut enregistrer l'image en JPG :Citation:
Envoyé par patmeziere
On retrouve alors une taille de fichier identique à une copie avec l'objet "Chart".Code:Call UserFormEnImage("P:\toto.jpg", Me)
Autre remarque, j'ai revisité la fonction pour qu'elle soit compatible 32 et 64 bits, en utilisant des déclarations "PtrSafe" et des variables "LongPtr", disponibles depuis la version 7 du VBA sortie en 2010, donc normalement tout le monde devrait l'avoir.
Pour ceux qui s'intéressent au mode graphique, la documentation suivante donne des exemples en 32 bits mais le code source du fichier joint à été revu pour être compatible 64 bits : La programmation en mode graphique.
Bonne continuation.
Bonjour laurent ott
pour reduire le poid
il suffit de la repasser par WIA avec la properties("Quality") à 100%
pour 2007 j'ai remis les declarations Vb6
du coup je l'ai refait à ma sauce
capture du userform avec nom de fichier en argument
capture du userform avec boite de dialog saveAs
capture de l'ecran avec boite de dialog saveAs
je ne fait que du jpg
Code:
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
il faut reconnaitre que c'est rapideCode:
2
3
4
5
6
7
8
9
10
11
12
Petite remarque le canvas et le bitmap ne sont pas libérés a la sortie de la fonction c'est avec l'API DeleteObject qu'il faut le faire .
J'ai changé un peu le code la capture est effectuer par PrintWindow qui permet de dessiner une fenêtre même si elle est pareillement ou entièrement cachée, le seul hic qu'il fallait utiliser Findwindow pour trouver le handle de la forme et ca implique qu'elle doit avoir un caption unique.. l'image est exportée sous le format PNG ce format sans perte donne un taux de compression intéressant ..
Code:
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
61
62
63
64
65
66
67
68
69
70
71
72
73
bonsoir
en voila une idée qu'elle est bonne
pourvoir capturer la fenêtre même partiellement caché
bien vu ;)
edit:
j'ai changé l'argument userform pour object car dans l'appel je met "Me"
et a ce moment là "Me" est la classe userform et non la fenêtre
testé en masquant partiellement et ça fonctionne
bravo!! j’adhère complétement:bravo::ccool:
et pour conclure :le problème soulevé au départ par Laurent Ott(me semble t il) au sujet du multi écran, ne se pose plus
reste a ajouter les guid de format dans un select case pour faire du jpg ou autre