Discussion :

[titi34]

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.

[patricktoulon]

bonjour
tu utililise quelle versin de excel,

si c'est 2007 telecharge en bas du tutoriel le bon module class

si ca n'est pas le cas tu dois metre la gdiplus.dll dans le system 32 et enregistrer dans la base de registre


au plaisir

[Arkham46]

bjr,

[...] et enregistrer dans la base de registre

non non il n'y a pas besoin de l'enregistrer, ce n'est pas une dll activex

sinon, on ne peut pas directement écraser un fichier ouvert, il faut procéder en deux temps, comme ici :
http://arkham46.developpez.com/artic...us/doc/#LIII-G

à tester au préalable sur une copie des images pour être sûr du résultat !
je ne voudrais pas faire perdre des photos ...

[patricktoulon]

oupss!!!

arkham a raison pas la peine de l'enregistrer

je travaille tellement avec les apis que c'est devenu automatique chez moi


au plaisir