[excel]Valeur d'une case ayant une formule

Bonjour

Je pilote Excel depuis VB et j'aimerais récupérer la valeur de la cellule (111, j)
qui est le résultat d'une formule sur d'autres valeur.

Malheureusement, il y a toujours une erreur :

Citation:

---

Method 'Value' of object '_Field' failed

---

J'ai essayé de faire comme dans la faq :

Code:

---

xlSheet.Cells(111, j).Value = xlSheet.Cells(111, j).Value

---

Mais ca change rien. :cry:

Voici mon code autour du problème :

Code:

---

1 2 3 4

xlSheet.Cells(111, j).Value = xlSheet.Cells(111, j).Value MsgBox ("ok12") If Not IsEmpty(xlSheet.Cells(111, j)) Then rst.Fields _ ("S_ISO_DIS9050_4mm").Value = xlSheet.Cells(111, j).Value

---

rst est un recordset.

Pourriez vous m'aider.

merci d'avance.

Je ne comprends pas ce que tu essaies de faire, là

Citation:

---

xlSheet.Cells(111, j).Value = xlSheet.Cells(111, j).Value

---

Tu affectes à la cellule "J111" la valeur contenue dans la cellule "J111"
Quelle opération cherches-tu à effectuer en faisant ça ?

Je fais comme la réponse de la Faq suivante :

http://vb.developpez.com/faqvba/?page=2.4.4#ConvVal

Pour ne plus avoir la formule mais la valeur de celle-ci. Mais ca plante :cry:

il nous manque le code d'ouverture de ton recorset...
tiens pour dédouaner excel tu peu faire :..:

Code:

---

1 2 3

If Not IsEmpty(xlSheet.Cells(111, j)) Then rst.Fields _ ("S_ISO_DIS9050_4mm").Value = 1

---

..

Voici mon code d'ouverture :

Code:

---

Set rst = CurrentDb.OpenRecordset("Select * from sample_analysis")

---

Mais que veux tu dire par dédouaner???

Merci deja pour l'aide

Citation:

---

Envoyé par snooopy007

...
Mais que veux tu dire par dédouaner???
...

---

ben à premiére vue ton probléme ne vient pas d'excel mais de VB6 et du traitement du recordSet...