Discussion :

[DURVILLE]

Je désire copier des valeurs (depuis D6) dans un fichier EXCEL.
Le code fonctionne lorsque j'utilise une copie de VALEUR.
J'ai bien mis ComObj dans Uses.

Par contre j'ai un message d'erreur lorsque je veux copier du texte dans une cellule.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Var
 
 my_ole :Variant;
 
.../...
Procedure ........
 
 my_ole:=CreateOleObject('Excel.Application'); // Obligatoire
 
  // le chemin complet semble nécessaire bien que le fichier XLS  soit avec le source Delphi
 
  my_ole.WorkBooks.Open('D:\DOCUMENTS YVES\DELPHI Projects\essai yd ole excel mars 2010\Cardio.xls');
 
  (* ci-dessous : les 2 écritures Worksheets ou Sheets sont admises   *)
 
  my_ole.workbooks[1].Sheets['Pro'].Activate; // si on veut voir la feuille sélectionnée qui porte un NOM
 
   my_ole.WorkBooks[1].Sheets['Pro'].Cells[1,2].Value:=250;  // ajout de la valeur 250
 
// La ligne ci-dessous ne fonctionne pas : 
 
// MESSAGE ERREUR : impossible de définir la propriété text de la classe Range
 
  my_ole.WorkBooks[1].Sheets['Pro'].Cells[1,5].Text:='TRUC';  // ajout de TEXTE 
 
 
  my_ole.visible:=TRUE;   // on voit la feuille et son ajout

Je dois faire une erreur de syntaxe ...
Merci de me corriger.

[Invité1]

bjr

regardes ici

http://www.developpez.net/forums/d80...db-vers-excel/

bonne chance

[DURVILLE]

J'avais vu ce code...
qui diffère du mien.

Celui que je possède provient d'un excellent tuto de Colibri mais il ne parle que de valeurs jamais de texte.
Je ne trouve pas d'aide sur :
WorkSheets[1].Cells[ligne, colonne]. xxx

xxx = Value, Formula,... Text je ne l'ai pas inventé mais ça ne marche pas chez moi...

[BuzzLeclaire]

J'avais vu ce code...
qui diffère du mien.

Celui que je possède provient d'un excellent tuto de Colibri mais il ne parle que de valeurs jamais de texte.
Je ne trouve pas d'aide sur :
WorkSheets[1].Cells[ligne, colonne]. xxx

xxx = Value, Formula,... Text je ne l'ai pas inventé mais ça ne marche pas chez moi...

Salut Regarde export-multi-stringgrid-vers-excel

Bye

[Gilbert Geyer]

Bonjour,

Par contre j'ai un message d'erreur lorsque je veux copier du texte dans une cellule.

... Bizarre, car chez moi (WinXp + Delphi5) ce code marche très bien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
unit uExcel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  my_ole : Variant;

implementation

{$R *.DFM}

function  RepAppli : string; { renvoie Rep avec \ terminal }
begin     RepAppli:=ExtractFilePath(Application.ExeName); end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  my_ole:=CreateOleObject('Excel.Application');

  my_ole.WorkBooks.Open(RepAppli+'Eval_Dep.xls');
  //my_ole.workbooks[1].Sheets['FEVRIER'].Activate; //<- si on veut activer une feuille ciblée portant un NOM
  my_ole.workbooks[1].Sheets[1].Activate; //<- sinon elles sont désignées par leur N° Sheets[2] etc

  my_ole.WorkBooks[1].Sheets[1].Cells[3,3].Value:=8888888;    // ajout de la valeur 8888888 en C3
  my_ole.WorkBooks[1].Sheets[1].Cells[4,4].Value:='MonTexte'; // ajout de 'MonTexte' en D4 et le texte s'affiche effectivement  
  my_ole.visible:=TRUE;
end;

end.

A+.

[Gilbert Geyer]

Re-bonjour,

Je dois faire une erreur de syntaxe ...

Je parie que dans ton fichier Cardio.xls les Sheets ne portent pas le nom de 'Pro' remplaces donc partout pour voir Sheets['Pro'] par Sheets[1].

Vérifier également si le chemin d'accès au fichier 'D:\DOCUMENTS YVES\DELPHI Projects\essai yd ole excel mars 2010\Cardio.xls') est correct.

A+.

[DURVILLE]

Résolu :

En fait , comme le fait remarquer Gilbert G., le terme "Value" fonctionne aussi bien pour les chaines que pour des valeurs numériques.
"Cells(l,c).Formula" fonctionne aussi ...

Donc "text" je laisse tomber; ça ne doit pas exister sous cette forme.

Mon code (nom des feuilles) et mon chemin étaient bien OK.

J'ai dû être trompé par une autre erreur qui s'était glissée au moment où j'ai essayé "Value" pour du texte !!!
Désolé de vous avoir fait chercher ...

[BuzzLeclaire]

Résolu :

En fait , comme le fait remarquer Gilbert G., le terme "Value" fonctionne aussi bien pour les chaines que pour des valeurs numériques.
"Cells(l,c).Formula" fonctionne aussi ...

Donc "text" je laisse tomber; ça ne doit pas exister sous cette forme.

Mon code (nom des feuilles) et mon chemin étaient bien OK.

J'ai dû être trompé par une autre erreur qui s'était glissée au moment où j'ai essayé "Value" pour du texte !!!
Désolé de vous avoir fait chercher ...

Tu n'as pas regarder mon lien !!! export-multi-stringgrid-vers-excel


Il faut faire

Code :

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

 vWorksheet.Cells.Item[i+1+ligneDepart,1].Value := 'TOTAL : ';

et non

Code :

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

 vWorksheet.Cells[i+1+ligneDepart,1].Value := 'TOTAL : ';