Discussion :

[QuestVba]

Bonjour au Forum ,

Je dois pour mon travail lister les PDF qui se trouvent dans plusieurs folders et sous-folders. Pas de soucis !

Maintenant, le Managing me demande de fournir le nombre de pages par PDF . J'utilise cette fonction

Code :

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

Pages = GetPageNum(MyPath & Application.PathSeparator & MyFile)

qui renvoie ici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function GetPageNum(PDF_File As String)
Dim FileNum As Long
Dim strRetVal As String
Dim RegExp
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "/Type\s*/Page[^s]"
FileNum = FreeFile
Open PDF_File For Binary As #FileNum
strRetVal = Space(LOF(FileNum))
Get #FileNum, , strRetVal
Close #FileNum
GetPageNum = RegExp.Execute(strRetVal).Count
End Function

>> Le problème: cela ralentit énormément la macro . Auriez-vous une idée pour obtenir ce nombre de pages plus rapidement ?

Un grand merci car je suis certain qu'une solution sera trouvée !

NB : au boulot, on a que Adobe Reader XI. Pas de Pro, ...

[vinc_bilb]

Bonjour,

Dans les properties du fichier pdf, le nombre de page apparait .... J'essaye de retrouver un post là-dessus (de Kimy_Ire je crois)

[QuestVba]

Salut, vinc_bilb,

Merci pour l'espoir. Mais pour le moment, j'épluche mais je ne trouve pas le nombre de pages d'un PDF. Si tu trouves quelque chose ou si quelqu'un a quelque chose, ... un grand merci.

[kiki29]

Salut, il te faut Adobe Acrobat ( pas le Reader )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Comptage()
Dim sFichier As String
Dim PDDoc As Object
Dim iNbPages As Long
 
    Set PDDoc = CreateObject("AcroExch.PDDoc")
 
    sFichier = "c:......pdf"
    PDDoc.Open sFichier
    iNbPages = PDDoc.GetNumPages
    PDDoc.Close
 
    MsgBox iNbPages
 
    Set PDDoc = Nothing
End Sub

Autrement j'ai ( mais où ? ) une appli qui fait tout cela, si je la retrouve, je la poste dans Excel / Word / PDF avec Adobe Acrobat Pro et PDFCreator

[QuestVba]

Merci pour l'info.

Bête question : comme je n'ai pas Acrobat, il est pas possible de s'en sortir via PDFArchitect ?

[kiki29]

Salut, pour PDFArchitect je n'en sais strictement rien. Pour ce qui est de la vitesse, je doute ( par expérience ) qu'Acrobat soit plus rapide que RegExp. Je continue malgré tout mes fouilles d'archéologie informatique ...