Discussion :

[Deedoo2000]

Bonjour,

Je dispose d'un control datawindow qui s'appelle pdw_master.
Le dataobject de ce contrôle est d_report_detail_intermediaire.
Ce dernier est composé de 3 reports (qui sont des crosstab) dans le champ detail.
Mon problème est que je n'arrive pas à les exporter sous Excel. L'impression marche bien en executant le script pdw_master.Print() mais je n'arrive pas à utiliser la méthode SaveAs dans ce cas précis.
Pourriez-vous m'aider ?
Merci

[Thig]

Bonjour

A ma connaissance, il n'est pas possible d'exporter au format Excel une dw composite.
Par contre, on peut exporter chaque dw contenue dans la composite en faisant :

Code :

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

1
2
pdw_master.getChild( "d_xxx", ldwc)
ldwc.saveAs(...)

A+ Thig

[Deedoo2000]

Bonjour

A ma connaissance, il n'est pas possible d'exporter au format Excel une dw composite.
Par contre, on peut exporter chaque dw contenue dans la composite en faisant :

Code :

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

1
2
pdw_master.getChild( "d_xxx", ldwc)
ldwc.saveAs(...)

A+ Thig

Merci, ça marche !
Par contre est-il possible d'exporter mes deux dwc dans deux feuilles d'un même classeur excel ?

[Thig]

Bonjour

Directement depuis PB c'est pas possible.

Par contre, il doit être possible de faire une macro sous Excel qui fait ça et de lancer cette macro depuis PB en utilisant un OLEObject ...


A+ Thig

[Deedoo2000]

Bonjour

Directement depuis PB c'est pas possible.

Par contre, il doit être possible de faire une macro sous Excel qui fait ça et de lancer cette macro depuis PB en utilisant un OLEObject ...


A+ Thig

Ok merci !

[Deedoo2000]

Bonjour,

J'ai encore un problème avec ce point.
J'essaie d'écrire les deux reports de ma datawindow dans une même feuille Excel via un OLE.
Voici comment je m'y prends :

- je déclare en datawindowchild mes deux reports
- je récupère le nombre de lignes et colonnes de mes deux dwc :

Code :

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

1
2
3
4
5
ll_numcols = long(ldwc_f1.describe("Column.Count"))
ll_numrows = ldwc_f1.RowCount()

ll_numcols2 = long(ldwc_f2.describe("Column.Count"))
ll_numrows2 = ldwc_f2.RowCount()

- je crée mon lien OLE

Code :

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

1
2
xlsheet= CREATE OLEObject
ret1 = xlsheet.ConnectToNewObject( "excel.application" )

- je rends visible Excel

Code :

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

xlsheet.Visible = TRUE

- ensuite il y a un pb : je souhaite créer le fameux raccourci

Code :

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

xlsub = xlsheet.Application.ActiveWorkbook.Worksheets[1]

(xlsub est déclaré comme OLE)
Mais à l'éxécution je rencontre ce message d'erreur :

Null object reference at line 80 in ue_export event of object w_imp_inter.

- je me débarasse de ce message en n'utilisant pas xlsub et en écrivant la ligne d'après entièrement.

- je copie ma première dwc

Code :

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

1
2
3
For ll_c = 1 to ll_numcols
For ll_r = 1 to ll_numrows
xlsheet.Application.ActiveWorkbook.Worksheets[1].cells[ll_r,ll_c] = ldwc_f1.getitemnumber(ll_r, ll_c)

- je copie la deuxième, mais je souhaite le faire dans la même feuille, à coté de la première

Code :

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

1
2
3
For ll_c = 1 to ll_numcols2
For ll_r = 1 to ll_numrows2
xlsheet.Application.ActiveWorkbook.Worksheets[1].cells[ll_r+20,ll_c+3] = ldwc_f2.getitemnumber(ll_r, ll_c)

- je sauvagarde le résultat :

Code :

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

xlsheet.Application.Activeworkbook.SaveAs(ls_file)

Mais à l'éxécution, au moment de sauvegarder j'ai ce message d'erreur :

Null object reference at line 93 in ue_export event of object w_imp_inter.

Je débute dans les OLE, quelqu'un pourrait-il m'aider ?

[vootbrain]

LU,

Tu aurais plutôt intérêt à créer une datawindow "external", qui correspondrait a l'assemblage de tes deux dw. (tout faire à la main ^^)

De là, tu la charges en datastore et tu la remplis selon tes besoins ...

Code :

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

1
2
3
4
      ds.object."champ_1"[ligne] = dw1.object."champ_1"[ligne]
      ds.object."champ_2"[ligne] = dw2.object."champ_1"[ligne]

  etc...................

Puis, seulement après le remplissage de ta datastore (ac tes 2 dw) tu l'export avec ton save_as.

voot.