Jette un coup d'oeil là dessus. Je me pencherai un peu plus sur ton cas pour faire les mises en forme demain mais déjà ça te permettra de te lancer. J'aurai mon bout de code que j'ai mis en place pour un cas un peu semblable, ce sera plus simple!

J'ai pas gagné mon titre de Power Excel pour rien!

A demain!

Pour donner suite à ma proposition, je te donne un nouveau lien qui regroupe pas mal de fonction de mise en forme des cellules Excel :

http://support.microsoft.com/kb/219151/fr

Je bidouille de mon coté pour tenter de te fournir une ébauche de script propre ;)

Ci joint une copie d'écran du resultat donné via la fonction de la librairie et du .pbd DW2XLS trouvé sur le net. En un appel de fonction j'ai le resultat suivant, c'est top mais bon faut passer 2 message d'erreurs avant quand même :



J'ai déjà un programme VB qui dessine un planning à l'écran et qui me mets en forme le tout zone d'impression y compris.

Dans l'absolu, je cherche un moyen générique (car on va me demander l'edition d'autre ecran avec DW dans peu temps, j'anticipe...) d'exporter une DW telle qu'affichée à l'écran dans une feuille excel... voilà tout lol. Une fois le programme écrit je serai peinard pour editer n'importe quel écran dans excel.

Apparement on a déjà écrit un objet PB qui utilise les objets OLE pour exporter des données de la base vers EXCEL, je vais donc mixer l'ensemble et voir ce que ca peut faire... c'est la mise en forme qui va etre chiante je le sens bien !

tu le trouveras dans "Cours, documentations...et divers"

pick ouic a écrit:

il y a le programme de DW2XLS qui traine sur ce forum... il suffti apres de le cracker avec pbkiller... et tu recupereras la version originale... tu n'auras pas ces messages intempestifs...

Pour économiser 55€ (ou 1h de travail) je ne crois pas que ça vaille le coup de cracker cette librairie.
Celà ruinera t'il votre employeur ?

Imaginez un écrivain qui vole des livres...

Dois je rappeler à quel point yBrowser était un bon produit ?
Que la boite a mis la clef sous la porte et que le produit a disparu ?
Les éditeurs d'add-ons PB sont fragiles

j'ai donné l'indice...
donc, en cherchant tu trouveras la version originale sur ce forum... et le pbkiller fonctionne bien.

long numcols , numrows , c, r
OLEObject xlapp , xlsub
int ret

// Set the # of columns and rows to process
// Currently Set to copy the entire DW

numcols = long(dw_1.Object.DataWindow.Column.Count)
numrows = dw_1.RowCount()

// Create the oleobject variable xlapp
xlApp = Create OLEObject

// Connect to Excel and check the return code
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if ret < 0 then
  MessageBox("La connection à Excel a échoué !",string(ret))
return
end if

// Open a particular Excel file
//xlApp.Application.Workbooks.Open("k:\test-bruno.xls") //,false,true
// Make Excel visible
xlApp.Application.Visible = true

// Resolve the Excel reference once
// This technique shortens the script and improves performance
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]

// Loop thru the Datawindow and Excel sheet
// The for/next loop copies all rows for each column
For c = 1 to numcols
For r = 1 to numrows
xlsub.cells[r,c] = dw_1.object.data[r,c]

Next
Next

// Save opened file
//xlApp.Application.Activeworkbook.Save()

// SaveAs a different filename
//xlApp.Application.Activeworkbook.SaveAs("c:\file2.xls")

// clean up
messagebox("Fermeture du document","Avez-vous fini de vous servir du document ?")
xlApp.DisConnectObject()
Destroy xlapp

Le prob de la ligne en rouge est qu'elle me récupère le contenu de toutes les colonnes de la DW mais celles qui ne sont pas affichées, moi je n'en veux pas... Comment attaquer de manière générique les colonnes qui sont visible à l'écran ?

Dernière modification par fmxstyle (28-08-2007 09:59:15)

fmxstyle a écrit:

Le prob de la ligne en rouge est qu'elle me récupère le contenu de toutes les colonnes de la DW mais celles qui ne sont pas affichées, moi je n'en veux pas... Comment attaquer de manière générique les colonnes qui sont visible à l'écran ?

Just a shoot in the dark :

For c = 1 to numcols
 IF dw_1.Describe("#c.Visible")=1 THEN
   For r = 1 to numrows
   xlsub.cells[r,c] = dw_1.object.data[r,c]

   Next
 End if
Next

Wahouuuuu Wazou1812 !

Ouuups, oui bien sûr JCZ
ça m'apprendra à taper du code en aveugle

J'vois qu'on s'inspire de "mon" code finalement

Chrnico a écrit:

Mr Pink Eyes a écrit:

J'vois qu'on s'inspire de "mon" code finalement

C'est marrant l'objet Excel de ma bibliothèque perso ressemble aussi à ça.
Comme quoi les mêmes problèmes génèrent souvent les mêmes solutions

ouais, mais dans ton code t'as pas

// Open a particular Excel file
//xlApp.Application.Workbooks.Open("k:\test-bruno.xls") //,false,true

Dernière modification par Mr Pink Eyes (28-08-2007 11:33:28)

Mr Pink Eyes a écrit:

Chrnico a écrit:

Mr Pink Eyes a écrit:

J'vois qu'on s'inspire de "mon" code finalement

C'est marrant l'objet Excel de ma bibliothèque perso ressemble aussi à ça.
Comme quoi les mêmes problèmes génèrent souvent les mêmes solutions

ouais, mais dans ton code t'as pas

Code: pb

// Open a particular Excel file
//xlApp.Application.Workbooks.Open("k:\test-bruno.xls") //,false,true

Non, mais mon code traite aussi les computes, il limite à 255 colonnes l'export (hé oui faut y penser), il ne prend pas les colonnes dont toutes les lignes sont vides, il récupère les libellés de DDDW ou DDLB et non leur valeur, il permet de changer l'ordre des colonnes à l'export grace à un code dans le tag de la colonne, etc...