Discussion :

[rogerfon]

Bonjour,

Je suis débutant en vba (très débutant même).

J'ai un petit défi que j'aimerais relever .... je sais ce que je veux faire mais pas comment le faire :-)

Bref, je fais appel à plus compétent que moi.

Voici mon problème :

J'ai 2000 images nommées selon une référence article (L1001.jpg ; L1002.jpg, etc.) dans un dossier
J'ai un fichier excel avec les données suivantes : Référence article :L1001 ; référence image L1001.jpeg : Nom : ex Foreuse Marque Machin: Catégorie ; ex : Outil ; etc.

Je souhaiterais ajouter à ses images les métadonnées IPTC (infos attachées à l'image) en faisant un traitement par lot à partir de ce fichier

Pourquoi ? Afin de gérer les images avec des gestionnaires d'images qui gèrent ces infos (voir même le gestionnaire de fichier de windows) ; les solutions classiques (nommage des images ; arborescence, ... ont été testées ....et vite abandonnées.

Est-ce possible de faire cela ? Si oui, je suis vraiment intéressé de savoir comment :-)

D'avance, merci bcp !
Roger
ps : j'avais ouvert ce sujet , mais je ne savais pas que ces métadonnées se nommaient IPTC

[Theze]

Bonjour,

Regarde du coté de "Shell.Application". Résultats en colonne A et B de la feuille active. Adapter le chemin et nom du fichier :

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
 
Sub LireDonnees()
 
    'référence à cocher --> "Microsft Shell Controls And Automation"
    Dim AppShell As Shell
    Dim Dos As Folder
    Dim Fich As FolderItem
    Dim I As Integer
    Dim J As Integer
    Dim Chemin As String
    Dim Fichier As String
 
    Chemin = "D:\Dossier\"
    Fichier = "Image.jpg"
 
    Set AppShell = CreateObject("Shell.Application")
    Set Dos = AppShell.Namespace(Chemin)
    Set Fich = Dos.Items.Item(Fichier)
 
    Range("A:B").ClearContents
 
    For I = 0 To 308
 
    Select Case I
 
        Case 0 To 7, 10 To 13, 19 To 35, 161 To 165, 175 To 183, 231 To 251
 
            If Dos.GetDetailsOf(Fich, I) <> "" Then
 
                J = J + 1
                Cells(J, 1) = Dos.GetDetailsOf("", I) & " :"
                Cells(J, 2) = Dos.GetDetailsOf(Fich, I)
 
            End If
 
        End Select
 
    Next
 
 End Sub

Hervé.

[patricktoulon]

Salut theze

moi j'ai une erreur ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Fich = Dos.Items.Item(Fichier)

Pourtant j'ai bien les reference activée

[Theze]

Bonjour Patrick,

Bizarre, chez moi (Excel 2007) ça marche sans problème !
Si une autre personne a testé, pourrait-elle donner son avis ?

Hervé.

[patricktoulon]

re
2007 32 ou 64 bits?

[clementmarcotte]

Bonjour,

Bonjour Patrick,

Bizarre, chez moi (Excel 2007) ça marche sans problème !
Si une autre personne a testé, pourrait'elle donner son avis ?

Hervé.

Je vais essayer d'y jeter un œil ce soir, chez-moi; probablement cette nuit chez-vous. Encore que ce sera avec Excel 2010.

Mais, c'est pour le moins intrigant.

[Philippe Tulliez]

Bonjour Hervé,
Testé avec les Version 2010 - Windows 8 et version 2003 avec Windows XP sans aucun problème.

Bonsoir Patrick.
As-tu modifié le chemin et le nom de l'image ?
Parce-que j'ai aussi eu le problème avec la version 2003 mon chemin étant différent. Après l'avoir modifié tout est rentré dans l'ordre.

[clementmarcotte]

Bonjour,

J'ai testé avec Excel 2010, 64 bits et Windows 7. Cela passe sans problème.

[Theze]

Bonjour à toutes et tous,

Patrick, je suis en 2007 64 bits et Windows 7 pro.

Hervé.

[rogerfon]

Bonjour,
J'étais malade ces derniers jours. Je suis vraiment touché par toutes vos contributions ! Un très grand merci. Je vous fais un retour. A très bientôt . Roger

[patricktoulon]

Bonjour
effectivement le disque dur C pause problème si c'est un autre disque dur plus de soucis les données concernant l'image sont bien rapatriées