Discussion :

[mcdotta]

Bonjour,

J'ai une table Access qui scanne le contenu d'un répertoire et affiche nom, date de dernière modification des documents. Pour cela, j'utilise en VBA l'objet Scripting.FileSystemObject et les propriétés Name, DateLastModified...

Maintenant je dois également inclure la valeur d'une propriété personnalisée des documents Word (ajoutée via Fichier - Propriétés et l'onglet Personnalisée). Je peux le faire en ouvrant le document mais mon but est de récupérer cette valeur sans ouvrir les documents, exactement de la même manière que Windows la récupère quant on pointe le fichier dans l'Explorateur Windows et que l'on affiche ses propriétés.

Merci d'avance

[michelxld]

bonsoir

j'espere que cet exemple pourra t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub LireProprietesPersonnalisees()
'necessite d'activer la reference DSO OleDocument Properties Reader 2.0
'http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
Dim DSO As DSOFile.OleDocumentProperties
 
Set DSO = New DSOFile.OleDocumentProperties
 
'le fichier doit etre fermé !
DSO.Open sfilename:="C:\Documents and Settings\michel\dossier\monDocument.doc"
MsgBox DSO.CustomProperties.Item("LeNomDeMaProprietePersonnalisee").Value
'ou ( l'index de la 1ere propriete personnalisée est 0 )
'MsgBox DSO.CustomProperties.Item(0).Value
DSO.Close
End Sub

si la librairie DSOFile n'est pas installée sur ton poste tu peux la trouver ici :
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351


bonne soiree
michel

[mcdotta]

Hey Michel,

T'es génial.

J'avais effectivement trouvé cet article chez Microsoft mais je n'étais pas allée plus loin car il s'appliquait à Visual Basic.net alors que j'utilise VBA...

Mille mille merci