Discussion :

[a028762]

Bonjour, les objets venant de COM manquent cruellement de doc sur le WEB et l'interprétation en PHP des objets venant de VB est souvent périlleuse.
Lorsque je lis une cellule d'un fichier EXCEL (2003 je crois), s'il y a une formule EXCEL dans cette cellule qui plante,
Excel traduit cette erreur par #VALUE! mais ce n'est pas une chaine :
$Valeur = $this->_Feuille->Range($Cellule)->Value;
un bon test règle le problème ...
if (is_object($Valeur)) {

Mais n'y a-t-il pas un moyen plus complet de piloter ces erreurs ?
J'ai trouvé des bouts de code (en .NET je crois)
mais à chaque fois, la routine fait référence à des constantes dont j'ignore comment les récupérer ....

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
 
Worksheets("Sheet1").Activate
If IsError(ActiveCell.Value) Then
    errval = ActiveCell.Value
    Select Case errval
        Case CVErr(xlErrDiv0)
            MsgBox "#DIV/0! error"
        Case CVErr(xlErrNA)
            MsgBox "#N/A error"
        Case CVErr(xlErrName)
            MsgBox "#NAME? error"
        Case CVErr(xlErrNull)
            MsgBox "#NULL! error"
        Case CVErr(xlErrNum)
            MsgBox "#NUM! error"
        Case CVErr(xlErrRef)
            MsgBox "#REF! error"
        Case CVErr(xlErrValue)
            MsgBox "#VALUE! error"
        Case Else
            MsgBox "This should never happen!!"
    End Select
End If

ou

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
 
Public Function TypeCell(MyCell As Range) As String
    If IsEmpty(MyCell) Then
        TypeCell = "Vide"
    ElseIf Application.IsText(MyCell) Then
        TypeCell = "Texte"
    ElseIf Application.IsLogical(MyCell) Then
        TypeCell = "Logique"
    ElseIf Application.IsErr(MyCell) Then
        TypeCell = "Erreur"
    ElseIf IsDate(MyCell) Then
        TypeCell = "Date"
    ElseIf IsNumeric(MyCell) Then
        TypeCell = "Nombre"
    End If
End Function

ou encore ...

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
 
  private static Object ContenuCellule(HSSFCell cell){
  Object value = null ;
  if(cell == null){
value = "";
  }
 
  else if(cell.getCellType() == HSSFCell.CELL_TYPE_BOOLEAN){
  value = cell.getBooleanCellValue();
  }
  else if(cell.getCellType() == HSSFCell.CELL_TYPE_ERROR){
  value = cell.getErrorCellValue();
  }
  else if(cell.getCellType() == HSSFCell.CELL_TYPE_FORMULA){
  value = cell.getCellFormula();
  }
  else if(cell.getCellType() == HSSFCell.CELL_TYPE_NUMERIC){
  value = cell.getNumericCellValue();
  }
  else if(cell.getCellType() == HSSFCell.CELL_TYPE_STRING){
  value = cell.getStringCellValue();
  }
  return value;

[a028762]

C'est pas la foule sur ce sujet ?
Un gars sur un autre forum m'a donné une aide sur les valeurs de constantes,
il suffit dans les fenêtres de Visual Basic (for application) et de chercher ces objets spécifiques ...
mais cela ne me permet pas de gérer les différents types d'objets renvoyés par COM
Un exemple ? S'il y a une macro de type "Worksheet_DoubleClick" , la valeur ramenée (->value) est la macro et non la valeur contenue dans la cellule .
La belle affaire ! Mais c'est le contenu de la cellule que je veux récupérer !
Ben, t'a qu'à supprimer la macro !
Mais ce n'est pas moi qui choisit les fichiers et encore moins leur contenu
Je peux juste imposer une grille de lecture ....
Si quelqu'un connait ce problème ....