Liste des Propriétés d'un fichier

Bonjour

Je cherche une macro excel pour extraire les propriétés d'un fichier .DOC

Auteur, Date, Sujet, enfin tout ce qu'il y a dans les propriétés

Merci à tous

Bonsoir Jean Yves, le Forum


Un lien interressant à ce sujet ....

Récupérer le titre d'un modèle de document word sans l'ouvrir

Bon Week End
@+Thierry

bonsoir Jean Yves

tu peux essayer

Sub ProprietesDocWord()
Dim WrdApp As Object, WrdDoc As Object, Propriete As Object
Dim Ouvrir As String
Dim Ligne As Byte

On Error Resume Next
Ouvrir = "C:\Documents and Settings\michel\fichier.doc" 'adapter chemin

Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = False
Set WrdDoc = WrdApp.Documents.Open(Ouvrir)

For Each Propriete In WrdDoc.BuiltinDocumentProperties
Ligne = Ligne + 1
Cells(Ligne, 1) = Propriete.Name
Cells(Ligne, 2) = Propriete.Value
Next

WrdDoc.Close
WrdApp.Quit

End Sub


bonne soiree
MichelXld

bonjour @+Thierry

oouuppss… je suis un peu en retard sur ce coup là…


bonne soiree à toi
MichelXld

Bonjour

Un grand merci à tous, j'ai ce qu' il me faut

Jean Yves