Bonjour, Je m'essaie à la programmation avec Oo2, je voudrais aller à la fin du document, sauter une ligne et recopier un tableau qui existe déjà. Tout va bien pour aller en fin de document et sauter une ligne mais pour recopier le tableau j'ai une erreur que je ne comprends pas .

Voici le message d'erreur Runtime error BASIC. Une exception s'est produite : Type : com.star.uno.RuntimeException Message : SwXTextTable: already attached to range ..

Voici le texte de la macro :

REM ***** BASIC ***** Option Explicit

sub new_cadre() dim mondocument as object dim monTexte As Object dim curseurVisible as Object dim monCurseur as object dim saut as Integer dim maTable as Object rem ------------------------- monDocument = ThisComponent monTexte = monDocument.Text curseurVisible = monDocument.CurrentController.ViewCursor saut = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK monCurseur = monTexte.createTextCursor rem ------------------------- curseurVisible.jumpToLastPage curseurVisible.jumpToEndOfPage monTexte.insertControlCharacter(curseurVisible, saut, false) maTable = monDocument.createInstance("com.sun.star.text.TextTable") maTable = monDocument.TextTables.getByName("rencontre") monTexte.insertTextContent(curseurVisible, maTable, false) end sub

c'est sur l'avant dernière ligne que l'erreur se produit, le tableau existe bien dans le document et le nom est bon.

Si vous avez une idée je suis preneur. Merci d'avance.