Bonjour, Je souhaite via VB Express 2005 insérer un hyperlien dans la cellule d'un
tableau j'utilise pour ce la la méthode suivante : Sub InsererHyperLienDansTableauParPosition(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) 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 = " - " oSel = oDocument.CurrentController.Frame 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 Mon hyperlien est bien insérer mais e dehors du tableau je pense qu'il sagit
d'une erreur de positionnement du curseur comment corriger ce bout de code ? Merci d'avance pour votre aide précieuse Bon Dev

Cezame