Discussion :

[feanor91]

Bonjour

J'ai un gros souci que je n'arrive pas à résoudre.

J'ai écrit des centaines de lignes en .Net 3.5 pour bricoler avec des fichiers Excel sans aucun problème, mais voilà, le passage à .NET 4.0 ne se fait pas sans douleur.

Le problème se situe au niveau de l'écriture des formules, par exemple, cette ligne :

Code :

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

1
2
 
Cell.Value = "=SOMME(N2:N" + (LineNumber).ToString + ")"

qui donne comme résultat

=SOMME(N2:N75)

par exemple, fonctionne parfaitement en .NET 3.5 et donne une erreur

#Nom

dans Excel en .NET 4.0... Et ça, c'est le meilleur des cas, si j'utilise des formules "plus complexes"(???) comme CENTILLE ou ARRONDI me génère des erreure graves :

Exception de HRESULT : 0x800A03EC

Bien sur, j'ai essayé avec

Cell.Formula

mais pas mieux.

Je suis vraiment embêté car je ne peux pas faire évoluer mon code vers .NET 4.0 à cause de ça.

Pour info, le résultat est identique en C#

Si quelqu'un à une idée/solution...

[clementmarcotte]

Bonjour,

Je pense, et je dis bien je pense, que tes plages doivent être entre guillemets.

Sinon, affiche un bout de code, pour permettre aux volontaires éventuels de tester. Je me demande aussi, s'il n'y a pas des modifications mineures à faire aux déclarations d'objets. (Excel, Worbooks, sheets etc.)

[infosam76]

Le problème m’intéresse mais comme le dit clementmarcotte il faudrait un bout de code "complet" pour que certains puissent tester rapidement ton soucis...

[feanor91]

Merci de vos réponses.

Pour le bout de code, rien de plus simple :

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
 
Module Module1
 
    Sub Main()
        Dim Appli As Microsoft.Office.Interop.Excel.Application = Nothing 'Will receive Excel application
        Dim TFeuille As Microsoft.Office.Interop.Excel.Worksheet = Nothing 'will receive a sheet
        Dim Cell As Microsoft.Office.Interop.Excel.Range
        Appli = New Microsoft.Office.Interop.Excel.Application 'Excel application
 
        Appli.Visible = True
        Appli.Workbooks.Add()
        TFeuille = Appli.Worksheets(1)
 
        For i As Integer = 1 To 10
            Cell = TFeuille.Cells(i, 1)
            Cell.Value = i
        Next
 
        Cell = TFeuille.Cells(1, 2)
        Cell.Value = "=SOMME(A1:A10"
        Cell = TFeuille.Cells(1, 3)
        Cell.Value = "=ARRONDI(B1/4,5;2)"
 
    End Sub
 
End Module

A compiler en 3.5 et 4.0, bien sur, ne pas oublier l'interop Excel dans les références.

Sinon, le résulat :

3.5:


4.0:

et


Edit:
En continuant à farfouiller le code, je viens de trouver ça:

Code :

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

1
2
3
4
5
 
        Cell = TFeuille.Cells(1, 2)
        Cell.FormulaLocal = "=SOMME(A1:A10"
        Cell = TFeuille.Cells(1, 3)
        Cell.FormulaLocal = "=ARRONDI(B1/4,5;2)"

Et là, tout baigne en .NET 4.0 ainsi que 3.5...YEAH!

Me reste plus qu'à chercher les différences entre les diverses Formula.

[infosam76]

Et ici il ne manquerait pas une parenthèse fermante ?

Code :

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

1
2
 
Cell.FormulaLocal = "=SOMME(A1:A10"

[feanor91]

Et ici il ne manquerait pas une parenthèse fermante ?

Code :

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

1
2
 
Cell.FormulaLocal = "=SOMME(A1:A10"

Si...Mais pour le coup, ça sa ne gène pas Excel qui met la parenthèse tout seul comme un grand.

[infosam76]

Oki c'était juste pour confirmation vu que j'essaie de comprendre tout en essayant de t'aider ;-)

[feanor91]

Oki c'était juste pour confirmation vu que j'essaie de comprendre tout en essayant de t'aider ;-)

Ah, OK...

Mais tu as vus l'edit de mon post? J'ai résolu avec FormulaLocal

[infosam76]

Oui tout à fait je vais examiner cela plus en profondeur ce soir ;-)