Discussion :

[DonKnacki]

Bonjour,
Je vous sollicite pour une question toute bête.
J’aimerai récupérer le nombre de page d’un document Word pour l’utiliser dans une macro d’un fichier Excel. (Mon nombre de page du document Word correspond aux nombres de lignes que je dois traiter sur le document Excel)

J’ai fait une recherche et j’ai trouvé ceci : http://vb.developpez.com/faq/?page=word#nbpagedocword

Ca me parait bien compliqué pour moi et pour ce que je veux faire. N’y a-t-il pas plus simple ?

[mout1234]

Bonsoir,

Je ne crois pas qu'il y ait plus simple.
D'ailleurs, est-ce vraiment compliqué?

Dans cette fonction, il n'y a finalement que 3 instructions majeures

Code :

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

1
2
3
4
5
6
7
8
9
 
'on lance Word 
Set objWord = CreateObject("Word.Application")    '-- ouvrir une session Word
 
'on ouvre le document
Set docWord = objWord.Documents.Open(sDoc)    '-- ouvrir le document Word
 
'on récupère la valeur recherchée
NombrePagesDocWord = docWord.builtinDocumentProperties("Number of Pages")

'on referme le doc et Word...

[DonKnacki]

en effet ca parait plutot simple mais ca fonctionne mal pour moi

comme j'ai fais un petit traitement je vous met le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub Macro1()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Integer, j As Integer
 
 
    Set WordApp = CreateObject("word.application")
    WordApp.Visible = False    'Word reste masqué pendant l'opéraion
    Set WordDoc = WordApp.Documents.Open("h:\monDocument.doc")    'ouvre le document Word
    NombrePagesDocWord = docWord.BuiltinDocumentProperties("Number of Pages")
    j = 2
    For i = 1 To NombrePagesDocWord
        'copie du document word
            WordDoc.Tables(j).Rows(4).Range.Copy
 
        'collage dans Excel
        Cells(i, 1).PasteSpecial xlPasteValues
        j = j + 5
    Next i
 
    WordDoc.Close    'fermeture document Word
    WordApp.Quit    'fermeture session Word
 
 
 
End Sub

en fesant ca me remonte une erreur au niveau de la récupération du nombre de page : objet requis

[Heureux-oli]

pour compter le nombre de page, utilise cette méthode

Code :

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

intPages = ActiveDocument.ActiveWindow.Panes(1).Pages.Count