Discussion :

[nonaparus]

Bonjour,

on m'a fourni plusieurs(2000) documents PDF nommés par un nom arbitraire. Je dois les renommer avec la valeur contenu dans la propriété Titre de chaque document pdf. Le tout en utilisant Access 2000.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Ex.: Nom du pdf : 1062444-66.pdf
       Propriétés du pdf : 
          Titre : 2054
          auteur : Compangnie X
          sujet : scie à chaîne
          keyword : aucun

Je recherche donc un bout de code qui me permettrais de récupérer la valeur 2054 du pdf nommé 1062444-66.pdf.

Merci

[cafeine]

Hello,

ta question très intéressante me permet un développement inédit à mon tuto : Le PDF Gratuit pour Access

J'y joins mes connaissances en RegExp (cf. mon autre tuto : Les expressions rationnelles / régulières dans Access par la pratique)

et le tout donne une fonction qui va m'être extrêmement utile

NB : il faut ajouter la référence VBScript Regular Expressions 5.5

Function GetPDFTitle(ByVal strFic As String, strObj As String) As String

Dim fic As Integer
Dim strExp As String
Dim strBuff As String * 1024
Dim i As Integer

Dim reg As VBScript_RegExp_55.RegExp
Dim Match As VBScript_RegExp_55.Match
Dim Matches As VBScript_RegExp_55.MatchCollection

Set reg = New VBScript_RegExp_55.RegExp

reg.Global = True
reg.MultiLine = False
reg.IgnoreCase = True
reg.Pattern = "/" & strObj & "\((.*)\)"
    
Reset

fic = FreeFile

Open strFic For Binary Access Read As #fic

Do While Not EOF(fic)
    Get #fic, , strBuff
    strExp = strExp & strBuff
    
    If reg.Test(strExp) = True Then
        Set Matches = reg.Execute(strExp)
        For Each Match In Matches
            GetPDFTitle = Match.SubMatches(0)
        Next Match
        Exit Function
    Else
        strExp = right(strExp, 1024)
    End If
Loop
Reset

Set Match = Nothing
Set Matches = Nothing
Set reg = Nothing

End Function

pour obtenir le titre, on fait alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

getpdftitle( "d:\temp\20060331164202.pdf", "Title")

pour info les autres champs intéressants sont :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    CreationDate
    ModDate
    Title
    Creator
    Author

[nonaparus]

Merci,

le tout fonctionne comme je le veux

a+

[henrietd]

Bonjour, je souhaite récupérér la propriétés "mots-clés" d'un pdf. Est elle accessible par GetPDFTitle ?