lire la valeur d'une case(excel) sous vb2005

bonjour
j'aimerai lire la valeur de la 2eme case de ma feuille excel.
voici mon code:

Code:

---

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

Imports Microsoft.Office.Interop   Public Class Form1 Dim sheet As Microsoft.Office.Interop.Excel.Workbook Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   Dim fgADD As New Excel.Application fgADD.Workbooks.Open("c:\etudiants.xls") Dim fff = fgADD.ActiveWorkbook.Worksheets(2).Range("A1").Value MsgBox(fff) End Sub End Class

---

ou est le probleme ?

merci avance

Bonsoir

Ton code fonctionne chez moi en "option strict off" mais en "option strict on" je l'ai écris comme ça :

Code:

---

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

Imports Microsoft.Office.Interop   Public Class Form1   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim XlApp As New Excel.Application Dim Feuil As New Excel.Worksheet XlApp.Workbooks.Open("C:\Classeur1.xls") Feuil = CType(XlApp.Worksheets.Item(2), Excel.Worksheet) Dim MaVar As String = CStr(Feuil.Range("A1").Value) MessageBox.Show(MaVar) End Sub End Class

---

bonjour
tu peux récupérer la valeur d'une cellule de la manière suivante:
xlApp.Cells(index de la ligne, index de la colonne).value.ToString
avec xlapp est la variable de l'application
et tu peux déclarer les variables comme suit il me parait que c'est plus facile


Imports Microsoft.Office.Interop
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

merci pour le reponse ca marche bien maintenant :king: mais j'ai une question:
c'est quoi "option strict off" ?

Tu peux regarder ici pour ta réponse

http://msdn2.microsoft.com/fr-fr/lib...zs(VS.80).aspx

merci beaucoup:yaisse2: