Discussion :

[franckMenant]

Bonjour à tous,
je voudrais lire les commentaires des cellules dans une feuille excel.
(bien entendu, toutes les cellules n'ont pas de commentaires)

Quand le commentaire existe, je n'ai pas de problème. Valeur = String

Quand le commentaire n'existe pas, j'ai une erreur "notification d'exception dans le module .EXE"

Je lis le commentaire de cette manière:
(je déclare valeur de type variant)

Code :

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

1
2
 
    valeur := excelapp.cells.item[i,2].comment.text ;

Pourriez-vous me dire ce que reçoit valeur quand il n'y a pas de commentaire ou comment gérer l'exception !
(je travaille en delphi 7)
Merci d'avance.

[ero-sennin]

Salut et bienvenue sur les forum de Developpez.net

Pour répondre à ta question, je pense que tu peux faire un try except pour gérer l'exception.

Je ferai ceci (de tête)

Code :

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

1
2
3
4
5
try
  valeur := excelapp.cells.item[i,2].comment.text ;
except
  valeur := '';
end;

En espérant t'avoir aidé

[franckMenant]

Bonjour Ero-Sennin,

je viens de tester le code Try mais j'ai encore une exception

Le texte précis est :
Project project.exe raised exception class Eaccesviolation with message "Acces violation at address 004684AF in the project.exe

[ero-sennin]

Peux-tu nous montrer un peu plus de code, car je ne pense pas que le souci vienne de ma solution ...

[franckMenant]

Voici le bout de code complet:

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
 
i := 2;
grid.RowCount := i;
grid.FixedRows := 1;
grid.ColWidths [0] := 70;
grid.ColWidths [1] := 290;
  // lecture du fichier XLS pour lire les ligne de la colonne 1
  // jusqu'a une cellule vide
while excelapp.cells.item[i,1].value <> '' do
  begin
    // grid.cells[colonne,ligne = 0,0]  Excelapp.cell[ligne,colonne = 1,1]
  grid.Cells[0,i-1] := excelapp.cells.item[i,2].value;
  grid.Cells[1,i-1] := excelapp.cells.item[i,1].value;
  try
    valeur := excelapp.cells.item[i,2].comment.text ;
  except
    valeur := '';
  end;
  inc(i);
  grid.RowCount := i;
end ;

Le code fonctionne bien sans le Try Except

[franckMenant]

J'ai oublié de préciser que Grid est un TStringgrid.

[Cl@udius]

Salut

En l'absence de commentaires dans la cellule, Comment doit être à nil (à vérifier).
De fait l'accès à la propriété Text lève une exception.

Essaye comme ceci:

Code :

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

1
2
3
4
5
6
7
 
  if Assigned(excelapp.cells.item[i,2].comment) then
  try
    valeur := excelapp.cells.item[i,2].comment.text ;
  except
    valeur := '';
  end;

@+ Claudius

[ero-sennin]

Tiens, c'est étonnant si c'est ça.
J'étais persuadé que même si comment était à nil, hé bien le try except autour de la méthode l'aurait catché... et donc on n'aurait pas cet effet d'EAccessViolation.

[franckMenant]

Bonjour Cl@udius,
le compilateur me dit "Type imcompatible" sur la ligne

Code :

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

1
2
 
if Assigned(excelapp.cells.item[i,2].comment) then