Discussion :

[atk_49]

Bonjour.

J'utilise Excel pour collecter des informations et les coller sous forme d'image dans un logiciel de gestion (ERP).
Pour cela j'utilise la fonction VBA .CopyPicture qui a toujours parfaitement fonctionné, mais qui déraille depuis la mise à jour de windows 10 creators update, je m'explique :

Ci-dessous une capture d'écran d'un devis, je viens de coller dans la fenêtre "Description" l'image provenant d'Excel.

Code :

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

ThisWorkbook.Sheets("SAV").Range("A17:D59").CopyPicture xlScreen, xlPicture

Une fois cette image collée, je clique sur Valider, et lorsque je ré-ouvre cette même fenêtre "Description", voilà ce que j'obtiens.


L'objet image est toujours présent, mais plus rien n'est affiché, comme s'il s'agissait d'une image blanche.


Quel rapport avec la maj Windows 10 1703 ?
Mes collègues de travail n'ont pas encore fait la mise à jour, et ils ne constatent pas ce bug. De plus, le problème est apparu sur mon PC dès la fin de la maj.

Pourquoi remettre Excel en question ?
J'arrive à coller une image provenant de Paint dans mon ERP qui la prend parfaitement en compte, cela isole donc un problème provenant seulement de l'ERP.
Pour confirmer cela, j'ai ouvert un nouveau fichier Excel dans lequel j'ai inséré un .Copypicture via un bouton de commande, et un problème similaire est constaté.

L'ERP utilisé est Sage ApiNégoce V11 dont la BDD est au format Access MDB.
J'utilise la version 2016 d'Excel.


Voila mon problème, qu'en pensez-vous ?
Merci d'avance et bonne fin de journée.

[atk_49]

Je vois que ce problème n'inspire pas grand monde ^^

Auriez-vous une autre méthode que Copypicture pour remplacer cette fonction et éventuellement résoudre le problème ?

Merci et bonne journée.

[mjpmjp]

bonjour,

juste pour indiquer que j'ai eu un problème avec les "Label" et après recherche sur le net, j'ai effectué une mise à jour corrective, mais je ne sais plus exactement, donc recherche s'il existe une mise à jour pour ton cas

@+JP

[vinc_bilb]

Bonjour,

Si votre code marche en mode pas à pas, c'est peut-être un pb similaire à celui là (tempo): https://www.developpez.net/forums/d1...b-copypicture/

[atk_49]

Bonjour,

La mise à jour corrective était pour Excel ou W10 ?

Merci

[atk_49]

Bonjour vinc_bilb,
Le code ne plante pas à l’exécution, je pense que le soucis vient de tout autre chose.


Autre démonstration du problème :
1 - Dans un nouveau fichier excel, j'insère une image quelconque, je la copie et la colle dans l'ERP, l'image devient blanche lors de la validation du devis, problème similaire donc.
2 - J'ouvre paint, je fais un dessin aléatoire que je sélectionne et que je copie dans le presse papier, je le colle dans l'ERP, l'image reste visible sans problème.
J'en conclu donc que le problème ne vient pas de l'ERP, mais bien des images copiées depuis Excel.


Deuxième démonstration :
L'ERP utilise une BDD Access MDB que je peux éditer. A l'intérieur, les images sont converties en code RTF (à confirmer), j'ai ainsi pu comparer ces codes :

Ci-dessous le code de l'image normale, insérée dans l'ERP depuis un PC Win10 non mis à jour :

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
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
{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}
\viewkind4\uc1\pard\f0\fs17{\pict\wmetafile8\picw4260\pich2672\picwgoal2415\pichgoal1515 
0100090000036303000008001c00000000000400000003010800050000000b0200000000050000
000c026600a200030000001e00040000002701ffff030000001e00040000002701ffff03000000
1e001c000000fb021000070000000000bc02000000000102022253797374656d0000f02cbe1294
9d6f02325b7c770000140000000000bc9d6f02040000002d010000050000000902000000000500
00000102ffffff000400000002010200040000002e0100000400000004010d0008000000fa0200
000000000000000000040000002d01010007000000fc020000ffffff000000040000002d010200
040000002701ffff030000001e00050000000102ffffff00050000000902000000000700000016
046500a10000000000040000002701ffff030000001e00050000000102ffffff00050000000902
000000000700000016046500a10000000000040000002701ffff030000001e00050000000102ff
ffff00050000000902000000000700000016046500a10001000100040000002701ffff03000000
1e00050000000102ffffff00050000000902000000000700000016046500a10001000100040000
002701ffff030000001e00050000000102ffffff00050000000902000000000700000016046500
a100010001001c000000fb02f1ff0000000000009001000000000000002043616c696272690000
0000000000000000000000000000000000000000000000040000002d0103000400000002010100
09000000320a02004700010000003100070009000000320a020097000100000036000700090000
00320a16004700010000003200070009000000320a16009700010000003700070009000000320a
2a004700010000003300070009000000320a2a009700010000003800070009000000320a3e0047
00010000003400070009000000320a3e009700010000003900070009000000320a520047000100
0000350007000a000000320a5200900002000000313007000700040000002d0100000400000027
01ffff030000001e00040000002d010300050000000102ffffff00050000000902000000000700
000016046500a1000000000007000000fc020000d4d4d4000000040000002d0104000500000009
02d4d4d400050000000102d4d4d40008000000fa02000000000000d4d4d400040000002d010500
050000001402000000000500000013020000a00008000000fa0200000100000000000000040000
002d0106000c00000040092100f0000000000000000100a00000000000040000002d0105000500
00001402140000000500000013021400a000040000002d0106000c00000040092100f000000000
0000000100a00014000000040000002d010500050000001402280000000500000013022800a000
040000002d0106000c00000040092100f0000000000000000100a00028000000040000002d0105
000500000014023c0000000500000013023c00a000040000002d0106000c00000040092100f000
0000000000000100a0003c000000040000002d0105000500000014025000000005000000130250
00a000040000002d0106000c00000040092100f0000000000000000100a0005000000004000000
2d010500050000001402640000000500000013026400a000040000002d0106000c000000400921
00f0000000000000000100a00064000000040000002d0105000500000014020000000005000000
130265000000040000002d0106000c00000040092100f000000000000000650001000000000004
0000002d0105000500000014020000500005000000130265005000040000002d0106000c000000
40092100f0000000000000006500010000005000040000002d0105000500000014020000a00005
00000013026500a000040000002d0106000c00000040092100f000000000000000650001000000
a00007000000fc020000000000000000040000002d010700040000002d010000040000002701ff
ff030000001e00040000002d010300050000000102d4d4d400050000000902d4d4d40007000000
16046500a100010001000700000016046500a10001000100040000002d010300050000000902d4
d4d400050000000102d4d4d4000400000002010200040000002e0100000400000004010d000400
00002d010100040000002d010200050000000902d4d4d400050000000102d4d4d400040000002d
010300040000002d010200040000002d010100040000002d010300050000000902d4d4d4000500
00000102d4d4d4000400000002010200040000002e0100000400000004010d00040000002d0100
00040000002701ffff030000001e00040000002d010300050000000102d4d4d400050000000902
d4d4d400040000002701ffff030000000000
}\fs17 
\par }

La même image insérée dans l'ERP depuis un PC Win10 Creators Update :

Code :

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

1
2
3
4
5
6
{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}
\viewkind4\uc1\pard\f0\fs17{\pict\wmetafile8\picw4260\pich2672\picwgoal2415\pichgoal1515 
010009000003200000000000050000000000050000000b0200000000050000000c02700aa41003
0000001e00030000001e000400000027010100030000000000
}\fs17 
\par }

Il est clair que l'image blanche ne contient rien, comme si une conversion s'était mal déroulée, ou que le presse papier Excel avait changé... Bref, je n'y comprends rien !

Voilà ou j'en suis pour l'instant. Je vais installer la mise à jour sur un deuxième PC pour isoler l'hypothèse que le problème dépend d'une configuration matériel spécifique, ou d'un driver problématique.

Merci.


EDIT : Le problème est visible sur le deuxième PC mis à jour, la maj Creator Update est donc bien responsable, reste à savoir pourquoi ...

[vinc_bilb]

et juste pour voir, essayez de rajouter un wait dans votre procédure? Ou un Do Events

[eriiic]

Bonjour,

à tenter : la suppression de tous les .exd (version des bibliothèques de contrôle mises en cache), ils seront recréés tous neufs à l'ouverture d'excel.
Del c:\*.EXD /s
eric