XL 2021 Extraction images depuis commentaire de cellule vers dossier.

[jeff1494]

Bonjour à toutes et tous;

J'ai un fichier contenant plusieurs feuilles, dont une nommée "INVENDUS" qui contient une liste d'objets.
Une ligne par objet, et en colonne 2 j'ai la description de l'objet qui contient en commentaire une photo de l'objet.

Je voudrais par macro , pour chaque ligne pouvoir extraire la photo contenue en colonne 2, et la sauvegarder dans un dossier que je nomme "JPG_INV", avec comme nom la valeur de la cellule A de la ligne, et une extension ".jpg".

Pour ce faire j'ai récupéré une macro donnée par @patricktoulon sur un autre forum dans un message dont voici le lien (message #15).
Je l'ai placé dans un module nommé "Export_Images".

J'ai juste adapté le code pour correspondre à mes besoins, à priori rien qui ne puisse changer le fonctionnement de la macro.

Le résultat de l'exécution de cette macro, est que je crée bien les images dans le répertoire défini, mais juste la première images qui est affichée comme un carré blanc dans l'explorateur de Windows.

Donc si jamais @patricktoulon passait par là, je lui serais reconnaissant de bien vouloir m'aider à comprendre pourquoi la première image reste comme un carré blanc, alors que les suivantes sont correctement créées. Mais si une autre personne a une idée du pourquoi du comment je suis preneur.

A toutes fins utiles je vous joins un exemple du fichier que j'utilise.

D'avance je remercie tous ceux ou celles qui voudront bien perdre un peu de leur temps pour m'aider.
Bonne journée à toutes et tous.

 

[jurassic pork]

Hello Patrick,
pourquoi tu ne veux pas tout charger avec le WIA ? en plus cela simplifie le code.
et pour les commentaires pourquoi tu utilises une texture alors que tu as image en possibilité :

 

[patricktoulon]

par ce que le wmf passe en loadpicture pourquoi passer par la passerelle

sur 2013 l'image est dans le menu texture c'est tout

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

 

[jurassic pork]

par ce que le wmf passe en loadpicture pourquoi passer par la passerelle

Tu dois être d'origine bretonne Patrick pour être têtu comme tu l'es 😉
Je n'ai pas regardé la vidéo (34 minutes c'est trop long pour moi)

1 - Le LoadPicture ne fonctionne pas chez moi en Excel 2016 W11 sur un petit WMF standard (23 ko) et l'image que tu nous as mis dans ton classeur c'est un emf pas un wmf.
2 - L'insertion par Texture ne fonctionne pas non plus avec l'image WMF standard (trop grande) alors que l'insertion par image fonctionne

J'invite les autres participants à cette discussion à tester chez eux et nous dire ce qu'il se passe

 

[patricktoulon]

maman etait bretonne oui 🤪 🤪🤪🤪
comment inserer en picture et non en texture avec 2013 je n'ai pas ce choix moi tu le vois dans les menu dans la video
c'est pas une question d'être têtu

 

[jurassic pork]

maman etait bretonne oui 🤪 🤪🤪🤪
comment inserer en picture et non en texture avec 2013 je n'ai pas ce choix moi tu le vois dans les menu dans la video
c'est pas une question d'être têtu

OKi mais ça limite quand même de ne pas pouvoir charger en image.
N'importe comment il semble y avoir un comportement différent suivant les versions d'Excel. Il faudrait peut-être faire plusieurs versions ou du code conditionnel suivant la version, d'ailleurs est-ce possible ?

 

[patricktoulon]

alors je l'ai fait par vba et effectiment ta couronne rentre

Sub test()
    ActiveCell.Comment.Shape.Fill.UserPicture "C:\Users\patricktoulon\Desktop\couronne.wmf"
End Sub

mais le visionage me renvoie toujours l'erreur avec loadpicture

ensuite je refait la chose avec ma couronne remastered

Sub test()
    ActiveCell.Comment.Shape.Fill.UserPicture "C:\Users\patricktoulon\Desktop\couronne1 remastered.wmf"
End Sub

et le résultat est sans appel

Alors dit moi mon garçon le quel de nous deux est le plus têtu 😉

 

[jurassic pork]

Ce que je vois c'est que tu charges des emf et que tu n'arrives pas à charger des wmf ce qui fonctionne chez moi avec WIA (prendre le couronneIS.wmf dans mon zip car le couronne.wmf est pourri) et fait tout tes essais avec Excel2016

 

[patricktoulon]

je ne charge pas des emf mais des wmf il ont la structure wmf avec olecreatepicture
si je les sauve avec seulement l'api enhmetafile oui là c'est des emf

je vais essayer le couronneS pour voir
et on est d'accord le couronne tout court est pourrie
mais quand je le reconvertie avec ma fonction XlCopypicture elle devient valable

allez je reviens j'essaie la "S"
alors :
je met la couronneS.wmf dans le commentaire

Sub test()
    ActiveCell.Comment.Shape.Fill.UserPicture "C:\Users\patricktoulon\Desktop\couronneIS.wmf"
End Sub

on tente d'abords par le load picture
résultat sans appel

allez je force l'utilisation de WIA maintenant

'If " wmf jpg " Like "* " & ListBox1.List(ListBox1.ListIndex, 3) & " *" Then
        'framevue.Image1.Picture = LoadPicture(wbk.Path & "\" & ListBox1.List(ListBox1.ListIndex, 2))
    'Else
        framevue.Image1.Picture = LoadPngPicture(wbk.Path & "\" & ListBox1.List(ListBox1.ListIndex, 2))
    'End If

là encore le résultat est sans appel

d'ailleurs même la lecture dans windows du fichier plante

 

[jurassic pork]

Bon moi je ne dis plus rien j'attend le verdict des autres participants à cette discussion 😉. Ce sera plus impartiale

 

[patricktoulon]

mon but c'est de faire quelque chose qui fonctionne chez tout le monde et pas que chez jurassic pork tu comprends
donc si je te dit que tes wmf ne sont pas bons, ils ne sont pas bons

1. oui ils rentrent dans les commentaires
2. oui tu les vois
3. mais leur extraction provoque une corruption de fichier

tandis qu'avec mes images converties avec ma fonction

1. oui elle rentrent dans les commentaires
2. oui on les vois
3. et oui elle sont exploitables en sortie d'extraction

voila voila
allez je suis obligé de partir là je reviens plus tard
si tu veux ma fonction tu me le dit y a pas de soucis je te la donne
a+ je suis préssé

 

[fanch55]

Depuis le début, Le wmf "Couronne" que j'ai chargé depuis https://www.armsandbadges.com/sample.htm est bien converti correctement par le code de @patricktoulon sur mon excel 2021/64bits . Patrick m'a signalé que chez lui cela ne fonctionnait pas .... Je ne sais plus de quelle couronne vous parlez ni de quelle version .... 🤔
Bien acceptée par Paint également
Si Patrick le met en ressource, un petit plus serait de mettre le mouse scrolling sur la listbox ..... 😁

 

[jurassic pork]

Bon j'ai fait des essais avec un Excel 2010 sous windows 7 , ce que j'ai pu observé me fait dire que :
1 - Le format WMF a évolué voici les derniers changements

12/1/2017 14.0 None No changes to the meaning, language, or formatting of the technical content.
9/12/2018 15.0 Major Significantly changed the technical content.
4/7/2021 16.0 Major Significantly changed the technical content.
6/25/2021 17.0 Major Significantly changed the technical content.

mais il y en a plein d'autres depuis 2007
suivant l'O.S et la version d'Excel on ne peut pas lire certains WMF. Il y a certains wmf qui passent quelque soit la version d'Excel (voir pièce jointe).
Le wmf a été remplacé par l'emf et ce format semble tenir dans le temps (exemple le wmf transformé en emf par Patrick)
Moralité, ne pas utilisé de wmf dans les commentaires et d'ailleurs je ne vois pas trop l'intérêt de mettre une image vectorielle dans un commentaire. Sinon mettre un emf.
2 - Mon code où je n'utilise que le WIA fonctionne sous Excel 2010 Win7 avec tous les formats d'image à partir du moment où l'on utilise pas de vrai wmf.
3 - Sous Excel 2010 je peux bien mettre une image dans les commentaires :

j'arrive bien à charger la couronne (la InkScapeSimplifiée) en image d'un commentaire mais ce sont les LoadPicture qui ne passent pas.
En pièce jointe un wmf qui passe sur tous mes Excel et une série de emf qui sont des wmf transformés en emf et qui passent sur toutes mes versions d'Excel.

 

[patricktoulon]

re

exemple le wmf transformé en emf par Patrick-

????????????????????????????????????
ou tu a vu que le transformais en emf
jusqu’à preuve du contraire copyxlpicture fait du wmf

@fanch55 le sample récupérée sur le site
on le vois bien dans le commentaire
mais apres l'export

le fichier exporté

 

[fanch55]

@fanch55 le sample récupérée sur le site
on le vois bien dans le commentaire
mais apres l'export

Sur mon système W11 et Excel 2021/64 bits, je n'ai besoin d'aucun subterfuge, je le vois directement après avoir ajouté le commentaire ...
J'utilise l'un des codes postés de notre prolifique Patrick , tel qu'il est dans le classeur joint ....

 

[patricktoulon]

@jurassic pork les emf de ton zip de ce matin passent tranquille
on a donc un soucis avec les wmf de grande taille
car quand je les colles dans mon classeur xlpicture et que je les réduit et recapture en wmf et sauve comme tel ils passent

comme j'ai pas moi le dialog pour mettre l'image dans le commentaire et que je n'ai que la possibilité de les mettre en texture
j'ai presque envie de créer un complément avec bouton dans le ruban +dialog pour insérer des images dans les commentaires mais avec convertisseur intégré PnG comme ça plus de problème

@fanch55
décidément ce module scrollroulette y va partout