date prise de vue - détail dans propriété - pour VBA

* Bonjour *

Quelqu'un connait-il la méthode pour récupérer la date prise de vue dans propriété/détail d'une photo. Cet élément n'est pas modifié par copier, déplacer, etc sous explorer. Info à traiter en macro sous VBA. DateLastModified ne convient pas. Merci

Bonjour,
voici la macro que j'utilise pour récupérer ces informations
La référence Microsoft Office 14 Object Library doit être activée
C:\XXXX = nom du répertoire
compléments d'information sur:
http://technet.microsoft.com/library/ee176615.aspx

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Macro3()   Dim det_Headers(35) Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace("C:\ XXXXX") Workbooks(1).Sheets(2).Activate For i = 0 To 34 det_Headers(i) = objFolder.GetDetailsOf(objFolder.Items, i) ActiveSheet.Cells(1, i + 1) = det_Headers(i) Next Workbooks(1).Sheets(2).Activate j = 2 For Each strFileName In objFolder.Items For i = 0 To 34 Sheets(2).Cells(j, i + 1).Value = objFolder.GetDetailsOf(strFileName, i) Next j = j + 1 Next End Sub

---

Espérant qu'elle puisse aider

Harry

Salut, juste pour info la limite de 34 est repoussée bien au delà suivant le système d'exploitation Vista, W7.

Citation:

---

Envoyé par Harry Covair

Bonjour,
v...

---

Pas tant que ça!

Bonjour,
Tenant compte de la remarque de kiki29 et en remplaçant la borne 34 par 285, voici quelques unes des informations disponibles; en rouge, la date de prise de vue.
Harry

Name P1000907.JPG
Size 2,19 MB
Item type IrfanView JPG File
Date modified 3/07/2012 17:18
Date created 24/04/2012 18:06
Date accessed 17/05/2012 00:00
Perceived type Image
Owner Everyone
Kind Picture
Date taken ‎5/‎03/‎2012 ‏‎14:13
Camera model DMC-FS11
Dimensions ‪2560 x 1920‬
Camera maker Panasonic
Program name Ver.1.0
Bit depth 24
Horizontal resolution ‎180 dpi
Width ‎2560 pixels
Vertical resolution ‎180 dpi
Height ‎1920 pixels
EXIF version 221
Exposure bias ‎0 step
Exposure program Portrait Mode
Exposure time ‎1/8 sec.
F-stop f/3.7