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
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