VBA : modifier des métadonnées de photos depuis Excel
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:
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:
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.
