Liste des Propriétés d'un fichier

[Jean Yves]

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

 

[@+Thierry]

Bonsoir Jean Yves, le Forum


Un lien interressant à ce sujet ....

Lien supprimé

Bon Week End
@+Thierry

 

[michel]

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

 

[michel]

bonjour @+Thierry

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


bonne soiree à toi
MichelXld

 

[Jean Yves]

Bonjour

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

Jean Yves