Bonjour,
malgré les géniaux tutos de l'auteur de ClGdiPlus, je n'arrive pas à modifier les tags Exif de photos jpeg.
J'arrive à lire parfaitement tous les tags, mais en aucun cas à en modifier certains.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
' Déclaration de la classe
Dim clGdip As New ClGdiPlus
 
Sub EcritureDate()
TFichier = "C:\Tmp\100_2715.jpg"
' Ouverture du nouveau fichier
    clGdip.OpenFile TFichier
' Description
    EImageDescription = clGdip.GetExifData(TagImageDescription)
' Date
    EDateTimeOriginal = _
        Format(clGdip.GetExifData(TagDateTimeOriginal), "d mmmm yyyy" & vbCrLf & "hh:nn:ss")
    MsgBox EImageDescription & "  " & EDateTimeOriginal
' Mise à jour de la description
    EImageDescription = "essai nouvelle description"
    clGdip.SetExifData TagImageDescription, EImageDescription
' Mise à jour de la date
    clGdip.SetExifData TagDateTimeOriginal, DateSerial(2000, 1, 1) + TimeSerial(0, 0, 1)
' Sauvegarde
    If TFichier <> "" Then
        clGdip.SaveJpegLossLess TFichier
    End If
    clGdip.CloseFile
    If Not clGdip Is Nothing Then Set clGdip = Nothing
End Sub

J'ai suivi pas à pas ce que fait la procédure dans la classe et je ne trouve pas d'erreur.
Quelqu'un aurait-il une idée ? Merci d'avance.