Discussion :

[hounaida nou]

Bonjour tout le monde,
je veux récupérer des données d'un fichier excel dans des textbox , je m'explique , lorsque je fais entrer un numéro dans un textbox en cliquant sur un bouton je veux chercher l'indice de la ligne qui contient ce numéro au niveau de la 1 ere colonne puis en utilisant l'indice je peux affecter les données qui se trouvent dans cette ligne à des textbox différents.
j'ai chercher pendant deux jours pour en fin écrire ce code ( qui ne marche pas )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Imports System.Data.SqlClient
Imports Excel = Microsoft.Office.Interop.Excel
 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim DerniereLigne As Long
        Dim appExcel As Excel.Application
        Dim wbExcel As Excel.Workbook
        Dim wsExcel As Excel.Worksheet
        appExcel = New Excel.Application
        wbExcel = appExcel.Workbooks.Open("D:\db.xlsx")
        wsExcel = wbExcel.Worksheets(2)
        DerniereLigne = wbExcel.Worksheets("Feuil2").Range("A").specialCells(wsExcel.xlCellTypeLastCell).row
 
        For i = 1 To DerniereLigne
            If wbExcel.Worksheets("Feuil2").Range("Ai").Value = TextBox5 Then
                TextBox1.Text = wbExcel.Worksheets("Feuil2").Range("Bi").Value.ToString
                TextBox2.Text = wbExcel.Worksheets("Feuil2").Range("Ci").Value.ToString
                If IsNothing(wbExcel.Worksheets("Feuil2").Range("Di").Value) = True Then
                    TextBox3.Text = ""
                Else
                    TextBox3.Text = wbExcel.Worksheets("Feuil2").Range("Di").Value.ToString
                End If
                TextBox4.Text = wbExcel.Worksheets("Feuil2").Range("Ei").Value.ToString
            End If
        Next
        appExcel.Quit()
End Sub

lorsque j'execute ce code il me retourne l'erreur suivant

aidez moi svp c urgent
merci d'avance