Lire ds un fichier excel

Bonjour,

J'essai depuis quelque temps de lire des cellules ds une feuille Excel, mais rien ne marche. J'ai toujours "System.__ComObject" qui s'affiche ds mon textbox a la place du contenu de ma cellule.
Voici le code que j'utilise:

Code:

---

1 2 3 4 5 6 7 8

Imports System Imports System.Data Imports System.Web Imports System.IO Imports Microsoft.Office.Interop Imports System.Data.Common Imports System.Resources

---

Code:

---

1 2 3 4 5

Dim xlapp As Object xlapp = CreateObject("excel.application") xlapp.application.Workbooks.Open(FileName:="y:\classeur1.xls") xlapp.application.Visible = True TextBox1.Text = xlapp.application.cells(4, 3).ToString()

---

Où est le probleme ?
Merci d'avance.

Essaie de remplacer ToString() par Text

Bonjour

comme ceci chez moi ça fonctionne très bien :

Code:

---

1 2 3 4 5 6

Dim xlapp As New Application xlapp = CType(CreateObject("excel.application"), Application) xlapp.application.Workbooks.Open(FileName:="C:\classeur1.xls") xlapp.application.Visible = True TextBox1.Text = CStr(xlapp.Range("A1").Value) xlapp.Quit()

---

faut savoir que Cells n'est pas un Objet mais une propriété de l'objet Range, la propriété Value aussi est importante.

Capitaine Kirk.

Tu peux aussi jeter un coup d'oeil sur cet article, cela t'aidera surement à bien utiliser les librairies Excel :
Pilotage de l'application Office Excel (Excel Automation)

Merci pour votre aide. Le bout de code de Capitaine Kirk fonctionne très bien