XL 2016 VBA Windows Image Acquisition & fichiers RAW

[Dudu2]

Bonjour les Excellents

Sur Windows 7 j'utilise la VBA Reference Microsoft Windows Image Acquisition Library V2.0 pour convertir des images sur la base de ces exemples très bien faits.

vba wia | DEVelopers HUT

www.devhut.net

Pour des formats d'images "classiques" BMP, GIF, JPEG, PNG, TIFF tout se passe bien.

Dès lors que l'image à convertir est un format RAW d'un fabriquant (.cr2 ou .cr3 pour Canon, .arw pour Nikon, etc...) ça plante.
Dans Windows 7 ça semble normal car les Codecs de ces formats ne sont pas intégrés. Par exemple les Thumbnails de ces images RAW ne s'affichent pas dans l'explorateur Windows.
Dans Windows 10, alors que l'explorateur Windows les affiche, et donc que Windows connait les Codecs, ça plante aussi !

Un point de départ ? https://docs.microsoft.com/en-us/windows/win32/wia/-wia-startpage

J'aimerais:
- d'une part que des Excellents ayant Windows 10 et un Canon ou Nikon essaient d'utiliser le fichier joint pour essayer des conversions de RAW en JPEG et indiquer le résultat obtenu,
- d'autre part que si des Excellents ont eu à faire face à cette problématique qu'ils donnent leurs points de vue.

Merci par avance.

 

[patricktoulon]

Bonjour @Dudu2
WIA ne prend pas en charge les fichiers Raw me semble t il d'aussi loin que je me souvienne
ne pas confondre acquisition et traitement
alors en effet avec wia tu peux prendre une photo d'une camera ou appareil photo moyennant les drivers de celui ci ,mais mais l’acquisition se fait direct dans un des 5 formats que gere WIA

 

[patricktoulon]

re
télécharge pixillionconvertisseur il est gratuit et fonctionne très bien et fait plein d'autre chose aussi

 

[patricktoulon]

tu a gimp 2.0.8 aussi qui est un gratuiciel et qui gère les raw plus particulièrement les .cr2
c'est celui que j'utilise le plus souvent

 

[Dudu2]

Bonjour @patricktoulon,
Merci pour ton retour.
Je veux bien utiliser Pixillion ou The Gimp mais ce sont des logiciels avec une interface graphique.
Si je veux les utiliser comme convertisseur de formats dans Excel il faut qu'ils disposent d'un fonctionnement en ligne de commande.

 

[patricktoulon]

gimp fonctionne en ligne de commande mais le script des commande est en sheme c'est assez compliqué en fait
sinon tu a imagemagik qui fonctionne bien en ligne de commande aussi et c'est moins compliqué que les scriptFu de gimp

 

[Dudu2]

T'en sais des choses ! Impressionnant.

 

[patricktoulon]

je travaille beaucoup avec gimp il est impressionnant de toute ses possibilités
il est assez complexe aussi c'est le revers de la médaille
en graphique il est lourd aussi vu que c'est en fait plusieurs petite app qui s'ouvre sans parler des scriptFU quand tu en fait des dizaine il faut qu'il les charge tous
perso pour moi c'est un sérieux concurrent a photo shop et il est gratuit ce qui ne gache rien
en gros c'est le VLC de la photo et image

 

[Dudu2]

Ok c'est super. Il y a une DLL qu'on peut inclure dans les références du VBA et exécuter des fonctions comme on lancerait une ligne de commande !

How to use ImageMagick

Firstly, make sure you have ImageMagick installed, and that you registered the COM interface during installation. If you want to edit PDF's, you MUST install ghost script as ImageMagick shells out part of the work to that. ☀https://www.ghostscript.com/ Select References from the Tools menu...

vb.fandom.com

 

[patricktoulon]

a ben oui il faut télécharger la dll dont tu a besoins pour ton system , l'exe ne suffit pas bien sur

 

[Dudu2]

Yes, of course !

Merci mon @patricktoulon.
Tu as résolu un problème complexe.

 

[patricktoulon]

ben pas si complexe que cela en fait
il suffit de le savoir
après pour être honnête je ne l'ai pas exploité beaucoup imagemagik tu me diras ton avis
peut être faire une petit tuto ça peut servir au autres

 

[patricktoulon]

re
attention @Dudu2
pour ceux qui tourne sur un excel 32 bits il faut installer le com 32
sinon le com n'est pas dispo dans les librairies pour excel 32

64 bits
ImageMagick-7.0.11-9-Q16-x64-static.exe

32 bits
imagemagick-16bits_7-0-11-8_fr_12555_32.exe

après c'est simple

Sub Convertimg()
Dim Source As String
Dim Destination As String
Source = "H:\fond_d_ecran\animaux\cheval1.jpg"
Destination = "H:\fond_d_ecran\animaux\cheval1 convertie.png"
Set img = CreateObject("ImageMagickObject.MagickImage.1")
img.Convert Source, Destination
End Sub

bon c'est moins lourd pour vba quand on le fait en ligne de commande appeler par un wscript.shell.run
sur un script vbs créer dynamiquement
ou carrément lancer la ligne de commande
dans le sens ou une fois la commande lancé vba est libéré travail fini ou pas
c'est le CMD ou vbs qui fait le boulot
pratique pour convertir en serie

 

[Dudu2]

Pour l'instant je butte sur un problème en mode DLL.

Sub a()
    Dim VarName As New MagickImage
    Dim Source As String
    Dim Destination As String
    
    Source = "H:\Téléchargements\xxx.cr2"
    Destination = "H:\Téléchargements\xxx.jpg"
    
    If Len(Dir(Destination)) > 0 Then Kill Destination
    
    Call VarName.Convert(Source, Destination)
End Sub

 

[patricktoulon]

et oui tu n'a pas installé le bon tu est en excel 32 ou 64