nombre de page d'un fichier PDF

**munity** · 23/03/2021, 19h34

Bonjour à tous

j'utilise une macro qui permet de compter le nombre de page dans un fichier pdf depuis quelques temps déjà et jusqu'ici pas de problème
je viens de l'utiliser pour 3 pdf et au lieu de m'afficher le nombre de feuilles réelles
je regarde sur internet et a priori ce problème est récurrent avec la macro ci dessous
une personne a t'il réussi à régler le problème?

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub Test()
Dim MyPath As String, MyFile As String
Dim I As Long
MyPath = ActiveWorkbook.Path '& "/"
MyFile = Dir("*.pdf", vbDirectory)
Range("A:B").ClearContents
Range("A1") = "File Name": Range("B1") = "Pages"
Range("A1:B1").Font.Bold = True
I = 1
Do While MyFile <> ""
I = I + 1
Cells(I, 1) = MyFile
Cells(I, 2) = GetPageNum(MyFile)
MyFile = Dir
Loop
Columns("A:B").AutoFit
MsgBox "Total of " & I - 1 & " PDF files have been found" & vbCrLf _
& " File names and corresponding count of pages have been written on " _
& ActiveSheet.Name, vbInformation, "Report..."
End Sub
'
Function GetPageNum(PDF_File As String)
'Haluk 19/10/2008
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

y a t'il un caractère parasite dans les pdf ou il faut modifier la macro pour des cas à la marge?

merci pour vos pistes ou autres

david

**jurassic pork** · 26/03/2021, 08h28

hello,
sinon il y a la bibliothèque COM Quick PDF Library Lite d'utilisation libre qui permet de faire cela assez facilement exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Read_NbPages_PDF()
Dim QP As New DebenuPDFLibraryLite1114.PDFLibrary
Dim fileName, PageText As String
fileName = "D:\Temp\monDocument.pdf"
Dim docID As Long
docID = QP.NewDocument()
QP.LoadFromFile fileName, ""
Debug.Print QP.pagecount
QP.RemoveDocument (docID)
End Sub

Ami calmant, J.P

**munity** · 02/05/2021, 17h40

bonjour Jurassik pork

merci de ta réponse
j'ai installé le .dll indiqué dans ton message
par contre après avoir installé celui ci j'ai tout de même un message d'erreur à la ligne

Code :

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