Bonjour, Je recherche la syntaxe utiliser pour déplacer le curseur d'écriture dans une
cellule d'un tableau à l'intérieur d'un document oWriter ? Sous VB express 2005 j'ai utiliser sans succès cette méthode : Sub HyperLienTableauPosition(ByVal sNomTableau As String, ByVal sLigneCellule As
Integer, ByVal sColonneCellule As Integer, ByVal sTexteAAfficher As String,
ByVal sURL As String) Dim oMonTexte As Object Dim oMonCurseur As Object Dim oMonTableau As Object Dim oMaCellule As Object Dim sDocument As String Dim Arguments(4) As Object sDocument = ConvertToUrl(sURL) oSel = oDocument.CurrentController.Frame If oDocument.TextTables.hasByName(sNomTableau) Then oMonTexte = oDocument.Text oMonCurseur = oMonTexte.CreateTextCursor oMonCurseur.gotoNextParagraph(False) oMonCurseur.gotoNextParagraph(False) oMonTableau = oDocument.TextTables.getByName(sNomTableau) oMaCellule = oMonTableau.getCellByPosition(sColonneCellule - 1, sLigneCellule -
1) oMaCellule.string = "-"

Arguments(0) = MakePropertyValue("Hyperlink.Text", sTexteAAfficher) Arguments(1) = MakePropertyValue("Hyperlink.URL", sDocument) Arguments(2) = MakePropertyValue("Hyperlink.Target", "") Arguments(3) = MakePropertyValue("Hyperlink.Name", sTexteAAfficher) Arguments(4) = MakePropertyValue("Hyperlink.Type", 1) oDispatcher.executeDispatch(oSel, ".uno:SetHyperlink", "", 0, Arguments)

End If End Sub Après avoir créé mon tableau avec la méthode suivante : Sub InsererUnTableauUNO(ByVal sNombreLignes As Integer, ByVal sNombrecolonnes As
Integer, ByVal sNomTableau As String) Dim Arguments(3) As Object Arguments(0) = MakePropertyValue("TableName", sNomTableau) Arguments(1) = MakePropertyValue("Columns", sNombrecolonnes) Arguments(2) = MakePropertyValue("Rows", sNombreLignes) Arguments(3) = MakePropertyValue("Flags", 11) oSel = oDocument.CurrentController.Frame oDispatcher.executeDispatch(oSel, ".uno:InsertTable", "", 0, Arguments) End Sub Mon problème est que le curseur d'acriture ne se déplace pas dans la cellule
choisie et l'hyperlien est inséré à la position du curseur. Lorsque je fais une simple écriture avec la méthode suivante cela fonctionne : Sub EcrireTableauPosition(ByVal sNomTableau As String, ByVal sLigneCellule As
Integer, ByVal sColonneCellule As Integer, ByVal sValeur As String) Dim oMonTexte As Object Dim oMonCurseur As Object Dim oMonTableau As Object Dim oMaCellule As Object If oDocument.TextTables.hasByName(sNomTableau) Then oMonTexte = oDocument.Text oMonCurseur = oMonTexte.CreateTextCursor oMonCurseur.gotoNextParagraph(False) oMonCurseur.gotoNextParagraph(False) oMonTableau = oDocument.TextTables.getByName(sNomTableau) oMaCellule = oMonTableau.getCellByPosition(sColonneCellule - 1, sLigneCellule -
1) oMaCellule.string = sValeur End If End Sub Merci d'avance pour votre aide en espérant que quelqu'un pourra corriger mon
code Bon Dev Cezame