Données exif spécifiques au domaine de la photo

[Tongai]

Bonjour à tous

Les exifs des fichiers Jpeg comportent de nombreuses informations spécifiques à la photo comme par exemple : Appareil photo, Objectif, Focale, Ouverture, Vitesse, ISO, Flash ... et cela va bien plus loin que cela.

=> Je cherche à scanner mes milliers de photos et à me creer une base de données exif sous excel

Au cours de mes recherches sur le sujet, j'ai trouvé :
- une macro qui convient parfaitement sur le principe mais qui ne donne pas les exifs recherchés (seuls 2 ou 3 correspondent au domaine de la photo) : https://www.excel-downloads.com/threads/exif-iptc-les-lire-les-ecrire.126856/
- une référence à un module de classe qui utilise la librairie Gdi+ de Microsoft (je me débrouille dans les modules, mais les modules de classe dépassent mes compétences actuelles : je ne sais même pas comment l'utiliser) : Documentation de la classe ClEXIF

=> quelqu'un a-t-il une piste pour m'aiguiller svp ?
D'avance merci

 

[kiki29]

Re : Données exif spécifiques au domaine de la photo

Salut,peut-être via Utiliser la librairie Windows Image Acquisition en VBA
mais plutôt, même si c'est pour Access : Tutoriel Exif

 

[Tongai]

Re : Données exif spécifiques au domaine de la photo

Bonjour et merci de ta réponse

Tes 2 derniers liens correspondent effectivemùent au résultat de mes recherches que j'affiche ci-dessus
Quant au premier, il permet d'éditer des images

=> je voudrais simplement créer une base de données
=> peut-être que tout est dans le module de classe que je cite, mais je ne sais pas l'utiliser ...

 

[kiki29]

Re : Données exif spécifiques au domaine de la photo

re,aargh effectivement, sinon Google ou
Google

Le tuto Access est suffisamment explicite, comme tu parles de Base de données Access est plus approprié.

 

[Tongai]

Re : Données exif spécifiques au domaine de la photo

Yes, mais j'ai moins de 65000 photos et je n'ai pas access : c'est bien excel qui m'intéresse...

 

[MJ13]

Re : Données exif spécifiques au domaine de la photo

Bonjour Tongaï, Kiki

Regarde dans cette discussion, j'utilise la Wiaaut.Dll (Windows Image Acquisition2).

https://www.excel-downloads.com/thr...-suppression-photos-mouton-a-5-pattes.154875/

A voir si c'est adaptable

 

[kiki29]

Re : Données exif spécifiques au domaine de la photo

Salut, il y a un exemple Excel zippé Excel_EXIF.zip sur ..... , à voir

PS : comme cela MJ tu seras content ...

 

[MJ13]

Re : Données exif spécifiques au domaine de la photo

Re

Salut, il y a un exemple Excel zippé sur Sources Visual Basic pour Applications , à voir

Ah, merci Kiki, très bien et comme d'habitude, merci à MichelXLD .

Et en plus cela faisait longtemps que je le cherchai .

 

[Tongai]

Re : Données exif spécifiques au domaine de la photo

Merci pour ces éléments et pour le temps que vous consacrez à la question.

J'ai suivi la manip', sur les 2 topics
- Sur le premier fil : le fichier DVP_exif.xls (avec la mosaique) ne me donne que le nom des fichiers et la date des clichés (colonnes B et C)
- Sur le deuxième fil, le fichier WIA_Image_Excel.xls ne peut pas ouvrir de photo : j'ai un message d'erreur (un composant activeX ne peut pas créer d'objet)

 

[MJ13]

Re : Données exif spécifiques au domaine de la photo

Re

sinon essaye ça:


https://www.excel-downloads.com/thr...-suppression-photos-mouton-a-5-pattes.154875/

Mais il faut tester ceci avant:

https://www.excel-downloads.com/thr...-suppression-photos-mouton-a-5-pattes.154875/

Puis ajoute ce qui est écrit dans les tutos, ça doit pas être compliqué, je regarderai cela en juillet .

 

[kiki29]

Re : Données exif spécifiques au domaine de la photo

TONGAI : re, Intellisense n'est pas fait pour rien , ce fichier tu peux le compléter comme tu le veux

 

[kiki29]

Re : Données exif spécifiques au domaine de la photo

Re,
Source : Arkham46 sur un forum voisin
Le lien est donné en tête dans le module de classe clExif
Qqs modifs :
Suppression d'une feuille cachée inutile
Modif code VBA avec CodeName Feuille
Gestion d'erreur sur clic image vide
Ajout sauvegarde dans fichier INI de qqs paramètres
qui seront ainsi préservés à la prochaine ouverture
Ajout de qqs propriétés
Ajout option Recherche récursive pour FileSearch
Ajout de la possibilité d'Effacer ou non la feuille " Liste" de son contenu quand on "Extrait la liste"
A Faire :
Suppression FileSearch car non disponible à partir de 2007

Dernière MAJ : 11 Mai 2011

 

[Tongai]

Re : Données exif spécifiques au domaine de la photo

Bonjour kiki29.

Un grand merci pour le temps passé sur le sujet.
Je découvre des terrains inconnus jusqu'alors (librairies Microsoft, modules de classe)
=> j'ai visiblement un paquet de choses à apprendre en VBA
=> La qualité et la réactivité des intervenants du forum m'étonnera toujours !

A court terme sur les données Exif, tes imputs et ton fichier sont même au delà de mes attentes, et j'ai vu où et comment adapter/compléter les données à mes besoins dans ta boucle

Encore merci et bravo !

 

[MJ13]

Re : Données exif spécifiques au domaine de la photo

Re

Bon comme le fichier de Kiki me paraît complexe , j'ai repris le code de MichelXLD et on pourrait faire de choses sympas, mais cela paraît quand même pas simple. Je verrai cela plus tard .

Voici le code qui me paraît le plus intéressant:

Sub ExifTag()
'MichelXLD http://silkyroad.developpez.com/VBA/WindowsImageAcquisition/#LII-A-1-e
'Dans le VBE, allez en mode pas à pas en faisant Ctrl+G pour voir la fenêtre éxécution du Debug
 Dim Img As ImageFile
    Dim P As Property
    Dim S As String
    
    'Création conteneur pour l'image à manipuler
    Set Img = CreateObject("WIA.imageFile")
    
    'Chargement de l'image dans le conteneur
    Img.LoadFile ("C:\test.jpg")
    
    'Boucle sur la collection de propriétés
    For Each P In Img.Properties
        S = P.Name & "(" & P.PropertyID & ") = "
        If P.IsVector Then
            S = S & " - vector data not emitted - "
            
            ElseIf P.Type = RationalImagePropertyType Then
            S = S & P.Value.Numerator & "/" & P.Value.Denominator
            
            ElseIf P.Type = StringImagePropertyType Then
            S = S & """" & P.Value & """"
            
            Else
            S = S & P.Value
        End If
        Debug.Print S
    Next
End Sub

 

[Tongai]

Re : Données exif spécifiques au domaine de la photo

Merci MJ13,
Quand je lance la macro, elle plante dès la première ligne sur mon poste (Type non défini) : il doit me manquer des déclarations / modules (c'est au delà de mes maigres compétences qui ne vont jamais taper dans les outils microsoft)

=> Pourrais-tu stp zipper un fichier Excel auto-suffisant stp ?

D'avance merci