Discussion :

[dylan.blasi]

Bonjour à tous,

Je rencontre un problème dans le développement de mon application en Vb.Net. Cette application fait du post traitement dans excel suite à différents relevés. Dans ce post-traitement j'utilise la fonction Cubic_Spline qui a été installée depuis ce site :

http://www.srs1software.com/SRS1Cubi...eForExcel.aspx

.

j'ai effectué plusieurs tests dans Excel directement en entrant la formule à la main et cela fonctionne parfaitement.

Mais lorsque j'essaye de le faire depuis mon application

Code :

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

1
2
3
4
5
6
7
8
While feuillet_Dest.Cells(Row, Last_Colon_Sheet - 4).value IsNot Nothing
 
            Dim Addresse3 As String = feuillet_Dest.Cells(Row, Last_Colon_Sheet - 1).Address(False, False)
            Dim pv As Char = ";"
            Dim Formul As String = "=Cubic_Spline(" & Addresse1 & ":" & Addresse12 & pv & Addresse2 & ":" & Addresse22 & pv & Addresse3 & ")"
            feuillet_Dest.Cells(Row, Last_Colon_Sheet).Formula = Formul
            Row += 1
        End While

impossible une exception est générée.

Exception from HRESULT: 0x800A03EC

cependant, si je decide d'enlever le "=" de ma formule et donc écrire le reste sous forme de texte cela fonctionne.

Code :

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

1
2
3
4
5
6
7
8
While feuillet_Dest.Cells(Row, Last_Colon_Sheet - 4).value IsNot Nothing
 
            Dim Addresse3 As String = feuillet_Dest.Cells(Row, Last_Colon_Sheet - 1).Address(False, False)
            Dim pv As Char = ";"
            Dim Formul As String = "Cubic_Spline(" & Addresse1 & ":" & Addresse12 & pv & Addresse2 & ":" & Addresse22 & pv & Addresse3 & ")"
            feuillet_Dest.Cells(Row, Last_Colon_Sheet).Formula = Formul
            Row += 1
        End While

Merci d'avance.