Insertion de valeur d'une ListBox dans un tableau

[SebAlaskla]

Bonjour

J'ai un petit souci avec mon code (ci-dessous). il marche très bien dans un document Word avec seulement un tableau, seulement il ne fonctionne pas dans un document plus complexe avec des paragraphes, sommaires etc.

Le code :

Code :

1
2
3
4
5
6
7
Dim Couverture As String
 
    If LB_couverture.ListIndex = -1 Then Exit Sub
    Couverture = LB_couverture.List(LB_couverture.ListIndex) 
 
    ActiveDocument.Tables(1).Cell(2, 2).Range.Delete
    ActiveDocument.Tables(1).Cell(2, 2).Range.Text = Couverture