Discussion :

[megapacman]

Bonjour,

je souhaiterai recuperer le nombre de pages d'un doc word via vba

mais je ne sais pas quelle fonction utilisée ou comment faire ?

quelqu'un aurait une idée merci

[megapacman]

en fait dans chaque doc ou je dois recuperer le nb page par defaut en pied de page il y a marqué Page 1 of 2

[megapacman]

donc en fait je peux juste utiliser ta fonction compterpage() sans ajout pied de page

comme ca ? par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub CompterLesPages()
    Application.ScreenUpdating = False    
    Selection.EndKey Unit:=wdStory
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    MsgBox Selection
    Selection.delete '(*)
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Application.ScreenUpdating = True
End Sub

merci pour ton aide

[SfJ5Rpw8]

et

Code :

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

1
2
 
Debug.print ActiveDocument.range.Information(wdActiveEndAdjustedPageNumber)

voir
[VBA-W] Trouver le numero de Page d'une Selection (range)

[ouskel'n'or]

Merci bbil (une fois de plus mais t'étais pas là) C'est tout de même plus simple (!) et ça fonctionne avec VBA97 aussi

Code :

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

1
2
    Selection.WholeStory
    MsgBox Selection.Information(wdActiveEndPageNumber)

On en apprend tous les jours

[ouskel'n'or]

Sans Select, tu peux faire ça :

Code :

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

1
2
3
With ActiveDocument.Range
    MsgBox .Information(wdActiveEndPageNumber)
End With

J'aime pas les select...
(j'essaie de me rattrapper )

[megapacman]

c'est excatement ca merci

Code :

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

1
2
3
4
5
 
 
With ActiveDocument.Range
    MsgBox .Information(wdActiveEndPageNumber)
End With

[AlainTech]

Et sans With:

Code :

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

MsgBox ActiveDocument.Range.Information(wdActiveEndPageNumber)