Bonjour,
Essaye qqch du genre :
vRep = "C:\MonDossier" '<== Répertoire à adapter
vFic = "MonFichier.pdf" '<== Fichier à adapter
Set oShl = CreateObject("Shell.Application")
Set oFdr = oShl.NameSpace(vRep)
MsgBox "Titre de '" & vRep & "\" & vFic & "' : " & oFdr.GetDetailsOf(oFdr.Items.Item(vFic), 10)
wape