Récupérer cellule active open office

Bonjour,

Je ne suis pas programmeur de formation mais j'ai développé un programme en vb.net pour mon boulot. Actuellement je lis la cellule active d'un classeur excel à l'aide du code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Sub Lect_xls()
        Dim appxls As Microsoft.Office.Interop.Excel.Application
        Dim workbook As Microsoft.Office.Interop.Excel.Workbook
        Dim sheet As Microsoft.Office.Interop.Excel.Workbook
        Dim var As String
        Call Raz_var()
        On Error Resume Next
        appxls = GetObject(, "Excel.Application")
        If Err.Number = 0 Then
            workbook = appxls.ActiveWorkbook
            var = appxls.ActiveCell.Value.ToString
            If My.Settings.Form_mini_active = False Then
                Form_Principal.Text1.Text = var
                Form_Principal.cmdok.Enabled = False
            Else
                Form_mini.Text1.Text = var
                Form_mini.cmdok.Enabled = False
            End If
            Call prog_ok(var)
        Else
            MsgBox("Aucun classeur ouvert.", MsgBoxStyle.Exclamation, "Erreur Excel.")
        End If
    End Sub

Suite au un remplacement du parc informatique, nous envisagon de passer sur openoffice pour le peut de fonctionalité que nous utilisons sur excel.

Le problème c'est que je n'arrive pas à récupérer la cellule active d'un classeur Open office.

Si quelqu'un à une solution à me proposer...

Merci