Discussion :

[getea85]

Bonjour,

Sous VB6, j'ai créé le code suivant pour rentrer des données sous une feuille Calc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'création instance OO
Set oserv = CreateObject("com.sun.star.servicemanager")
Set odesk = oserv.createinstance("com.sun.star.frame.Desktop")
'paramétrage argument pour lancer OOCalc en caché
Set args(1) = setOOoProp("Hidden", True)
'lancement Calc
Set doc = odesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
Set osheet = doc.getsheets().getbyindex(0) '0 : 1ere feuille du classeur

'getCellByPosition(indice COLONNE, indice LIGNE)
For j = 1 To nb_lignes_données
 For jj = 1 To nb_colonnes
  osheet.getCellByPosition(jj - 1, j - 1).SetString (Val(Tableau(j, jj)))
 Next jj
Next j

With osheet.getCellByPosition(2, 2)
.CharWeight = com.sun.star.awt.FontWeight.Bold
End With

La mise en gras de la cellule (code en gras justement) bloque.

Message erreur exécution 424, "un objet est requis".
Je ne vois pas pourquoi ??

[Bidouille]

Voir ce sujet :
http://www.forum-openoffice.org/foru...-0-0-asc-.html

Bonne lecture

[getea85]

Code :

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

1
2
3
With osheet.getCellByPosition(2, 2)
.CharWeight = com.sun.star.awt.FontWeight.Bold
End With

Ce qui plante dans le code, c'est le "com.sun.star......"

Il faut un nombre qui semble être 150 pour le gras :

Code :

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

.CharWeight = 150

Idem pour de l'italique :

Code :

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

1
2
3
With osheet.getCellByPosition(2, 2)
.CharPosture = com.sun.star.awt.FontSlant.ITALIC
End With

ne marche pas.

Il faut

Code :

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

.CharPosture = 2