Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Function nbepagespdf(ByVal pdffilename As String) As Integer Dim f As Integer Dim page_pdf_nb(1 To 5000) Dim buffer As String, table() As String Dim trt As Integer f = FreeFile Dim pdf_id As String Open pdffilename For Binary As #f 'ouvrir le fichier buffer = Space$(LOF(f)) Get #f, , buffer 'copie du fichier dans la variable buffer Close #f 'fermer le fichier trt = 1 'découpage avec le split table() = Split(buffer, "/Count") 'le nombre de pages correspond au nombre d'éléments nbepagespdf = UBound(table()) pdf_id = "" If nbepagespdf >= 1 Then For i = 1 To nbepagespdf For t = 1 To Len(Mid(table(0), 1, 4)) If Mid(table(i), t, 1) <> "/" Then 'MsgBox Mid(table(i), t, 1) pdf_id = pdf_id + Mid(table(i), t, 1) End If Next t pdf_id = Replace(pdf_id, "/N", "") pdf_id = Replace(pdf_id, "N", "") pdf_id = Replace(pdf_id, "/count", "") pdf_id = Replace(pdf_id, " ", "") pdf_id = Replace(pdf_id, "/", "") For t = 65 To 125 pdf_id = Replace(pdf_id, Chr(t), "") Next pages = Val(Trim(pdf_id)) pdf_id = "" page_pdf_nb(trt) = pages List7.AddItem pages trt = trt + 1 Next i Dim plus_haut, quel_hauteur plus_haut = 0 For i = 1 To trt quel_hauteur = page_pdf_nb(i) If quel_hauteur > plus_haut Then plus_haut = quel_hauteur Next i MsgBox (plus_haut) End If End Function
table() = Split(buffer, "/Count") 'le nombre de pages correspond au nombre d'éléments nbepagespdf = UBound(table())