Liste des Propriétés d'un fichier

Bonsoir Jean Yves, le Forum


Un lien interressant à ce sujet ....

Lien supprimé

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