Discussion :

[L27207]

Bonjour,

J'ai utilisé les codes de cette contibution pour lister les fichiers présents sur un disque (dossiers et sous-dossiers) ainsi que leur directory. Cuex-ci marchent parfaitement.

J'aimerais de plus récupérer les propriétés de mes documents (Auteur, Catégorie, Sujet...) habituellement accessibles via le menu Fichier/Propriétés. J'ai vu sur des forums qu'il faut utiliser BuiltinDocumentProperties(X) mais je n'arrive pas à l'intégrer dans le code.

Je voulais par exemple ajouter cette ligne en ligne 45 :

Code :

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

wksDest.Cells(iRow, 11) = oFile.BuiltinDocumentProperties(1)

Malheureusement cela ne fonctionne pas. Quelqu'un aurait-il la gentillesse de m'orienter?

Merci.

[L27207]

Bonjour,

Je souhaite lister dans une feuille Excel tous les fichiers dans un dossier (et sous dossier) répondant à un critère de nom, et en lister les propriétés étendues (Extended File Properties : catégorie, mots clés...). Apparemment l'option BuiltinDocumentProperties n'est pas la bonne mais il faut plutôt que j'utilise getDetailsOf.

J'ai trouvé un tutoriel sur la récupération des propriétés étendues (http://silkyroad.developpez.com/VBA/...etesClasseurs/) avec un code qui fonctionne.

Il faut que je m'inspire des 2 codes de cette page et du tutoriel mais je n'arrive pas à trouver une solution... Quelqu'un peut-il m'aider?

Merci pour votre aide.

[AlainTech]

Bonjour,

oFile est un objet fichier. Il ne peut donc exposer que les propriétés Windows d'un fichier.

Je pense (mais suis tout prêt à ce qu'on me contredise) que pour obtenir les propriétés Office, il faut que les fichiers soient ouverts.
Comme tu ne précises pas quel(s) type(s) de fichiers tu dois traiter, il me semble difficile de te donner une piste.

Juste pour info, si ta macro est dans Excel et que tu ne dois traiter que des fichiers Excel, c'est relativement simple.
Par contre, si tu dois traiter des fichiers Word, il faudra ouvrir une instance de Word avant d'ouvrir les fichiers.

[L27207]

Bonjour,

Merci AlainTech pour votre aide.

J'ai finalement réussi à créer ma bibliothèque de fichier au sein d'un classeur Excel avec une macro pour lister des fichiers avec leurs propriétés étendues.

GetDetailsOf a l'air de le faire pour tout type de fichier et ce sans les ouvrir. J'ai trouvé le code ici :
http://vbaexpress.com/kb/getarticle.php?kb_id=405