Récupérer valeur d'une cellule Excel
Bonjour,
Je dois dire que c'est ma première fois :oops: avec Excel et là j'ai un souci. J'ai regardé sur plusieurs posts la manière de faire pour récupérer la valeur d'une cellule dans un fichier excel mais chez moi ca marche pas :cry:
Je vous met le code en espèrant que quelqu'un puisse m'aider :
Code:
1
2
3
4
5
6
7
8
9
10
| Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim xlApp As New xls.Application
Dim xlWb As xls.Workbook
Dim xlSh As xls.Worksheet
Dim toto As String
xlWb = xlApp.WorkBooks.Open("C:\Documents and Settings\Michael BRUNIAS\Bureau\installation.xls")
xlSh = xlWb.WorkSheets(1)
toto = xlSh.Cells(1, 2).ToString
MsgBox(toto)
End Sub |
