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

[bbil]

Voici, un petit probléme VBA Word, pour lequel j'ai pas trouvé de solution sastifaisante...

j'aurai besoin de connaître le numéro de page d'un range ( par exemple la sélection courante) dans un document Word..

Bon j'ai réussi à contourner le probléme par une procédure un peu "bourrine".. qui parcours les pages une à une jusqu'à temps qu'elle dépasse "le range"..
(bon elle as plein de défaut.., plus il y as de page plus c'est long, elle ne gére pas les sections..)

Code :

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
29
30
31
32
33
34
35
 
' Determine Numero de page
' donner un range en paramétre
' (selection....)
' la fonction retourne le numéro de page
' du début du range
Function NumeroPage(r As Range) As Integer
 Dim MemoSelection As Range
 Dim MemoPrec As Range
 Dim MonDoc As Document
 Dim i As Integer
 Dim dPos As Double
 
 Set MonDoc = r.Parent
 Set MemoSelection = MonDoc.ActiveWindow.Selection.Range
 MonDoc.ActiveWindow.Selection.HomeKey Unit:=wdStory 'Aller au début du doc
 Do
  Set MemoPrec = MonDoc.ActiveWindow.Selection.Range
  i = i + 1
  MonDoc.ActiveWindow.Selection.GoTo What:=wdGoToPage, Which:=wdGoToRelative, Count:=1
  dPos = MonDoc.ActiveWindow.Selection.Range.Start
 
 
  Loop While MemoPrec.Start <> dPos And r.Start > dPos
 
  MemoSelection.Select
  NumeroPage = i
End Function
'
'  Procédure de test 
'
Sub test()
 Debug.Print NumeroPage(Selection.Range)
 
End Sub

Allez bon week-end à tous ..

[SilkyRoad]

bonsoir Bbil

as tu essayé

Code :

MsgBox Selection.Information(wdActiveEndPageNumber)

bon week end
michel

[bbil]

Merci SilkyRoad, je suis complétemet passé à coté de cette propriété information ..cela marche..



... cela mérite un post dans Contributions FAQ-VBA.. ! si tu t'en charge pas d'ici là je ferai cela lundi...