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

**CLion** · 04/01/2008, 17h05

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

Code :

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

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

**Capitaine Kirk** · 06/01/2008, 22h29

Bonsoir

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

Code VB :

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

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

**rolan** · 06/01/2008, 22h53

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)