Microsoft 365 Exifs photos (extractions de données)

Elisa-69 · 5 Septembre 2022

Bonjour,

Je suis à la recherche d'aide sur l'extraction d'informations de photos sur Excel.

Ce n'est pas par rapport au domaine de la photographie mais plus pour me créer une petite base de données par rapport à des photos prises sur des chantiers pour un suivi. Ce ne sont que des photos prises avec des smartphones, je n'aurais besoin que d'info comme qui a pris la photo, où la photo a été prise (ville/région, coordonnées géographique avec liens google maps) et à quelle date.

J'ai réussi à trouver un document Excel sur une ancienne conversation qui justement traite des données GPS + liens google mais une fois la photo "entrée" dans le document elle apparait comme introuvable lors de la réouverture de celui-ci (après enregistrement et sans avoir bougé ou supprimé la photo de mon ordinateur).
J'ai joints le fichier su ça peut vous aider à comprendre.

Je n'ai pas les compétences pour modifier le document en question, après plusieurs échecs. Et j'ai beaucoup de mal à trouver en ligne des vidéos ou conseils sur les codes et leur rédaction (sur le sujet d'extraction des exifs)

Je prends le moindre conseil avec plaisir. Merci d'avance pour le temps accordé à la lecture de mon problème

AtTheOne · 12 Septembre 2022

Bonjour @toutes & à tous, bonjour @Elisa-69
Effectivement comme le dit @gbinforme, ton problème de lien rompu vient du fait que l'on supprime le fichier temporaire après la syntaxe .Pictures.Insert.
Si ne pas supprimer le fichier temporaire semble être une solution, c'est quand même dommage de conserver des fichiers temporaires.
J'ai tâtonné pour te proposer une solution :
Sous Excel 2007 il suffit de mettre à blanc la propriété AlternativeText pour régler le problème.
Dans office 2021 (ou 365) cela ne fonctionne pas et je n'ai pas trouvé comment éviter (en VBA) la liaison.
J'ai donc substitué à cette syntaxe la suivante : .Shapes.AddPicture qui permet de ne pas lier la forme au fichier.
Je me suis...

gbinforme · 9 Septembre 2022

une fois la photo "entrée" dans le document elle apparait comme introuvable lors de la réouverture

Bonjour,
Pour insérer ta photo dans la procédure "compression" tu la mets dans le répertoire "C :\tmp_img\" puis une fois affichée tu supprimes le fichier du répertoire : c'est donc normal qu'elle ne s'affiche plus.
En supprimant ce passage sur ce répertoire cela devrait fonctionner.

AtTheOne · 12 Septembre 2022

Bonjour @toutes & à tous, bonjour @Elisa-69
Effectivement comme le dit @gbinforme, ton problème de lien rompu vient du fait que l'on supprime le fichier temporaire après la syntaxe .Pictures.Insert.
Si ne pas supprimer le fichier temporaire semble être une solution, c'est quand même dommage de conserver des fichiers temporaires.
J'ai tâtonné pour te proposer une solution :
Sous Excel 2007 il suffit de mettre à blanc la propriété AlternativeText pour régler le problème.
Dans office 2021 (ou 365) cela ne fonctionne pas et je n'ai pas trouvé comment éviter (en VBA) la liaison.
J'ai donc substitué à cette syntaxe la suivante : .Shapes.AddPicture qui permet de ne pas lier la forme au fichier.
Je me suis basé sur ta pièce jointe pour te proposer une réponse plus complète :

J'ai repris ses fonctionnalités (clic sur la miniature pour afficher la photo dans un Userform, Lien vers Google Maps)
J'ai commenté mon code pour faciliter son appropriation.
J'ai placé toutes les informations dans un tableau structuré "tb_Photos".
J'ai géré l'orientation de l'appareil lors de la prise de vue (pour éviter une mauvaise orientation de la miniature et de la vue dans le Userform).
J'ai ajouté l'affichage de la date du cliché et de l'auteur.
J'ai ajouté une macro pour supprimer des ligne (avec sa miniature)

Pour info des docs que j'ai utilisé
La Spécification EXIF : http://www.cipa.jp/std/documents/e/DC-008-2012_E.pdf
Doc Microsoft sur WIA : https://docs.microsoft.com/en-us/previous-versions/windows/desktop/wiaaut/-wiaaut-imageprocess

Si l'un des posts que tu reçois répond à tes attentes, pense à le marquer en tant que solution à ta demande.

Voir la pièce jointe
Bon courage
Amicalement
Alain

Elisa-69 · 12 Septembre 2022

Bonjour @gbinforme & @AtTheOne,

Je vous remercie pour vos réponses rapides et surtout très efficaces quant à mon problème. Merci aussi pour la clarté de vos explications, n'étant pas très calée sur le sujet, elles me sont accessibles.

Merci pour vos réponses et recherches. C'est exactement les solutions dont j'avais besoin!
Au plaisir

dcear · 14 Janvier 2023

Bonjour AtTheOne, je vous remercie pour la clarté de xlsm , j'ai globalement compris votre code , j'ai souhaité le modifier pour extraire d'autres données , mais j'avoue qu'après quelques heures.... je sèche.
Si j'ai bien pu extraire les données du tag "Copyright".... beaucoup d'autres me sont inaccessible.s. (ex Model ,Software) ai je raté quelques choses ? en vous remerciant par avance.

AtTheOne · 14 Janvier 2023

dcear à dit:
Bonjour AtTheOne, je vous remercie pour la clarté de xlsm , j'ai globalement compris votre code , j'ai souhaité le modifier pour extraire d'autres données , mais j'avoue qu'après quelques heures.... je sèche.
Si j'ai bien pu extraire les données du tag "Copyright".... beaucoup d'autres me sont inaccessible.s. (ex Model ,Software) ai je raté quelques choses ? en vous remerciant par avance.

Bonjour à toutes & à tous, bonjour @dcear,
Je réponds de mon téléphone,
Je regarderai ta demande la semaine prochaine, là je ne suis pas disponible...
Amicalement
Alain

dcear · 14 Janvier 2023

AtTheOne à dit:
Bonjour à toutes & à tous, bonjour @dcear,
Je réponds de mon téléphone,
Je regarderai ta demande la semaine prochaine, là je ne suis pas disponible...
Amicalement
Alain

re-Bonjour Alain
Pas de soucis , il n'y a aucune urgence.
Merci d'avance
cordialement
Didier

AtTheOne · 15 Janvier 2023

Bonsoir à toutes & à tous, bonsoir @dcear
Tout compte fait, j'ai trouvé un trou ...

dcear à dit:
Si j'ai bien pu extraire les données du tag "Copyright".... beaucoup d'autres me sont inaccessible.s. (ex Model ,Software) ai je raté quelques choses ?

Il faut utiliser le nom exact des propriétés, et elles ne sont pas toujours présentes dans le fichier :

EquipMake : le fabricant de l'appareil
EquipModel : Le modèle de l'appareil
SoftwareUsed : le firmware de l'appareil ou le logiciel à l'origine de l'image
etc

J'ai ajouté un feuille et une macro (clic sur le bouton) à mon fichier pour que tu puisses scruter les propriétés dont tu disposes (avec un exemple d'extraction).
Amicalement
Alain

dcear · 15 Janvier 2023

Merci Alain, pour l'énergie et la passion à résoudre cette question .

AtTheOne à dit:
Il faut utiliser le nom exact des propriétés, et elles ne sont pas toujours présentes dans le fichier :

EquipMake : le fabricant de l'appareil

EquipModel : Le modèle de l'appareil

SoftwareUsed : le firmware de l'appareil ou le logiciel à l'origine de l'image

etc

Les données sont bien présentes dans le fichier .jpg mais il me semble (à vérifier) que Wia automation ne prends en compte que certaines informations (P.name de Img.Properties) lors du chargement du fichier image.

Donc je me dirige plutôt vers l'idée d'une extraction des données exif (iptc xmp) avec ExifTool (csv--> réintégration xlsm).

cordialement
Didier

AtTheOne · 15 Janvier 2023

Bonsoir à toutes & à tous, bonsoir @dcear

dcear à dit:
il me semble (à vérifier) que Wia automation ne prends en compte que certaines informations (P.name de Img.Properties)

As tu regardé le fichier joint et testé l'extraction de toutes les propriétés ?

Car dans mon exemple (avec un SONY RX10M4) j'ai bien les propriétés recherchées et une foule d'autres dont certaines ne sont pas nommées (ex 34864, 34866 etc.)
(Id avec un panasonic FZ20, mon téléphone Samsung et celui de ma compagne) :

Nom de la propriété	Type	Valeurs...
ImageDescription	String
EquipMake	String	SONY
EquipModel	String	DSC-RX10M4
Orientation	Integer	1
XResolution	IRational	350	1	350
YResolution	IRational	350	1	350
ResolutionUnit	Integer	2
SoftwareUsed	String	DSC-RX10M4 v2.00
DateTime	String	2022:08:29 10:20:06
Artist	String	AtTheOne
YCbCrPositioning	Integer	2
Copyright	String
ExifExposureTime	IRational	1	40	0,025
ExifFNumber	IRational	28	10	2,8
ExifExposureProg	Integer	2
ExifISOSpeed	Integer	100
34864	Integer	2
34866	Long	100
ExifVer	IVector	4	Byte	48	Byte	50	Byte	51	...
ExifDTOrig	String	2022:08:29 10:20:06
ExifDTDigitized	String	2022:08:29 10:20:06
36880	String	+02:00
36881	String	+02:00
36882	String	+02:00
ExifCompConfig	IVector	4	Byte	1	Byte	2	Byte	3	...
ExifCompBPP	IRational	5	1	5
ExifBrightness	IRational	9984	2560	3,9
ExifExposureBias	IRational	0	10	0
ExifMaxAperture	IRational	760	256	2,96875
ExifMeteringMode	Integer	5
ExifLightSource	Integer	0
ExifFlash	Integer	16
ExifFocalLength	IRational	1103	100	11,03
ExifMakerNote	IVector	33518	Byte	83	Byte	79	Byte	78	...
ExifUserComment	IVector	64	Byte	0	Byte	0	Byte	0	...
ExifFPXVer	IVector	4	Byte	48	Byte	49	Byte	48	...
ExifColorSpace	Integer	1
ExifPixXDim	Long	5472
ExifPixYDim	Long	3648
20545	String	R98
20546	IVector	4	Byte	48	Byte	49	Byte	48	...
ExifFileSource	Byte	3
ExifSceneType	Byte	1
41985	Integer	0
41986	Integer	0
41987	Integer	0
41988	IRational	16	16	1
41989	Integer	30
41990	Integer	0
41992	Integer	0
41993	Integer	0
41994	Integer	0
42034	IVector	4	IRational	880	100	8,8	IRational	22000	...
GpsVer	IVector	4	Byte	2	Byte	3	Byte	0	...
GpsLatitudeRef	String	N
GpsLatitude	IVector	3	IRational	48	1	48	IRational	8	...
GpsLongitudeRef	String	E
GpsLongitude	IVector	3	IRational	7	1	7	IRational	0	...
GpsGpsTime	IVector	3	IRational	8	1	8	IRational	19	...
GpsGpsStatus	String	A
GpsGpsMeasureMode	String	2
GpsMapDatum	String	WGS-84
29	String	2022:08:29
30	Integer	0
50341	IVector	28	Byte	80	Byte	114	Byte	105	...
ThumbnailData	IVector	10036	Byte	255	Byte	216	Byte	255	...
ThumbnailCompression	Integer	6
ThumbnailImageDescription	String
ThumbnailEquipMake	String	SONY
ThumbnailEquipModel	String	DSC-RX10M4
ThumbnailOrientation	Integer	1
ThumbnailResolutionX	IRational	72	1	72
ThumbnailResolutionY	IRational	72	1	72
ThumbnailResolutionUnit	Integer	2
ThumbnailSoftwareUsed	String	DSC-RX10M4 v2.00
ThumbnailDateTime	String	2022:08:29 10:20:06
ThumbnailArtist	String	AtTheOne
JPEGInterFormat	Long	35132
JPEGInterLength	Long	10036
ThumbnailYCbCrPositioning	Integer	2
ThumbnailCopyRight	String
ChrominanceTable	IVector	64	Integer	1	Integer	1	Integer	1	...
LuminanceTable	IVector	64	Integer	1	Integer	1	Integer	1	...

Mais si ta solution alternative te convient, pas de problème ...

Amicalement
Alain

dcear · 16 Janvier 2023

Bien le bonjour à tous et toutes

Merci Alain pour votre alerte -->

AtTheOne à dit:
As tu regardé le fichier joint et testé l'extraction de toutes les propriétés ?

J'avais bien étudié l'ensemble de l'extraction des données EXIF sur les photos que je souhaitais traitées , certaines données n'étaient pas visibles et OUI parfois la photo était en cause.... d'autres fois Non car la photo possédait bien le contenu du tag dont j'avais besoin.

Je reste perplexe, je n'arrive pas à dégager une idée claire du pourquoi certaines données n'apparaissent pas via la macro excel (qui n'est pas en cause !!!) que vous fournissez.

En Lien , une mise à jour des specs exif
https://web.archive.org/web/2019062...std/documents/e/DC-008-Translation-2019-E.pdf

idem
https://www.cipa.jp/std/documents/download_e.html?DC-008-Translation-2019-E

+ une extraction de données exif de 4 photos (après géoréférencement)

Encore merci , pour votre Macro qui est particulièrement efficace et utile.

cordialement

Didier

AtTheOne · 16 Janvier 2023

Bonjour @dcear et merci pour le retour

Microsoft 365 Exifs photos (extractions de données)

Elisa-69

XLDnaute Nouveau

Pièces jointes

AtTheOne

gbinforme

XLDnaute Impliqué

Pièces jointes

AtTheOne

XLDnaute Accro

Pièces jointes

Elisa-69

XLDnaute Nouveau

dcear

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

dcear

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

Pièces jointes

dcear

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

dcear

XLDnaute Nouveau

Pièces jointes

AtTheOne

XLDnaute Accro

Discussions similaires