Nombres de pages des PDF

Bonjour au Forum :pc:,

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 :furieux:. J'utilise cette fonction

Code:

---

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

---

qui renvoie ici

Code:

---

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 :traine:. Auriez-vous une idée pour obtenir ce nombre de pages plus rapidement ? :help:

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

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)

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.

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

Code:

---

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

Merci pour l'info.

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

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

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.

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

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.

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

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.