Dim aPicker As com.sun.star.ui.dialogs.XFilePicker
  

    aPicker.getDisplayDirectory()
  

    Dim intVar as Integer
  

    Sub Some_Calc_UNO_Types
    REM A spreadsheet object
        Dim oSheet As com.sun.star.sheet.XSpreadsheet
        oSheet = ThisComponent.getSheets().getByIndex(0)
    REM A cell object
        Dim oCell As com.sun.star.table.XCell
        oCell = oSheet.getCellByPosition(0,0)
    End Sub
  

Aidez-nous !