Re : trouver les mots clé de fichiers excel
Bon, entretemps, j'ai lu l'aide
j'ai donc les keywords du fichier actuellement ouvert comme ceci:
Sub Prop()
MsgBox (ThisWorkbook.BuiltinDocumentProperties.Item(4))
End Sub
et pour les fermés:
'
Lire et modifier les propriétés des classeurs et autres fichiers
Sub LireProprietesClasseur_DSO()
'Nécessite d'activer la référence 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
'Attention: Le fichier doit être préalablement fermé!
On Error Resume Next
For Each mfile In Range("A2:A" & [A65000].End(xlUp).Row)
Chemin = "C:\Users\Pat\Documents\Fichiers excel\"
DSO.Open Chemin & mfile
' Last = Range("B65000").End(xlUp).Row
lig = [H65000].End(xlUp).Row + 1
'MsgBox DSO.SummaryProperties.Author & vbLf & DSO.SummaryProperties.Comments & _
DSO.SummaryProperties.Keywords
'
'Les autres propriétés:
' Cells(lig, 5) = DSO.SummaryProperties.DateCreated
' Cells(lig, 6) = DSO.SummaryProperties.DateLastPrinted
' Cells(lig, 7) = DSO.SummaryProperties.DateLastSaved
Cells(lig, 8) = DSO.SummaryProperties.Keywords
Cells(lig, 9) = mfile
DSO.Close
Next
End Sub