bon, pour les propriétés, elles sont modifiables en VBA si tu le souhaites...
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.[B]BuiltinDocumentProperties[/B]
Cells(rw, 1).Value = p.Name
rw = rw + 1
Next
Sub DisplayPropertyInfo(dp As DocumentProperty)
MsgBox "value = " & dp.Value & Chr(13) & _
"type = " & dp.Type & Chr(13) & _
"name = " & dp.Name
End Sub
Private Sub CommandButton2_Click()
DisplayPropertyInfo (Title)
End Sub
DisplayPropertyInfo (Title)