Nombre de pages du Document Word

[Pierre31]

Bonjour à toutes et tous,

A partir d'excel je cherche à connaître le nombre de pages d'un document Word de la manière suivante:

'on lance Word
Set objWord = CreateObject("Word.Application")

'on ouvre le document
Set docWord = objWord.Documents.Open("E:\DPR\MGR\LOM\GMAO\7\7-1\15-99-003\15-99-003-FI.doc")

intPages = docWord.ActiveWindow.Panes(1).Pages.Count
Cells(6, 1) = intPages

Cette solution ne fonctionne pas, Word tourne en permanence et bloque excel.

Avez-vous une meilleure solution ?

D'avance merci pour votre aide.

Cordialement

Pierre

 

[Pierre31]

Re bonjour,

J'ai trouvé, en fait je ne refermé pas Word, voici la bonne procédure:

'on lance Word
Set objWord = CreateObject("Word.Application") '-- ouvrir une session Word

'on ouvre le document
Set docWord = objWord.Documents.Open("E:\DPR\MGR\LOM\GMAO\7\7-1\15-99-003\15-99-003-FI.doc") '-- ouvrir le document Word

intPages = docWord.ActiveWindow.Panes(1).Pages.Count
'
objWord.Quit

Set objWord = Nothing

Cells(6, 1) = intPages

A bientôt

Pierre