Bonjour,

Je dois dire que c'est ma première fois 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

Je vous met le code en espèrant que quelqu'un puisse m'aider :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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