écrire une formule dans une cellule excel en visual basic

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 :

Citation:

---

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. Pièce jointe 566330

Mais lorsque j'essaye de le faire depuis mon application

Code:

---

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.

Citation:

---

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:

---

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

---

Pièce jointe 566336

Merci d'avance.

Bonjour,

J'ai déjà eu besoin d'entrer des formules dans des cellules Excel à partir VB.Net.
Pour effectuer cette opération j'ai procédé ainsi :

Code:

---

1 2 3 4 5 6

Imports EXCEL = Microsoft.Office.Interop.Excel   Dim xlrange As EXCEL.Range   xlrange = CType(worksheet.Cells(Compteur, 5), EXCEL.Range) xlrange.Formula = "=IF(AND(ISNUMBER($D$" & Compteur & "),ISNUMBER($B$" & Compteur & ")),(($D$" & Compteur & "*$B$" & Compteur & ")/(1000)),"""")"

---

Dans cet extrait de code, sur cet exemple de formule, la variable "Compteur" est un Integer qui me servait à incrémenter le numéro de ligne du fichier Excel dans une boucle.
Cela devrait prendre en compte l'utilisation de ton "Cubic_Spline" je pense.

Une chose utile à savoir est que lorsque l'on entre une formule dans Excel depuis VB.Net, il faut impérativement mettre les mots clés de cette formule en anglais. Tu remarqueras l'utilisation de "IF" ou "ISNUMBER".

Voilà, il n'y a plus qu'à adapter pour ton besoin je pense.

Bon courage pour ton code.

Cordialement-

Bonjour
Merci pour ta réponse. Mais j'ai vraiment essayé beaucoup de choses et cela ne fonctionne toujours pas. Pourtant je rentre d'autre formule sans soucis ailleurs dans mon programme. Je continue de chercher.
Cordialement.