Discussion :

[article50]

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 çà:

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

[r.morel]

Salut,
Le nombre de pages d'un fichier Word est contenu dans ses propriétés :


Pour lire ces propriétés : https://msdn.microsoft.com/fr-fr/lib...roperties.aspx

Ou ici : http://heureuxoli.developpez.com/off.../variables/#L5

A plus.

[article50]

Super ! merci pour la réponse rapide