Problème OLEAutomation Excel entre .NET 3.5 et .NET4

Version imprimable

30/09/2013, 14h58
feanor91

Problème OLEAutomation Excel entre .NET 3.5 et .NET4
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:

1 2 Cell.Value = "=SOMME(N2:N" + (LineNumber).ToString + ")"
qui donne comme résultat

Citation:

=SOMME(N2:N75)

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

Citation:

#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 :

Citation:

Exception de HRESULT : 0x800A03EC

Bien sur, j'ai essayé avec

Citation:

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...
30/09/2013, 22h38
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.)
30/09/2013, 22h50
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...

Merci de vos réponses.

Pour le bout de code, rien de plus simple :

Code:

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:
http://img844.imageshack.us/img844/1696/ql2x.png

4.0:
http://imageshack.us/a/img833/5894/ineb.png
et
http://imageshack.us/a/img13/6595/6bsc.png

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

Code:

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.

01/10/2013, 12h58
infosam76
Et ici il ne manquerait pas une parenthèse fermante ?
Code:

1 2 Cell.FormulaLocal = "=SOMME(A1:A10"
01/10/2013, 14h28
feanor91
Citation:
Envoyé par infosam76

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

Code:

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.
01/10/2013, 14h43
infosam76

Oki c'était juste pour confirmation vu que j'essaie de comprendre tout en essayant de t'aider ;-)
01/10/2013, 15h08
feanor91

Citation:

Envoyé par infosam76

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
01/10/2013, 16h05
infosam76

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