Problème de synchronisation Excel / VB.net

Bonjour,

J'ai installé dans mon Excel un plugin (propriétaire) qui définit de nouvelles formules dans Excel. Dans une case, je peux par exemple taper :

Code:

---

=maFormule()

---

J'obtiendrai le résultat désiré.

Je suis maintenant en train de développer une application qui crée un Excel et cherche à obtenir le résultat de certaines de ces formules.

Je rencontre un souci : les formules ne sont pas instantanées et mon VB.net "rate" certains résultats.

Par exemple :

Code:

---

1 2 3

sheet.Range("A1").Formula = "=maFormule()" libelle = Convert.ToString(sheet.Range("A1").Value())

---

Ce code va me retourner une chaine vide, alors qu'au bout d'un certain temps =maFormule() va effectivement retourner une valeur (que je vois quand j'affiche mon Excel).

Si je mets un timer :

Code:

---

System.Threading.Thread.Sleep(1000)

---

le code se met à fonctionner parfaitement mais...

1. Je ne trouve pas ça très joli
2. Ce n'est pas très robuste (si une formule met plus de temps à se calculer)
3. C'est beaucoup plus lent que de continuer dès qu'Excel a fini son traitement

Quelle serait la bonne méthode à adopter ? Puis-je savoir si mon Excel est actuellement en calcul ? Puis-je savoir si une cellule est "rafraichie" ?

Merci pour votre aide.

Bonjour,
J'ai trouvé une solution de contournement pas trop horrible qui consiste à mettre "Waiting..." dans toutes les formules. Je mets ensuite les formules à jour et dès que je n'ai plus de "Waiting..." dans mes cases c'est que j'ai fini le calcul :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub WaitForResultOrTimeout(Optional ByVal range As String = "A1") Dim current, beginning As Integer current = Environment.TickCount beginning = Environment.TickCount   'Tant qu'il reste des éléments "Waiting..." While (Not sheet.Range(range).Find(WAITING, , Excel.XlFindLookIn.xlValues) Is Nothing) _ AndAlso ((current - beginning) < My.Settings.SearchTimeout) Application.DoEvents() System.Threading.Thread.Sleep(WAIT) current = Environment.TickCount End While End Sub

---

Je reste preneur d'une solution plus élégante.
Merci.