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![]()
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![]()
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
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![]()
et
voir
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Debug.print ActiveDocument.range.Information(wdActiveEndAdjustedPageNumber)
[VBA-W] Trouver le numero de Page d'une Selection (range)
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
On en apprend tous les jours
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Selection.WholeStory MsgBox Selection.Information(wdActiveEndPageNumber)![]()
Sans Select, tu peux faire ça :
J'aime pas les select...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 With ActiveDocument.Range MsgBox .Information(wdActiveEndPageNumber) End With
(j'essaie de me rattrapper)
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
Et sans With:
Code : Sélectionner tout - Visualiser dans une fenêtre à part MsgBox ActiveDocument.Range.Information(wdActiveEndPageNumber)
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager