Discussion :

[coucoucmoi]

Bonjour à tous,
j'ai un TExcelApplication dans mon projet.
j'ouvre un fichier et sélectionne manuellement une zone.
je voudrais, en appuyant sur un bouton, copier cette zone dans le presse papier
comme ca, en appuyant sur un autre bouton (ou en suivant), je collerai cette sélection dans une autre fichier.
En gros, faire un "ctrl c" mais sans sendkeys

merci

[ShaiLeTroll]

Quand tu dis "sélectionne manuellement une zone", tu le fais dans Excel ?
A ce moment, le Focus est dans Excel pas dans ton application Delphi ! Est-ce correct ?
Tu veux faire toi même la récupération des données par Range[] ou Cells[] ?
Regarde l'objet TClipboard

[coucoucmoi]

je sélectionne dans excel une plage de cellule
je reviens dans mon appli
et je ve faire copier.
Mon probleme c'est de récupérer la plage de vellule précédemment sélectionnée dans excel.
Un truc dans le genre ExcelApplication1.selection.copy;

[ShaiLeTroll]

Si je ne l'ai jamais tenté mais en théorie

Dans Excel, tu fais un CTRL+C normal !
Tu retournes dans ton programme Delphi, regarde la propriété Clipboard.HasFormat, tu auras probablement soit CF_TEXT soit CF_COMPONENT
Avec Clipboard.AsText, tu devrais récupérer le texte de la selection, comme lors d'un copier vers Notepad avec TAB comme séparateur de colonne

Sinon, effectivement, l'autre solution, tu sélectionnes dans Excel sans rien de plus, tu retournes dans ton application "ExcelApplication1.Selection" devrait contenir ce qu'il faut, comme tu utilises l'objet en Early Bidinds, tu ne devrais pas avoir du mal à trouver la bonne propriété, comme Cells[]

un code genre

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  R: Range; // ou IRange
...
  Range := ExcelApplication1.Selection;
 
  for x := 1 to Range.Columns.Count do
  begin
    for y := 1 to Range.Rows.Count do
    begin
      ... := Range.Cells[x, y];

J'avais cela mais avec TMS FlexCell, dans mon cas, c'était des zones nommées que je remplissais !


EDIT, lol, 16h38 - 16h39, on se suit, tu es donc passé en LateBinding, normalement cela reste la même chose !

Tu es sur que Copy fait ce que tu cherches, il me semblait que cela servait à copier une Range en cours dans une autre Cellule, mais à l'intérieur du fichier Excel pas pour en extraire les valeurs !

EDIT 2 : le sujet importer des données excel dans une application delphi devrait te plaire aussi !

[coucoucmoi]

Le copy tel que je l'ai mis ne copie que ce qui est sélectionné (ce que je veux).
UsedRange sélectionne toutes les cellules utilisées.

TExcelApplication ne marche pas pareil, comme sur ton lien, je fais un CreateOleObject, c'est plus simple ensuite

en tout cas, merci de ton aide

[coucoucmoi]

J'ai trouvé !
Au lieu d'utiliser un objet TExcelApplication, j'utilise un

OleApplication2 := CreateOleObject('Excel.Application');
Puis
OleApplication2.selection.copy;

maintenant, il faut juste que je refasse tout en fonction de ca

merci