Discussion :

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub NombrePagesDansDocWord()
Dim wdApp As Word.Application, wdDoc, nbPages As Long
    Set wdApp = CreateObject("word.application")    'ouvre une session Word
    Set wdDoc = wdApp.Documents.Open("D:\Doc\WordDoc.doc")    'ouvre le document Word
    wdApp.Selection.EndKey Unit:=wdStory
    nbPages = wdApp.Selection.Information(wdActiveEndPageNumber)
    wdDoc.Close
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing
    MsgBox nbPages
End Sub

[Maxence HUBICHE]

Une solution qui fonctionne avec des documents Word 2007

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Function nbPages(ByVal strDocName as String)
    Dim x As Object
    Set x = GetObject(strDocName, "Word.Document")
    nbPages = x.BuiltinDocumentProperties(wdPropertyPages)
    Set x = Nothing
End Function

Je ne sais pas si cela fonctionne avec les autres versions... à essayer.

[ouskel'n'or]

Ta solution est effectivement celle donnée dans la FAQ... mais depuis Excel
Ici on n'est pas dans Word

Edit
Fonctionne aussi sur Word 2003

Fonctionne aussi sur Word 97
Faudrait le dire dans VBA Word


PS...
Hello Maxence, j'ai ressorti la discussion de derrière les fagots, regarde là, "Contribuez" n'existait pas encore... Quel gachis tout de même !
A+

[Maxence HUBICHE]

Ta solution est effectivement celle donnée dans la FAQ... mais depuis Excel

Le code que j'ai écrit est valide quel que soit le logiciel d'origine. Il permet de faire de l'automation avec Word, comme l'indique le titre de ce thread.
On peut utiliser cette procédure depuis Access ou powerpoint si on le souhaite.
Par contre, ce qui est nul, c'est que je n'ai pas vérifié dans la FAQ avant de chercher puis tester ce code.
Ca, c'est franchement nul !

Merci pour tes essais sous les autres versions de Word
Hello Maxence, j'ai ressorti la discussion de derrière les fagots, regarde là, "Contribuez" n'existait pas encore... Quel gachis tout de même !
A+

Faut transmettre le lienà Heureux-Oli

[ouskel'n'or]

Le code que j'ai écrit est valide quel que soit le logiciel d'origine. Il permet de faire de l'automation avec Word, comme l'indique le titre de ce thread.
On peut utiliser cette procédure depuis Access ou powerpoint si on le souhaite.

J'aurais dû le comprendre Je n'ai mis "ma" solution que parce que je suis tombé dessus par hasard dans mes codes... mais sur Word (!)
Enfin, j'ai appris quelque chose. Je mourrai moins bête.