Discussion :

[fabienazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

As-tu lu ce tuto : http://silkyroad.developpez.com/VBA/PiloterOpenOffice/

Tu devrais y trouver des pistes.

Philippe