Discussion :

[franckMenant]

bonjour,
j'essaye de mettre cette formule dans une cellule mais cela ne fonctionne pas

excel.cells[1,4].formula := '=RECHERCHEV(A7;''[PPM_customer groups-liste.xls]Feuil1''!$A:$C;3;FAUX)';

j'ai été obligé de doubler les apostrophes pour que cela soit pris comme une chaine caractères ! C'est peut être la cause ?

la formule dans excel :

=RECHERCHEV(A7;'[PPM_customer groups-liste.xls]Feuil1'!$A:$C;3;FAUX)

elle marche très bien.

[franckMenant]

j'ai essayé de décomposer la chaine

a:= '=RECHERCHEV(A7;';
b:= '''[PPM_customer groups-liste.xls]Feuil1''';
c:= '!$A:$C;3;FAUX)';
showmessage(a+b+c);
excel.cells[1,4].formula := a+b+c;

mais toujours probleme OLE 800A03EC pourtant le showmessage m'indique exactement ce que je veux mettre dans la cellule (la même chose que dans excel)

[BuzzLeclaire]

j'ai essayé de décomposer la chaine

a:= '=RECHERCHEV(A7;';
b:= '''[PPM_customer groups-liste.xls]Feuil1''';
c:= '!$A:$C;3;FAUX)';
showmessage(a+b+c);
excel.cells[1,4].formula := a+b+c;

mais toujours probleme OLE 800A03EC pourtant le showmessage m'indique exactement ce que je veux mettre dans la cellule (la même chose que dans excel)

Salut,

et avec
b := Quotedstr('[PPM_customer groups-liste.xls]Feuil1');

Ou votre problème viens du $A et $C

A voir aussi :

http://www.developpez.net/forums/d55...bleme-formule/

http://www.pcreview.co.uk/forums/ole...-t3683209.html

http://forum.pcsoft.fr/thread.awp?gr...5&start=71&v=2

http://www.developpez.net/forums/d11...ession-lignes/


http://www.fast-report.com/en/forum/index.php?showtopic=1964

Bye

[ShaiLeTroll]

Juste par curiosité, que donne

Code :

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

excel.cells[1,4].formula := '=A1';

Qui est "PPM_customer groups-liste.xls" ? c'est le même fichier ? un autre fichier ?
l'Exe Delphi et le XLS sont-ils dans le même répertoire ?

[franckMenant]

Salut les gars,
pour répondre a buzz, c'est pareil avec

b := Quotedstr('[PPM_customer groups-liste.xls]Feuil1');

pour shailetroll, j'ai la même erreur en faisant

excel.cells[1,4].formula := '=A1';


PPM_customer groups-liste.xls est un autre fichier
l'exe n'est pas dans le même repertoire
je viens d'essayer en mettant PPM dans le même repertoire et c'est pareil.

[ShaiLeTroll]

Ton problème n'est donc pas la Formule si "=A1" ne fonctionne pas, qui est pourtant une formule de base, c'est que tu as un problème en amont

tu ne précise pas la feuille, cela utilise-t-il ActiveSheet par défaut ?
Cells, tu es sûr de cette propriété ? n'est-ce pas Range ?
D'ailleurs, tu donnes des coordonnées numériques, mais Excel utilise son propre système de coordonné Lettre+Nombre

ton code devrait plutôt être

Code :

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

1
2
3
4
Excel := GetActiveOleObject('Excel.Application');
Feuille := Excel.WorkSheets['Feuil1'];
Feuille.Range['A4'].Formula := '=A1';
// Feuille.Cells[1,4].Formula := '=A1'; // A tester, cela doit aussi fonctionner !

[franckMenant]

je viens de trouver pourquoi excel.cells[1,3].formula := '=A1' ne marchait pas. J'avais un processus EXCEL de trop d'ouvert. en le fermant cela s'est arrangé !

par contre

a := '=RECHERCHEV(A2;';
b := Quotedstr('[mon PPM.xlsx]Feuil1'); // j'ai créer un autre PPM au cas ou que j'ai mis dans le même repertoire
c:= '!$A:$C;3;FAUX)';
excel.cells[1,3].formula := a+b+c;

ne marche toujours pas