Discussion :

[snooopy007]

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 :

Method 'Value' of object '_Field' failed

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

Code :

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

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

Mais ca change rien.

Voici mon code autour du problème :

Code :

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

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.

[ouskel'n'or]

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

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 ?

[snooopy007]

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

[SfJ5Rpw8]

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

Code :

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

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

..

[snooopy007]

Voici mon code d'ouverture :

Code :

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

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

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

Merci deja pour l'aide

[SfJ5Rpw8]

...
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...