XL 2013 [Résolu] Isèrer un texte par boucle dans des signets Word

[Lone-wolf]

Bonjour à tous

D'après un exemple trouvé sur Developpez.com, j'éssaie d'inserer par boucle du texte à partir d'Excel; donc 12 lignes - 12 signets déjà créés. Si je met doc.BookMarks("Ligne1") à 12, pas de souci, mais dans une boucle, la macro tourne en rond. Ici j'ai créé un tableau pour faire un nouveau test, mais rien à faire. J'ai aussi fait un test en créant les signets par macro, mais à la fin, au lieu d'avoir 12 lignes(ou paragraphes), il y en a que 6.

   With Feuil1
   derlig = .Range("a" & Rows.Count).End(xlUp).Row
   tablo = .Range("a1:a" & derlig)
    For i = LBound(tablo, 1) To UBound(tablo, 1)
    doc.Bookmarks("Ligne" & i).Range.Text = tablo(i, 1)
    Next i
  End With

Auriez-vous une idée?

 

[Lone-wolf]

J'ai trouvé l'erreur qui était "Ligne" & 1 au lieu de "Ligne" & i.