Discussion :

[Arkham46]

Bonjour,

Je vous propose un nouvel élément à utiliser : Extraire les Données Exif des photos

Un module de classe pour lire les données Exif des photos à l'aide de la librairie gdi+ de Microsoft.

Le fichier Excel du Zip contient un formulaire qui affiche une mosaïque de miniatures d'un répertoire. Cela permet de se rendre compte de la rapidité d'extraction des miniatures intégrées. En cliquant sur une miniature on affiche quelques unes de ses données Exif (date cliché, description, modèle d'APN) dans le cadre de droite (la description est modifiable et remplace le nom de fichier dans la mosaïque et l'extraction). Le cadre d'export en bas en droite permet de générer une liste des photos et de données Exif dans la feuille de calcul. Deux cases à cocher demandent l'affichage des images qui n'ont pas de miniature Exif intégrée. Par contre cela ralenti évidemment l'exécution et occupe plus de mémoire. N'oubliez pas d'ajouter la librairie gdi+ dans le même répertoire que le fichier Excel.



Testé sous XL2000,XL2002 Lien vers la libraire en téléchargement sur Microsoft.com.



Le tutoriel associé.

Qu'en pensez-vous ?

[josephr]

Intéressant, mais impossible de le télécharger pour l'essayer..

[Dr_Gilles]

Bonsoir Arkham46.

Comme josephr, je n'arrive pas à télécharger ton élément.
Lorsque je clique sur le gros bouton vert "Télécharger Extraire les Données Exif des photos", un nouvel onglet s'ouvre et pointe sur l'adresse "https://excel.developpez.com/telecharger/telecharger/id/2351/Extraire-les-Donnees-Exif-des-photos" puis le message d'erreur "550 No such directory." s'affiche.

Je suppose que le lien est rompu...

Cordialement.
Dr_Gilles

[Arkham46]

Bonjour,

C'est très vieux ça.
Regardez plutôt ici :
http://arkham46.developpez.com/artic...clgdiplusexif/

[JFDAccess]

Bonjour,

C'est exactement le module dont je rêvais depuis un certain temps!.
J'ai essayé de l'adapter - sans succès vu mon incompétence - pour modifier la date de prise vue problème classique lors de changement de fuseau horaire ou autre.

Que faudrait-il faire pour ajouter un module type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub EImageDescription_AfterUpdate()
    ' Mise à jour de la description
    clGdip.SetExifData TagImageDescription, EImageDescription.Value
End Sub

avec TagDateTimeOriginal et EDateTimeOriginal, une fois le champ correspondant modifiable sur le formulaire

Merci,
JF Denes

[pczt45]

Bonjour Monsieur,
j'utilise votre module de gestion EXIF sous access. Il est absolument extraordinaire. Toutefois, j'ai un gros souci avec la sauvegarde. Elle impose de désigner un fichier cible avec un dialogue lancé par "If (GetOpenFileName(StructFile)) ..."
Il semble impossible de ne pas lancer ce dialogue, qui dans mon cas est une perte de temps; je puis en effet sauver dans un folder et avec un nom standard, puis renommer (pour conserver les MAJ de l'EXIF, artiste et commentaires).
Si je donne ces valeurs comme retour de "OuvrirUnFichier", au mieux j'ai un message d'échec et dans la plupart des cas un plantage Access.
Il est donc probable que l'appel du GetOpenFileName ne fasse pas que récupérer un nom. (a cet égard, si on n'ajoute pas à la main l'extension .jpg, on a un plantage Access))
Est-il possible de faire autrement pour sauver en copie le fichier photo avec un EXIF modifié ou non?
Merci d'avance.
Bien cordialement

[pczt45]

Bonjour Monsieur,
excusez moi de me répéter, mais j'aivais fait une erreur et vous répondre a plus de chance de vous atteindre.J
J'utilise votre module de gestion EXIF sous access pour récupérer des informations (GPS) de sites de prélèvements entomologiques. Il est absolument extraordinaire.
Toutefois, j'ai un gros souci avec la sauvegarde. Elle impose de désigner un fichier cible avec un dialogue lancé par "If (GetOpenFileName(StructFile)) ...". J'ai fait plusieurs tentatives pour contourner l'ouverture du dialogue, sans succès.
Il semble en effet impossible de ne pas lancer ce dialogue, qui dans mon cas est une perte de temps; je préfère en effet sauver dans un folder et avec un nom standard, puis renommer (pour conserver les MAJ de l'EXIF, artiste et commentaires).
Si je donne ces valeurs comme retour de "OuvrirUnFichier", au mieux j'ai un message d'échec et dans la plupart des cas un plantage Access.
Il est donc probable que l'appel du GetOpenFileName ne fasse pas que récupérer un nom. (a cet égard, si on n'ajoute pas à la main l'extension .jpg, on a un plantage Access))
Est-il possible de faire autrement pour sauver en copie le fichier photo avec un EXIF modifié ou non?
Merci d'avance.
j'ai vu que vous avez posté de nouvelles possibilités, que je vais également explorer.
Bien cordialement

Bonjour,

Je vous propose un nouvel élément à utiliser : Extraire les Données Exif des photos

Un module de classe pour lire les données Exif des photos à l'aide de la librairie gdi+ de Microsoft.

Le fichier Excel du Zip contient un formulaire qui affiche une mosaïque de miniatures d'un répertoire. Cela permet de se rendre compte de la rapidité d'extraction des miniatures intégrées. En cliquant sur une miniature on affiche quelques unes de ses données Exif (date cliché, description, modèle d'APN) dans le cadre de droite (la description est modifiable et remplace le nom de fichier dans la mosaïque et l'extraction). Le cadre d'export en bas en droite permet de générer une liste des photos et de données Exif dans la feuille de calcul. Deux cases à cocher demandent l'affichage des images qui n'ont pas de miniature Exif intégrée. Par contre cela ralenti évidemment l'exécution et occupe plus de mémoire. N'oubliez pas d'ajouter la librairie gdi+ dans le même répertoire que le fichier Excel.



Testé sous XL2000,XL2002 Lien vers la libraire en téléchargement sur Microsoft.com.



Le tutoriel associé.

Qu'en pensez-vous ?

[pczt45]

Bonjour "Arkham46", dont je présume que le choix de ce nom provient de l'intérêt pour HP Lovecraft, auteur que j'apprécie également. J'ai seulement pris connaissance de votre complément que je suis en train d'examiner pour l'intégrer dans mon travail. Cela semble au premier coup d'oeil répondre à ma préoccupation .

Je vous tiendrai au courant de l'avancement, dès que je serai prêt, mais j'ai encore d'autres importantes charges en dehors du développement, donc excusez moi de ne pas vous répondre de suite.

Bien cordialement

[alea83]

Bonjour,

Avez vous eu une réponse à votre pb, le mien est d'avoir les données GPS des fichiers d'un répertoire.
Merci d'avance.