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 ...

[QuestVba]

Bon, le CTI m'a installé Acrobat (temporairement) mais effectivement, la vitesse n'est pas au rendez-vous. Je regarde si tu trouves quelque chose et je compare.
Un grand merci pour l'implication.

[kiki29]

Salut, je viens de faire une expérience avec RegExp sur 6102 fichiers pdf Kompass ( 1.7 Go au total ) : 61 s pour un total de 637972 pages.

voir ici

[QuestVba]

Bonjour, kiki29,

Merci pour ce retour.

Je ferai un test ce mardi pour voir la différence entre avec et sans le nombre de pages. Aujourd'hui, c'est télétravail et réseau pas très rapide.

[kiki29]

Re, dans les mêmes conditions ( mêmes fichiers et version d'Excel ), c'est à dire aussi en relançant le pc pour annuler tous les effets de cache etc Acrobat est plus lent que RegExp mais seulement de quelques secondes.

Resterait juste à faire un test en Early Binding au lieu du Late Binding par curiosité.

[kiki29]

Salut, il y aurait aussi les SendKeys avec juste le Reader en local mais pas en réseau. A titre d'exemple voir Acrobat Reader Copier/Coller le texte d'un PDF dans une feuille Excel via des SendKeys. A réécrire dans ton contexte avec les instructions idoines.