Compter les pages d'un document sans avoir à l'ouvrir. Est-ce possible?
Bonjour cher tous,
Donc, j'aimerai savoir s'il est possible de compter les pages d'un document word sans avoir à l'ouvrir. Est-ce possible?
Actuellement je procède comme çà:
Citation:
Dim intPages As String
Dim npage As String
Dim objWord As New Word.Application
objWord.Documents.Open (chemin)
objWord.Visible = False
intPages = objWord.ActiveWindow.Panes(1).Pages.Count
If intPages > 1 Then
npage = " pages"
Else
npage = " page"
End If
objWord.Quit SaveChanges:=True 'doc se ferme sans boite de dialogue
MsgBox intPages + npage
Ca me convient à moitié parce que :
- C'est un peu lent comme procédure
- Si le fichier est déjà ouvert, ça dérape
