Discussion :

[jpp]

Bonsoir tout le monde,

je tombe sur un os, j'essaie de mettre en place une liaison OLE avec Excel et à chaque fois j'ai le message d'erreur "out of bounds".
Est-ce que quelqu'un a une idée ? Pour l'instant j'en suis là.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  AssignFile(F,ExtractFilePath(Application.exename)+'chemin.jpp');
  Reset(F);
  Readln(F,afilename);
  CloseFile(F);
  path:=afilename;
  XLApp:=CreateOleObject('Excel.Application');
  XLApp.visible:=false;
  XLApp.displayAlerts:=false;
  XLApp.Workbooks.Open(path);

[jpp]

Alors quand j'écris ça :

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
 
procedure TForm1.Button1Click(Sender: TObject);
 
  var
    xlapp:variant;
    lastrow,newrow:integer;
    arange:Ansistring;
    avalue:AnsiString;
  begin
 
    xlapp:=CreateOLEObject('excel.application');
    xlapp.visible:=true;
    xlapp.WorkBooks.open('c:\programmes\test.xlsx');
//je détermine la derniére ligne utilisée
    lastrow:=xlapp.workbooks[1].worksheets[1].UsedRange.Rows.Count;
//je calcule la nouvelle ligne
    newrow:=lastrow+1;
    arange:='A'+IntToStr(newrow);
//je me positionne et je note mes données
 
//j'enregistre et je ferme
    xlapp.workbooks[1].close;
    xlapp.quit;
    xlapp:=unassigned;

Ça fonctionne.
donc petite progression.

[tourlourou]

si le 1° code plantait sur l'ouverture du fichier et pas le second où c'est passé en dur, ne serait-ce pas un pb de codage de caractères ?

[jpp]

Je crois bien que oui !
du coup j'ai un autre probléme, je ne peux pas écrire dans la feuille excel quand je mets

Code :

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

1
2
3
4
5
 
    lastrow:=xlapp.workbooks[1].worksheets[1].UsedRange.Rows.Count;
    newrow:=lastrow+1;
    arange:='A'+IntToStr(newrow);
    xlapp.workbooks[1].worksheets[1].cells[1,newrow].value:='123';

j'arrive bien dans la bonne cellule mais rien ne s'inscrit.

Bon je vais me coucher, demain je me léve tot et de toutes façons je n'irais pas plus loin aujourd'hui!

[Jon Shannow]

En OLE, les chaines doivent être de type AnsiString ou wideString, sinon, ça plante. Je l'ai appris à mes dépens avec les liaisons OpenOffice et j'ai eu droit à une piqûre de rappel avec Word !