XL 2016 VBA Windows Image Acquisition & fichiers RAW

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #16

zip moi un ".cr2"
au pire verifie si tu l'a dispo dans les reference

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #17

Excel 32. J'ai installé la DLL 64 en pensant à Windows et pas à Excel.
Dois-je passer sur la DLL 32 ?
Oui elle est dans les References.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #18

a ben voila
#post 13 c'est le 32 que tu dois prendre

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #19

Ok je vais tenter le 32 bits

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #20

et ouaip!! y en a qui picolle

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #21

A ton avis, la DLL 32 bits fonctionnerait sur une Excel 64 ?
Ou bien faudrait obligatoirement la DLL 64 bits ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #22

ben non bien évidement
tu peux installer les deux si tu veux tu aura deux fois la référence dans la liste des ref il faudra tester la quelle est la bonne pour toi
mais si tu a excel 32 pourquoi voudrais tu installer la 64 ??
même l'application exe en 32 fonctionne sur W64 c'est donc pas utile

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #23

Ça m'énerve, je n'y arrive pas !!!!!!!!
J'ai dé-référencé la Reference, installé la DLL 32 bit qui est maintenant dans Program Files (x86), re-référencé e ça plante.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #24

arrete d'installer que la dll installe la version 32 que je te donne dans le post 13
au pire tu supprime le dossier dans progamfile(x86) après si tu ne veux pas garder l'application
essaie en late binding

VB:

Sub a()
    Dim Source As String
    Dim Destination As String
    Source = "H:\Téléchargements\xxx.cr2"
    Destination = "H:\Téléchargements\xxx.jpg"
    Set img = CreateObject("ImageMagickObject.MagickImage.1")
    img.Convert Source, Destination
End Sub

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #25

Sur la page https://imagemagick.org/script/download.php#windows
J'ai installé ->
Ça marche avec ton instruction (je sais pas où tu as chopé ce qui est entre quotes !)

VB:

 Set img = CreateObject("ImageMagickObject.MagickImage.1")

Je pense que je vais m'en sortir, mais sans toi je n'y serais pas arrivé.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #26

a ben moi si je cherche pour excel je cherche pour 32 bits et je tombe pas sur sur qui est recommandé pour 64

en late binding(createobject.......) tu vois tout de suite si ta ref est bonne
si elle ne l'ai pas tu a le message
"un object activx ne peut pas créer un activx "
voili voilou

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #27

Alors c'est bon tu converti
est ce que tu veux que je te fasse un exemple vbs dynamique pour faire en serie

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Avril 2021

• #28

Oui, je convertis.
Non pas en série car la conversion doit être synchrone.
Mais envoie un exemple quand même, je ne sais pas ce que tu entends pas "vbs dynamique".

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #29

re
un vbs dynamique
tu en céee un seul et tu l'appel autant de fois que nécessaire
chaque instance est exécutée séparément
engros chaque instance est enclenchée quasiment simultanément
une fois la boucle d'apel vba terminée vba est libéré les instances du vbs font leur boulot des la première instance lancée
quand tu a des grosse serie ca a son avantage et sur tout comme vba est gourmand en mémoire il n'est pas dit qu'au bout de x conversion bing!! out of memory capout !! walouh!! walouh!!!
et c'est beaucoup plus rapide

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Avril 2021

• #30

alors regarde bien @Dudu2 ça va très vite

VB:

Sub test()
    Dim code$, Scripts$, fichier$, x&, dossier$
    'le code du vbs
    code = "Set img = CreateObject(""ImageMagickObject.MagickImage.1"")" & vbCrLf
    code = code & "img.Convert wscript.arguments(0), wscript.arguments(1)"

    ' creation du fichier vbs
    fichier = ThisWorkbook.Path & "\convertSerie.vbs"
    x = FreeFile
    Open fichier For Output As #x: Print #x, code: Close #x

    'raccourci a utiliser avec wscript.shell
    Scripts = """" & fichier & """ "
    'dossier contenant les fichiers a convertir
    dossier = "H:\fond_d_ecran\animaux\"

    With CreateObject("WScript.Shell")
        itemvu = Dir(dossier & "\*.jpg")
        Do While itemvu <> ""    'boucle  dir sur fichier

            Source = dossier & "\" & itemvu
            Destination = Replace(Source, ".jpg", ".png")

            ' run avec plusieurs arguments exemple  (.Run scripts i, " " & "toto" & " titi"
            .Run Scripts & " " & Source & " """ & Destination & """  "
            itemvu = Dir
        Loop
    End With
    'si tu veux supprimer le vbs dynamique a la fin
    'Do While Dir(Destination) = "": DoEvents: Loop
        'Kill fichier 'supprime le vbs dynamique
End Sub

a oui ca fait peur hein

 

Dernière édition: 26 Avril 2021

Vote positif 0 Vote négatif