Discussion :

[libititi]

Bonjour,
J'ai un petit pb pour lire les valeurs dans les cellules quand ce sont des nombres et non des String, Voici un bout de mon code:

Code :

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

1
2
3
4
5
6
 
while MaFeuille.Cells.Item[i,j].Value<>'' do 
      begin
        ShowMessage(MaFeuille.Cells.Item[i,j].Value);
      i:=i+1;
      end;

J'ai même essayé avec ca :

Code :

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

1
2
 
ShowMessage(FloatToStr(MaFeuille.Cells.Item[i,j].Value));

Mais il me met tjrs la même erreur : Could not convert variant of type (string) into type (Double)

D'où vient l'erreur ??? Merci

[MD Software]

Un variant doit être casté et non converti.

S'il contient un string, tu fais ça :

Code :

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

ShowMessage((String)MaFeuille.Cells.Item[i,j].Value);

S'il contient un float, tu fais ça :

Code :

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

ShowMessage(FloatToStr((Double)MaFeuille.Cells.Item[i,j].Value));

[libititi]

même erreur ...

[MD Software]

En fait, tu n'a pas besoin de cast. Je viens de tester, ShowMessage(Variant) fonctionne

[libititi]

En fait voici ma fonction :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
procedure TForm1.LoadClick(Sender: TObject);
Var
  openDialog : TOpenDialog;
  vMSExcel : variant;
  vXLWorkbooks, vXLWorkbook : variant;
  aFileName : AnsiString;
  MaFeuille : variant;
  i, j : Integer;
  //MonClasseur : _workbook;
 
begin
// Create the open dialog object - assign to our open dialog variable
  openDialog := TOpenDialog.Create(self);
 
  // Set up the starting directory to be the current one
  openDialog.InitialDir := GetCurrentDir;
 
  // Only allow existing files to be selected
  openDialog.Options := [ofFileMustExist];
 
  // Allow only .dpr and .pas files to be selected
  openDialog.Filter :=
    'Fichier excel|*.xls|Fichier csv |*.csv';
 
  // Select pascal files as the starting filter type
  openDialog.FilterIndex := 1;
 
  // Display the open file dialog
  if openDialog.Execute then
   begin
    aFileName:= openDialog.FileName;
    vMSExcel := CreateOleObject('Excel.Application');
    vXLWorkbooks := vMSExcel.Workbooks;
    vXLWorkbook := vXLWorkbooks.Open(aFileName);
    Mafeuille := vXLWorkbook.Worksheets[1] ;
    i:=1;
    j:=1;
    while MaFeuille.Cells.Item[i,j].Value<>'' do //les colonnes
      begin
 
        while MaFeuille.Cells.Item[i,j].Value<>'' do  //les lignes
          begin
            Valeurs.Cells[j,i-1] := MaFeuille.Cells.Item[i,j].Value;
            i:=i+1;
          end;
        j:=j+1;
        i:=1;
      end;
 
 
    //On quitte Excel
    vMSExcel.Quit;
    vMSExcel := unassigned;
   end
  else ShowMessage('Vous n''avez rien sélectionné');
 
  // Free up the dialog
  openDialog.Free;
 
end;

Et donc lorsque les valeurs des cellules de ma feuille Excel sont des nombres, j'ai mon message d'erreur :
Could not convert variant of type (string) into type (Double)

Voilà, je suis désolé d'insister mais ca commence à me saouler cette erreur


Merci quand même

[lapec_and_cie]

Tes nombres sont des décimaux. Peut être que ton application ne reconnaît pas ton caractère décimal "." ou ",". C'est donc peut-être un problème de configuration de tes paramètres régionaux. Pour ce faire va dans Paramètres-> Panneaux de Configuration->Paramètres régionaux->Nombre et change le symbole décimal. Je sais que j'avais eu un problème comme le tien, et je l'avais résolu comme ceci (surtout pour les applications multilingues).

[libititi]

merci mais ca n'a rien changé ....

[lapec_and_cie]

Est ce que tu as quelque chose dans ton tableau Valeurs.cells (à l'intérieur de ta boucle) dans ta fonction???

[libititi]

non, je n'ai rien , il n'est pas initialisé.
(Pour l'info, Valeurs est un TStringGrid)

[davinout]

pourquoi ne stockes-tu pas que des strings dans ton StringGrid?

[lapec_and_cie]

Mets un point d'arrêt sur la ligne Valeurs.cells et exécute ton programme en mode pas à pas. regarde si celui-ci se rempli ou alors si ton tableau n'est pas vide.

[libititi]

Mon TStringGrid est mon tableau de données, il contient des données numériques et non numériques, c'est un logiciel de statistique que je suis en trainde faire. ( j'ai essayé en rentrant des valeurs à la main, ca marche).
J'ai essayé en mode pas a pas, il foire quand il rencontre un nombre...je ne comprends pas pourquoi.

[lapec_and_cie]

Ah ok tes valeurs sont hétérogènes... Mais tes nombres sont tous des décimaux ou tu as des entiers. si c'est le cas est ce que ca plante aussi sur des entiers...????

[lapec_and_cie]

Sinon tes nombres décimaux sont ils avec le symbole ","? Le problème serait sans doute lié à ce problème, il ne reconnaît pas tes nombres décimaux.

[Homer]

je relance ce sujet puisque je suis confronté au meme probleme:
j'ouvre un fichier excel, je voudrais le recopier dans un nouveau fichier en affectant un coefficient a certaines valeurs. Donc je dois récuperer un nombre pour faire l'opération, et là j'ai l'erreur
Impossible de convertir le variant de type (olestr ) en type (Double)

Peu-t etre y a t il du nouveau chez quelqu'un.
merki

[Redsky]

parfois quand la valeur est nulle ou vide et on essaie de caster en nombre reel ou entier, il y a cette erreur.

Il faut verifier d'abord que le variant qu'on caste soit pas nul et si oui le remplacer par 0.


ou bien avec try except si ca plante, dans except y mettre 0.

Si c'est pas le cas, je n'ai pas d'autre idee

[Laurent Dardenne]

Au cas où regarde la propriété NumberFormat peut t'aider :

Code :

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

ExcelWorksheet1.Cells.Item[RowNumber,ColNumber].NumberFormat

[MFDev]

Salut,
j'ai essayé ton code, effectivement cela ne marche pas...
Dans l'aide Excel / VB, pour les cellules, on peut lire:
Renvoie une valeur de type Boolean indiquant si une variable a été initialisée.

Syntaxe

IsEmpty(expression)

L'argument expression est une valeur de type Variant contenant une expression numérique ou une expression de chaîne. Toutefois, comme la fonction IsEmpty est utilisée pour déterminer si des variables sont initialisées, l'argument expression est le plus souvent constitué d'un seul nom de variable.

Remarques

La fonction IsEmpty renvoie la valeur True si la variable n'est pas initialisée ou contient une valeur de type Empty ; dans le cas contraire, elle renvoie la valeur False. La valeur False est toujours renvoyée si l'argument expression contient plusieurs variables. La fonction IsEmpty ne renvoie des informations pertinentes que pour les variables de type Variant.
et ceci:
Ne confondez pas Empty et Null. La valeur Null indique que la variable de type Variant ne contient intentionnellement aucune donnée valide.
et encore:
La valeur Empty désigne une variable de type Variant qui n'a pas été initialisée (c'est-à-dire à laquelle aucune valeur initiale n'a été affectée). Une variable de type Variant contenant la valeur Empty équivaut à 0 si elle est utilisée dans un contexte numérique et à une chaîne de longueur nulle ("") dans un contexte de chaînes.
et aussi:
Variant est un type de données spécial pouvant contenir des données de toutes sortes, à l'exception des données de type String de longueur fixe


D'après cela, on modifie tes boucles:

Code :

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

1
2
3
4
5
6
7
8
9
 
  while MaFeuille.Cells.Item[i,j].Value <> 0 do begin //les colonnes
    while MaFeuille.Cells.Item[i,j].Value <> 0 do begin //les lignes
       Valeurs.Cells[j, i-1 ] := MaFeuille.Cells.Item[i,j].Value;
           Inc(i);
    end;
    Inc(j);
    i:=1;
end;

il te faudra traiter le cas de string...
@+
Fabrice

[MFDev]

Hier par manque de batterie, j'ai un peu précipité la réponse...
Aujourd'hui, j'ai trouvé une solution pour éviter l'erreur, mais je ne sais pas pourquoi cette erreur est émise. donc une solution:
passer par une variable intermédiaire de type String:

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
var
  sVal: string;
  vValue: variant;
...
vValue := MaFeuille.Cells.Item[i,j].Value;
sVal := vValue;  // transfert dans string
while sVal <> '' do begin  //les colonnes
    vValue := MaFeuille.Cells.Item[i,j].Value;
    sVal := vValue;  // transfert dans string
    while sVal <> '' do begin //les lignes
        Valeurs.Cells[j,i-1] := sVal;
        Inc(i);
    end;
    Inc(j);
    i:=1;
end;

Et ça marche ... c'est un peu bizarre quand même ...
J'avais déjà utilisé une applic avec un serveur Excel, et je n'avais pas ce genre de problème, parce que, justement, j'utilisais une String pour récupérer la valeur Variant.
Si tu as trouvé une solution, cela m'intéresse aussi.
@+
Fabrice

[Caine]

Voici le code exact:
Attention, je l'ai adapté à mon TSringGrid qui contient une ligne fixe.
[edit] suppression code inutile (comment)

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
procedure TForm1.LoadClick(Sender: TObject);
Var
  openDialog : TOpenDialog;
  vMSExcel : variant;
  vXLWorkbooks, vXLWorkbook : variant;
  aFileName : AnsiString;
  MaFeuille : variant;
  i, j : Integer;
  Range : AnsiString;
  vType:integer;
begin
// Create the open dialog object - assign to our open dialog variable
  openDialog := TOpenDialog.Create(self);
 
  // Set up the starting directory to be the current one
  openDialog.InitialDir := GetCurrentDir;
 
  // Only allow existing files to be selected
  openDialog.Options := [ofFileMustExist];
 
  // Allow only .dpr and .pas files to be selected
  openDialog.Filter :=
    'Fichier excel|*.xls|Fichier csv |*.csv';
 
  // Select pascal files as the starting filter type
  openDialog.FilterIndex := 1;
 
  // Display the open file dialog
  if openDialog.Execute then
   begin
    aFileName:= openDialog.FileName;
    vMSExcel := CreateOleObject('Excel.Application');
    vXLWorkbooks := vMSExcel.Workbooks;
    vXLWorkbook := vXLWorkbooks.Open(aFileName);
    Mafeuille := vXLWorkbook.Worksheets[1] ;
    i:=1;
    j:=1;
    vType := VarTYpe(MAFeuille.Range['E3'].Value);
    If (vType) = varNULL Then
       StringGrid1.Cells[2,2] := 'Empty';
    vType := VarTYpe(MAFeuille.Range['D3'].Value);
    If vType = varOleStr Then
       StringGrid1.Cells[1,1] := MAFeuille.Range['D3'].Value;
 
    vType := VarTYpe(MaFeuille.Cells.Item[i,j].Value);
    while vType = varOleStr do //les colonnes
      begin
        repeat
            StringGrid1.Cells[j,i] := MaFeuille.Cells.Item[i,j].Value;
            i:=i+1;
            vType := VarTYpe(MaFeuille.Cells.Item[i,j].Value);                        
        Until vType <> varOleStr;
        j:=j+1;
        i:=1;
        vType := VarTYpe(MaFeuille.Cells.Item[i,j].Value);        
      end;
 
    //On quitte Excel
    vMSExcel.Quit; 
    vMSExcel := unassigned; 
   end 
  else ShowMessage('Vous n''avez rien sélectionné'); 
 
  // Free up the dialog 
  openDialog.Free; 
 
end;