Discussion :

[getea85]

Bonjour,

J'avais créé il y a quelques temps une appli sous VB6 qui, notamment, lisait des données dans un fichier texte puis lançait Excel pour intégrer les données et des graphes.

Mais Excel va disparaitre chez nous, il faut que que je passe par OOo.

J'ai un souci quand je crée mon fichier Calc, la feuille apparait à l'écran alors que je voudrais que ça se fasse en caché.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set oserv = CreateObject("com.sun.star.servicemanager")
Set odesk = oserv.createinstance("com.sun.star.frame.Desktop")
Set doc = odesk.loadcomponentfromurl("private:factory/scalc", "_hidden", 0, args)
Set osheet = doc.getsheets().getbyindex(0)


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

Le fichier apparait au niveau de la ligne en gras malgré le "hidden".

Avez vous des idées ?

[Bidouille]

En OOo Basic, cela donne :

Code :

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

1
2
3
4
5
6
7
8
Dim adr As String
Dim prop(O) As New com.sun.star.beans.PropertyValue   
prop(0).Name = "Hidden"
prop(0).Value = True          
 
adr = ConvertToURL("chemin_du_fichier")
 
oDoc = StarDesktop.LoadComponentFromURL(adr, "_blank", 1, prop())

[getea85]

Merci, j'ai fait quelque chose d'approchant et qui marche :

Code :

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

1
2
3
 
Set args(1) = setOOoProp("Hidden", True)
Set doc = odesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)

avec la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function setOOoProp(cName, uValue) As Object
    Dim oPropertyValue As Object
    Dim oSM As Object
 
    Set oSM = CreateObject("com.sun.star.ServiceManager")
    Set oPropertyValue = oSM.bridge_getstruct("com.sun.star.beans.PropertyValue")
    oPropertyValue.Name = cName
    oPropertyValue.Value = uValue
 
    Set setOOoProp = oPropertyValue
 End Function

Galère de commander OOo avec VB6, je trouve très peu d'exemples de codes

Maintenant, il faut que je crée des graphiques