Bonjour,

string ls_lastclipboard
ls_lastclipboard = clipboard(ds_tmp.describe("datawindow.data"))
oleXls.Object.ActiveSheet.Paste
clipboard(ls_lastclipboard)

Bon ok, c'est un peu du "raw" copy mais ça a le mérite d'être fait en peu de ligne de code

Dernière modification par xlat (19-12-2011 16:16:28)

Bonjour,

J'ai finalement utilisé la solution For...Next , puisque notamment c'est celle que j'avais commencé à coder

// 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

Et que la solution clipboard ci dessous ne fonctionne pas, le string ls_lastclipboard est égal à '' avec la syntaxe ci dessous.

string ls_lastclipboard
ls_lastclipboard = clipboard(ds_tmp.describe("datawindow.data"))
oleXls.Object.ActiveSheet.Paste
clipboard(ls_lastclipboard)

Et j'ai bien utilisé la solution ImportClipBoard pour importer toutes les feuilles d'un classeur Excel, qui fonctionne très bien et méthode très très rapide en execution.
Il faut simplement faire attention, car la datastore dans laquelle est importer les feuilles contient également des lignes vides (en fonction de ce qui a été fait dans le fichier excel), donc attention si besoin de faire un update de la datastore, il faut supprimer les lignes vides avant.


J'ai un dernier problème sur ces feuilles importées, lorsque la colonne de la datastore est de format décimal et dans le fichier Excel, la colonne a le séparateur de milliers() de cocher. Dans ce cas, l'importation ne peut se faire, il faut donc que je trouve une solution pour les colonnnes de type décimal de décocher cet indicateur avant de commencer l'importation.

Avez-vous une idée ?

Merci

xlat a écrit:

wazou1812 a écrit:

Et que la solution clipboard ci dessous ne fonctionne pas, le string ls_lastclipboard est égal à '' avec la syntaxe ci dessous.

Code: pb

string ls_lastclipboard
ls_lastclipboard = clipboard(ds_tmp.describe("datawindow.data"))
oleXls.Object.ActiveSheet.Paste
clipboard(ls_lastclipboard)

C'est que... comment dire... clipboard retourne la valeur du presse papier precedente, ce qui permet de ne pas vautrer d'autres algos qui l'utiliseraient... (non je ne pense pas en particulier à l’auto complétion de l'IDE...non pas du tout hein...) d'où aussi le nom de la variable ls_lastclipboard

Et si je mets , avant

clipboard('')

Dans ce cas la valeur ls_lastclipboard est vide,  apparemment, il ne peut mettre le contenu de la datastore dans le copier/coller.

Et une idée pour mon autre question, sur le format des colonnes ?

Merci

Effectivement avec

::clipboard

cela fonctionne mieux, mais malheureusement le paste dans le fichier Excel de plusieurs lignes et plusieurs colonnes, Excel n'aime pas du tout, donc je laisse tomber cette solution, et e garde la solution for  next sur les lignes et les colonnes.

Et pour mon autre problème, dans Excel,

les zones avec un séparateur ont ce type de format Selection.NumberFormat = "#,##0.0000"  (avec 4 décimales)

et celle qui n'ont pas le séparateur sont comme cela Selection.NumberFormat = "0.0000"

Il faut donc avant la commande ImportClipBoard (2)  de chacune des feuilles, que je parcours la feuille avec l'OLE afin de repérer les colonnes susceptibles de me poser problème, car ces zones sont importées dans une datastore avec une zone définie en décimal(2) ou décimal(4) dans le but de faire update sur la datastore.
Malheureusement, le format Excel mets un blanc pour séparer les milliers, ce qui ne peut être accepté par la dw lors de l'import.