Extraire les données GPS de photos avec une macro Excel

**Hugues411** · 19/01/2016, 12h18

bonjour

Je recherche à extraire les données GPS de photos avec une macro sous Excel. je n'arrive pas à télécharger les éléments du tuto de Arkham46

J'arrive à extraire les données (une partie) du fichier exif de photos contenues dans un répertoire.
d'avance merci
ci-joint la macro utilisée :

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
20
21
Sub Macro1()
'
' Touche de raccourci du clavier: Ctrl+h
'Sub Macro3()
 
Dim det_Headers(600) As Variant
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("mettre le chemin du répertoire")
Workbooks(1).Sheets(1).Activate
For i = 0 To 600
 det_Headers(i) = objFolder.GetDetailsOf(objFolder.Items, i)
ActiveSheet.Cells(1, i + 1) = det_Headers(i)
Next
j = 2
For Each strFileName In objFolder.Items
 For i = 0 To 600
Sheets(1).Cells(j, i + 1).Value = objFolder.GetDetailsOf(strFileName, i)
 Next
  j = j + 1
Next
End Sub