Discussion :

[BBe8127]

Bonjour,

je viens de récupérer sur un DD externe, environ 7000 photos effacées par erreur. J'ai fait ça avec un avec un logiciel du marché (Ontrack EasyRecovery), et tout est stocké sur mon DD.

La liste semble correcte : les répertoires apparaissent bien et les photos bien nommées (xyz.JPG).

Problème! Impossible de les relire. "Format invalide"

Il m'a été suggéré de corriger les 10 premiers caractères (en hexa) des photos.

Après récupération sur une photo lisible et "perfusion", j'ai le message suivant: "taille incorrecte".

Je voudrais donc savoir s'il est possible de connaître LA LISTE , LA POSITION ET LA LONGUEUR DES METADONNEES dans une photo pour corriger ces pépins, sachant que je travaille en VBA avec EXCEL 2003.

D'avance merci à qui me sauvera la mise (les photos sont à mes enfants).

Cordialement.
BBe

[Daniel.C]

Bonjour,

Les infos sont listées sur la feuille active (autant qu'elle soit vierge). Dans la fenêtre VBE, dans les menus "Outils", Références", il faut cocher "Microsoft Shell Controls and Automation". La macro ne traite qu'un dossier à la fois. Il faut l'indiquer dans la variable "Chemin" :

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
Sub LireInfosJpg()
 'Dans outil réferences cocher Microsoft Shell Controls and Automation
 
  Dim Chemin As String
  Dim myShell As Shell
  Dim myFolder As Folder
  Dim myFile As FolderItem
  Dim i As Byte, f As String, lig As Long
 
  'Indiquer le chemin du répertoire
  Chemin = "C:\Users\Daniel\Documents\Donnees\Daniel\Photos\000029"
  Set myShell = CreateObject("Shell.Application")
  Set myFolder = myShell.Namespace(Chemin)
  Set myFile = myFolder.Items.Item(f)
  Application.ScreenUpdating = False
  [a:ah].ClearContents
  For i = 0 To 34
    If myFolder.GetDetailsOf(myFile, i) <> "" Then _
 Cells(1, i + 1) = myFolder.GetDetailsOf(myFile, i)
  Next
  'f = Dir(Chemin & "\*.mp3")
  f = Dir(Chemin & "\*.jpg")
  Do While Len(f) > 0
    Set myFile = myFolder.Items.Item(f)
    lig = [a65536].End(xlUp)(2).Row
    For i = 0 To 34
      If myFolder.GetDetailsOf(myFile, i) <> "" Then _
 Cells(lig, i + 1) = myFolder.GetDetailsOf(myFile, i)
    Next
    f = Dir
    lig = lig + 1
  Loop
  Set myShell = Nothing
  Set myFolder = Nothing
  Set myFile = Nothing
 End Sub

[BBe8127]

Daniel,

merci de votre réponse très détaillée.
Une première lecture, m'a rassuré, je ne suis pas passé loin dans certains de mes propres programmes.
Je ne testerait peut-être pas tout de suite, j'ai des invités pour plusieurs jours, mais dès que m'y colle, je vous informe de mes résultats.

Cordialement.
Bernard