Bonsoir,
La raison est simple, la première ligne de code (Selection.HomeKey Unit:=wdStory, etc) n'est pas exécutée lors du premier lancement
Pourquoi ?
Par avance, merci.
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 Sub test() Dim tablo(), i As Integer, ok As Boolean Selection.HomeKey Unit:=wdStory, Extend:=wdMove 'On se place en début de document Selection.Find.Style = ActiveDocument.Styles("Titre 1") Do With Selection.Find .Forward = True .Format = True ok = .Found .Execute .Wrap = wdFindStop End With If ok Then i = i + 1 ReDim Preserve tablo(i) tablo(i) = Selection ElseIf Not ok Then Exit Do End If Loop While ok 'simple contrôle par affichage des titres For i = 1 To UBound(tablo) MsgBox i & " - " & tablo(i) Next End Sub
Partager