Discussion :

[Wilco]

Bonjour à tous,

J'ai une application Delphi 2010 qui envoie des données dans un fichier Excel.
Jusque la pas de problème. Pour envoyer les données, j'utilise les fonctions de pilotage d'Excel par Ole.

Code :

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

1
2
3
4
5
6
7
8
Procedure Tform1.XLS_Cellule(vXLRange, valeur: String);
Begin
If NOT VarIsNull(vXLRange) and (vXLRange <> '')
then Begin
     vXLCell := vXLWorksheet.Range[vXLRange];
     vXLCell.Value := valeur;
 
     end;

Si j'insère un sous total (SUM) en utilisant la fonction ci-dessus, ça marche :

Code :

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

XLS_Cellule( 'D10', '=SUM(D1:D9)' );

Par contre si je veux insérer un sous-total avec des critères et en utilisant le même code :

Code :

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

XLS_Cellule( 'D10', '=SUMIF(A1:A9;A10;D1:D9)' );

ça ne marche pas, j'obtient une erreur OLE automation.

Si je remplace =SUMIF par SUMIF
XLS_Cellule( 'D10', 'SUMIF(A1:A9;A10;D19)' );

Dans le fichier Excel, la cellule D10 contient SUMIF(A1:A9;A10;D19)

Si, dans Excel, j'ajoute manuellement le = devant le SUMIF, ça marche et ça calcule bien mes sous-totaux.

Quelqu'un a t il une idée sur le pouquoi je ne peux pas envoyer directement dans Excel '=SUMIF(A1:A9;A10;D19)' sans avoir une erreur Ole automation ?


S'il n'y a pas de solution directe, est il possible de lancer depuis Delphi, une commande qui remplace tous les SUMIF( par =SUMIF( ?

J'ai essayé de lancer la commande

Code :

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

vMSExcel.Replace('SUMIF(' , 'SUMIF', '=SUMIF');

mais j'ai un message d'erreur me disant qu'il manque des paramètres. Je me suis appuyé sur le lien suivant :

http://www.techonthenet.com/excel/fo...eplace_vba.php

In Microsoft Excel, the REPLACE function replaces a sequence of characters in a string with another set of characters. Please note that the worksheet version of the REPLACE function has different syntax.

Syntax

The syntax for the REPLACE function is:

Replace ( string1, find, replacement, [start, [count, [compare]]] )
string1 is the string to replace a sequence of characters with another set of characters.

find is the string that will be searched for in string1.

replacement will replace find in string1.

Merci d'avance,
Wilco

[Wilco]

Bonjour à tous,

Pour simplifier ma demande, est ce que quelqu'un peut m'expliquer comment je peux remplacer un texte par un autre dans tout une feuille Excel à partir d'un application Delphi 2010 ?


Merci d'avance pour vos réponses,
Wilco

[SergioMaster]

Bonjour,

Je n'ai jamais fait de manip Excel mais OpenOffice cependant quelque chose me titille : il s'agit d'une Formule et non d'une Valeur c'est peut être là que se situe le problème ?
je suis donc allé regarder sur la FAQ et j'en déduis que cela devrait plutôt ressembler à :

Code :

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

1
2
 
     vXLCell.Formula := '=SUMIF(A1:A9;A10;D1:D9)';

je coderais la procédure avec un paramètre supplémentaire , pour avoir un type et comme je crois qu'il y a d'autre types que
(0 = valeur, 1 formula ....)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Procedure Tform1.XLS_Cellule(vXLRange, valeur: String, typexls : word=0);
Begin
If NOT VarIsNull(vXLRange) and (vXLRange <> '')
then Begin
     vXLCell := vXLWorksheet.Range[vXLRange];
     case typexls of
        1 :  vXLCell.Formula := valeur;
        ....
        else   vXLCell.Value := valeur;  // au pire c'est un texte ....        
     end;

[Wilco]

Merci Sergio pour ta réponse.

J'ai essayé en utilisant vXLCell.Formula mais j'ai toujours l'erreur Ole Automation. C'est bizarre car ça marche avec une simple formule SUM(D19).

Si j'enlève le = et j'envoie 'SUMIF(A1:A9;A10;D19)'; je retrouve bien ce texte dans la feuille Excel. Et si je mets manuellement le =, le calcul se fait bien.

On dirait que le Ole autmation n'arrive pas à calculer les formules SUMIF.

Voici la portion de code que j'utilise.

Code :

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

1
2
3
4
 
sumIF1 := '=SUMIF(A1:A9;A10;D1:D9)';
vXLCell := vXLWorksheet.Range['N' + IntToStr(vXLRow)];
vXLCell.Formula := sumIF1;

Wilco

[SergioMaster]

re,

étant nul en tableur , je ne saurais dire si ta formule est correcte , c'est peut être là que ça pêche . Maintenant comme déjà dit Ole,Excel n'est pas ma tasse de thé

[Wilco]

Merci Sergio d'avoir essayé de m'aider.

Finalement j'ai trouvé comment remplacer du texte dans une feuille Excel en utilisant le code suivant :

Code :

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

1
2
 
vXLWorksheet.UsedRange.Replace('SUMIF', '=SUMIF');

Pour résoudre mon problème, j'envoie donc les formules sans le = et à la fin de l'export, je fais un replace de tous les SUMIF par = SUMIF.

Cela montre bien que OLE n'arrive pas à calculer les formules =SUMIF durant le traitement d'exportation mais il arrive bien à le faire lorsque le document est complet.

Wilco

[tourlourou]

Ici, c'était un problème de ponctuation : http://www.developpez.net/forums/d12...ighlight=sumif