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.