Openoffice & vbs

Bonjour,

Je ne sais pas si je suis au bon endroit pour poser ma question.
J'ai un problème pour effectuer une insertion de cellule dans calc d'openoffice grâce à vbs.

Voici mon code
Code:

1 2 3 4 5 6 7 8 9 Dim args() Fichier = "file:///g:/template.ods" Set serviceManager = CreateObject("com.sun.star.serviceManager") Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop") Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, args) set sheets = Document.getSheets() set fsheet = sheets.getByIndex(0) Set cell = fsheet.getCellByPosition(1, 1) Set ncell = fsheet.insertCells(cell, com.sun.star.sheet.CellInsertMode.DOWN)
Le problème est que je ne sais pas comment créer/obtenir com.sun.star.sheet.CellInsertMode.DOWN.
(http://api.openoffice.org/docs/commo...ml#insertCells )

Merci

Fabien