Discussion :

[alea83]

Bonjour à tous,

Je me tourne à nouveau vers vous car je ne trouve pas de solutions.
Dans ma base access, j'ai le code ci-dessous pour récupérer des exif des photos d'un dossier, celui fonctionne trés bien sur certaines photos et pas sur d'autres qui sont également en jpg je ne comprends pas pourquoi.
J'ai essayé de mettre deux exemples de photos en pièces jointes sans succés.

Merci encore pour votre aide si vous avez des suggestions...

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
    Dim Chemin As String
    Dim MyFSO As Scripting.FileSystemObject
    Dim myFolder As Folder
    Dim Monfichier As Object
 
 
    Chemin = CurrentProject.Path & "\" & Me.Annee & "\" & Me.NOAffaire & "\PHOTOS\"
 
    Set MyFSO = New Scripting.FileSystemObject
    Set myFolder = MyFSO.GetFolder(Chemin)
 
    'Supprime les enregistrements existant dans ExportPhotos
    DoCmd.RunSQL "DELETE * FROM ExportPhotos"
 
    'Récupération des données EXIF
    '¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    Dim Fic As String: Dim Orient As Integer: Dim DateCl As Date: Dim lat As String: Dim Lon As String
 
    For Each Monfichier In myFolder.Files
 
        With CreateObject("WIA.ImageFile")
            .LoadFile Monfichier
            Debug.Print Monfichier
 
            Fic = Monfichier.Name
            Rep = Chemin
 
            With .Properties("GpsLatitude").Value
                'Debug.Print .Item(1).Value + .Item(2).Value / 60 + .Item(3).Value / 3600
                lat = .Item(1).Value + .Item(2).Value / 60 + .Item(3).Value / 3600
            End With
            With .Properties("GpsLongitude").Value
                Lon = .Item(1).Value + .Item(2).Value / 60 + .Item(3).Value / 3600
            End With
            Orient = .Properties("Orientation").Value
            DateCl = Replace(.Properties("DateTime"), ":", "/", 1, 2)
 
        End With
 
        Call CurrentDb.Execute("INSERT INTO ExportPhotos (Fichier, Orientation, DateCliche, Latitude, Longitude, Répertoire) VALUES ('" & Fic & "'," & Orient & ",#" & DateCl & "#,'" & lat & "','" & Lon & "','" & Rep & "')")
 
    Next Monfichier

[marot_r]

Bonjour.

Aparement il n'y a pas d'erreur évidente.
Note je suppose que tu n'as pas en dehors du code présenté un instruction On Error Resume Next qui "cache" les erreurs d'éxécution.
Je te suggère d'exécuter ton code pas à pas et pour les images "qui ne marchent pas", voir ce qu'il fait quand il récupère les propriétés.
Peut-être simplement ces images n'ont pas la propriété [CODEinline]GpsLatitude[/CODEline] et que tu obtiens une sorte de valeur par défaut.

A+

[alea83]

Bonour,

Si il y a toutes les informations et d'ailleurs cela fonctionne avec n autre outil sur excel voir image jointe..
Pour le pas à pas, il s'arrête sur .loadfile Monfichier avec le message d'erreur : Erreur d'execution '-2147024809 (80070057)':

[marot_r]

Bonjour.

Je pense que le problème vient de WIA.ImageFile.
Quand tu dis que ça marche dans Excel, est-ce que tu utilises aussi WIA.ImageFile ?
As-tu une documentation associée à cette librairie ?
Est-ce que les images qui plantent ont une caractéristique particulière (ex : elles sont franchement pius grosse que les autres ?).
Aussi vérifie que ta BD Access n'a pas atteint sa taille maximum (2 Go) car là ont a des messages d'erreurs bizarres et inexplicables qui ne sont en fait du qu'à la saturation de la BD.

A+

[marot_r]

Autre idée, si tes images sont sur un disque réseau essaye de les mettre sur ton disque local.
Ça peut aider.

[alea83]

Bonjour,

Merci pour votre aide qui m'est précieuse, oui le fichier excel utilise la librairie WIA et je me suis inspirée de ce code pour faire le mien.
NOn la base n'est pas saturée 11600 Ko (base avec lien d'une autre base qui contient les tables 14800 Ko).
Oui j'ai fait des recherches sur la librairie mais en vain.
J'ai juste besoin de la date de la prise de vue de la photo et les coordonnées GPS, peut être y a t'il une autre librairie pour trouver ces informations, j'avoue que malgré mes recherches depuis longtemps je reste bloquée sur cette partie sans trouver de solutions...