Discussion :

[SoGood]

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 :

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

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 :

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

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.

[Invité]

Essaie de remplacer ToString() par Text

[Capitaine Kirk]

Bonjour

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

Code :

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

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.

[Skalp]

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)

[SoGood]

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