Discussion :

[Kartograv]

Bonjour,

J'ai réalisé une macro qui liste sur Excel les noms et le contenu des métadonnées de photos stockées dans un dossier.
Parmi elles, certaines sont modifiables manuellement sur l'explorateur windows. Ce sont les champs "titre", "Mots-clefs", "commentaires", "auteurs".
Je me suis appuyé sur l'excellent tutoriel http://warin.developpez.com/access/fichiers/
de Christophe WARIN.

Ma macro fonctionne à merveille et permet aussi de changer les noms de fichiers à partir d'une colonne prévu à cet effet. Tout baigne donc.

Et j'ai voulu pousser plus loin et modifier également ces champs de métadonnées à partir du contenu d'un tableau Excel... et ça n'a pas marché.

Par exemple (sans vous bombarder avec tout le code) j'ai cette ligne qui fonctionne parfaitement :

Code :

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

Cells(i, 7) = objFolder.GetDetailsOf(objFolderItem, 21) ' avec auparavant Set objFolderItem = objFolder.ParseName(Fil.Name)

GetDetailsOf(objFolderItem, 21)renvoie le titre du fichier en cours


Si naïvement je tente l'inverse soit :

Code :

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

objFolder.GetDetailsOf(objFolderItem, 21) = "Mon nouveau titre"

"Erreur d'exécution 451 : La procédure Property Let n'est pas définie et la procédure Property Get n'a pas renvoyé d'objet"

D'où ma question : cette manoeuvre est-elle impossible car FileSystemObject ne le permet pas ? Faut-il utiliser une autre méthode ? un autre objet ? J'ai rien compris (très probable) ?

Merci pour votre aide.

[kiki29]

Salut, lire Récupérer les propriétés de fichiers multi-médias ainsi que Utiliser la librairie Windows Image Acquisition en VBA

[Kartograv]

Merci beaucoup pour votre réponse rapide. Je me jette de ce pas dans cette documentation. C'est pile ce que je voulais. Merci encore et bonne journée.