Discussion :

[dfram]

* 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

[Harry Covair]

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 :

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
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

[kiki29]

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

[dfram]

Bonjour,
v...

Pas tant que ça!

[Harry Covair]

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