Trouver le nombre de pages d'un document Word en excel

[Patrick MO]

Bonjour à tous,

A partir de Vba pour Excel, j'écris du code qui doit créer un message fax en Word. En début de message, je dois indiquer le nombre total de pages à transmettre.

J'utilise le code suivant:
Set Wrd = CreateObject("Word.Application")
V_Page = Wrd.ActiveDocument.ComputeStatistics Statistic:=wdStatisticPages)

Quand je fais tourner ce code en Word pur, j'obtiens bien le nombre de pages dand ma variable V_Page. Cependant quand je l'intègre dans mon code Excel, la commande me retourne le nombre de mots.

Avez-vous une idée pour résoudre ce problème?

 

[michel]

Bonsoir Patrick

je ne sais pas si cela pourra t'aider , mais l'exemple ci joint , permet de selectionner un fichier word à partir d'une boite de dialogue ( GetOpenFileName) . un message affiche le nombre de pages du document , puis le referme .

Sub CompterNombrePagesDocWord()
'http://www.excel-downloads.com/html/French/forum/messages/1_62459_62459.htm
'michel le 31.12.2003

Dim WrdApp As Object
Dim WrdDoc As Object
Dim NbPage As Byte
Dim Ouvrir As String

Ouvrir = Application.GetOpenFilename("Fichiers Word (*.doc), *.doc")

Set WrdApp = CreateObject("Word.Application")
Set WrdDoc = WrdApp.Documents.Open(Ouvrir)

With WrdDoc
NbPage = .BuiltinDocumentProperties("Number of Pages")
MsgBox "Il y a " & NbPage & " pages dans le document Word : " & Chr(10) & Ouvrir
.Close
End With
WrdApp.Quit

Set WrdDoc = Nothing
Set WrdApp = Nothing
End Sub

bonnes soirée et bonnes fetes
michel