XL 2016 VBA Windows Image Acquisition & fichiers RAW

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #2

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

 

Dernière édition: 26 Avril 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #3

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #4

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #5

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #6

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

 

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #7

T'en sais des choses ! Impressionnant.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #8

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #9

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #10

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #11

Yes, of course !

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #12

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #13

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

VB:

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #14

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

VB:

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

 

Pièces jointes

• 1619427003270.png

  1.6 KB · Affichages: 11

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #15

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

 

Vote positif 0 Vote négatif