Microsoft 365 Exifs photos (extractions de données)

[Elisa-69]

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

 

[gbinforme]

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]

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]

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]

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]

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]

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]

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

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]

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

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]

Bonsoir à toutes & à tous, bonsoir @dcear

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]

Bien le bonjour à tous et toutes

Merci Alain pour votre alerte -->

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]

Bonjour @dcear et merci pour le retour