Exif IPTC les lire les écrire?

[Sheldor]

bonjour les excelliens,
je n'ai trouvé aucun des deux mots exif ou iptc avec la fonction recherche,
je me demandais s'il était possible de lire et écrire les champs exif et iptc des images à partir d'excel.
vous me direz... pourquoi le faire à partir d'excel? et bien ça me permettrait d'utiliser des listes normalisées de noms d'espèce en latin, listes de lieux etc...
merci beaucoup
amicalement
nico

 

[Staple1600]

Re : Exif IPTC les lire les écrire?

Bonsoir


Pour lire les données EXIF

un macro de LSteph

sub LireInfosJpg()
 'Dans outil réferences cocher Microsoft Shell Controls and Automation
 
  Dim Chemin As String
  Dim myShell As Shell
  Dim myFolder As Folder
  Dim myFile As FolderItem
  Dim i As Byte, f As String, lig As Long
 
  'Indiquer le chemin du répertoire
  Chemin = "E:\Photos\Mes images"
 
  Set myShell = CreateObject("Shell.Application")
  Set myFolder = myShell.Namespace(Chemin)
  Set myFile = myFolder.Items.Item(f)
  Application.ScreenUpdating = False
  [a:ah].ClearContents
  For i = 0 To 34
    If myFolder.GetDetailsOf(myFile, i) <> "" Then _
 Cells(1, i + 1) = myFolder.GetDetailsOf(myFile, i)
  Next
  f = Dir(Chemin & "\*.jpg")
  Do While Len(f) > 0
    Set myFile = myFolder.Items.Item(f)
    lig = [a65536].End(xlUp)(2).Row
    For i = 0 To 34
      If myFolder.GetDetailsOf(myFile, i) <> "" Then _
 Cells(lig, i + 1) = myFolder.GetDetailsOf(myFile, i)
    Next
    f = Dir
  Loop
  Set myShell = Nothing
  Set myFolder = Nothing
  Set myFile = Nothing
 end sub

 

[Roland_M]

Re : Exif IPTC les lire les écrire?

bonsoir à tous

voir aussi ...

 

[Staple1600]

Re : Exif IPTC les lire les écrire?

Bonsoir Roland_M

C'est la version améliorée
de sub LireInfosJpg ton exemple non ? 😉

 

[Roland_M]

Re : Exif IPTC les lire les écrire?

salut à toi Staple,

je ne me souvient plus exactement mais c'est fort probable !?
bien souvent je garde des petits exemples que j'améliore un peu
pour rendre service sur le forum

EDIT

d'ailleurs j'en ai un fais un tout simple pour moi renommer mes photos
ci-joint

 

[Sheldor]

Re : Exif IPTC les lire les écrire?

bonjour,
m'étais absenté mille excuses pour le retard à vous remercier.
ça solutionne une partie de mon problème je vais continuer à chercher
amicalement
nico

 

[Hervé S.]

voir ma réponse complète ici : https://www.excel-downloads.com/threads/macro-pour-extraire-les-exif-photo.20028089/

 

[Hervé]

salut hervé 🙂

2009 ? joli temps de réaction. moi même étant un ours avec un temps d'hibernation très long je reste admiratif

a plus

 

[Hervé S.]

Oui, mais la discussion en lien date de janvier 2019 😀. C'est mieux, non ? En plus, c'est mon premier poste sur le forum. Donc, un premier poste, non pour poser une question, mais pour apporter une réponse.
Ah... en plus on est 2 Hervé, faudra pas confondre.

 

[Victor21]

Bonsoir, Hervé 🙂 et Bienvenue, Hervé.

Ah... en plus on est 2 Hervé, faudra pas confondre.

Pas de risque : Y'en a un avec des poils, et l'autre avec un point 😉