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