récupérer des données d'un fichier excel

Version imprimable

1 pièce(s) jointe(s)

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 :oops::oops::cry:)

Code:

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
Pièce jointe 478991
aidez moi svp c urgent
merci d'avance

29/05/2019, 08h29
r.morel

Salut,
Premièrement, pourquoi utiliser Excel pour stocker tes données ? Il serait préférable d'utiliser une base SQL.

Si tu veux tout de même utiliser Excel utilise une boucle While qui boucle jusque la valeur la valeur de la cellule d'une colonne spécifié est vide (cela implique que la colonne soit remplie uniformément). Sinon pour connaitre la dernière ligne, tu peux mettre tes données sous forme de tableau dans ton classeur. cela te permettra de connaitre le nombre de ligne de ton tableau dynamiquement.

Enfin, pour sélectionner une cellule en faisant varier l'indice de colonne ou de de ligne, tu ne peux pas faire çà :

Code:

wbExcel.Worksheets("Feuil2").Range("Bi").Value.ToString

Tu dois utiliser la propriété Range.cells.

Bonsoir,

Si ça peut t'aider, ceci te donnera l'indice de la ligne cherchée :

Code:

1
2
3
4
        XLSAPP.Columns("A:A").Select()  ' ou "B:B" pour la colonne B, ...
        XLSAPP.Selection.Find(MaTextBox.Text).Select()
        LeNumeroDeColonne = XLSAPP.ActiveCell.Column
        LeNumeroDeLigne = XLSAPP.ActiveCell.Row

A bientôt,

Citation:

Envoyé par r.morel

Salut,
Premièrement, pourquoi utiliser Excel pour stocker tes données ? Il serait préférable d'utiliser une base SQL.

Si tu veux tout de même utiliser Excel utilise une boucle While qui boucle jusque la valeur la valeur de la cellule d'une colonne spécifié est vide (cela implique que la colonne soit remplie uniformément).

merci r.morel pour ta réponse en fait je suis obligée de prendre des données de l'excel . comment je peux tester si une colonne spécifié est vide
Citation:
Envoyé par Phil Rob
Bonsoir,

Si ça peut t'aider, ceci te donnera l'indice de la ligne cherchée :
Code:

1 2 3 4 XLSAPP.Columns("A:A").Select() ' ou "B:B" pour la colonne B, ... XLSAPP.Selection.Find(MaTextBox.Text).Select() LeNumeroDeColonne = XLSAPP.ActiveCell.Column LeNumeroDeLigne = XLSAPP.ActiveCell.Row
A bientôt,
merci phil je vais essayer d'utiliser ce code

30/05/2019, 01h12
hounaida nou

phil , est ce que tu peux m'envoyer le code entiére avec les déclarations;
et XLAPP est il un objet de type excel.application ?
Car si j'ai bien compris dans ton code cette ligne

Code:

XLSAPP.Columns("A:A").Select()

va selectionner la colonne A et cette ligne

Code:

XLSAPP.Selection.Find(MaTextBox.Text).Select()

permet d'effectuer la recherche sur la valeur du textbox. alors je me suis demandée comment lors de la recherche on peut connaitre la feuil excel qui contient les données .

Excuse-moi, c'est vrai que sans définir XLSAPP ... :(
Code:

1 2 3 4 5 6 7 8 9 10 11 12 XLSAPP = New Excel.Application XLSAPP.Visible = True XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Test.xls") 'ouvir le fichier XLS XLSAPP.Columns("A:A").Select() ' ou "B:B" pour la colonne B, ... XLSAPP.Selection.Find(MaTextBox.Text).Select() ' MaTextBox contient le nombre à trouver ' Pour l'exemple : Dim LeNumeroDeColonne As Integer = XLSAPP.ActiveCell.Column ' Utilisation de l'indice de la colonne Dim LeNumeroDeLigne As Integer = XLSAPP.ActiveCell.Row ' Utilisation de l'indice de la ligne ' ... ... ...
Attention : XLSAPP.Selection.Find(MaTextBox.Text).Select() produit une erreur si la recherche ne donne pas de résultat. Il convient donc d'exécuter cette ligne dans un Try, sauf à être sûr que l'élément recherché existe.

Un truc qui peut aider, pour trouver le code dont tu as besoin sous XLS, tu peux enregistrer une macro XLS et lire son contenu : tu obtiens presque tout ce dont tu as besoin (en général on peut simplifier). Vois cette petite video sous DropBox : https://www.dropbox.com/s/72zxam9qch...roXLS.mp4?dl=0
De plus tu peux aussi demander l'exécution de cette marco à partir de VB :
Code:

1 2 ' XLSAPP.Run("MaMacro") 'exécuter la macro MaMacro sans argument ' XLSAPP.Run("UneMacro", "Coucou") ' appel de la macro UneMacro avec arguments ....
Pour désigner un feuille plutôt qu'une autre, il suffit de la sélectionner par son nom :

Code:

XLSAPP.Sheets("Feuil1").Select()

A bientôt

merci pour tout le monde pour vos réponses
Voici la solution pour ce problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
     Try
            Dim XLSAPP As New Excel.Application
            Dim XLWB As Excel.Workbook
            XLSAPP.Visible = False
            XLWB = XLSAPP.Workbooks.Open("D:\hounayda\hounaidadoc\db.xlsx")  'ouvir le fichier XLS
            XLSAPP.Columns("A:A").Select()  ' ou "B:B" pour la colonne B, ...
            XLSAPP.Selection.Find(TextBox1.Text).Select()  'TextBox1 contient le nombre à trouver
            Dim j As Integer = XLSAPP.ActiveCell.Column ' Utilisation de l'indice de la colonne
            Dim i As Integer = XLSAPP.ActiveCell.Row ' Utilisation de l'indice de la ligne
            TextBox2.Text = XLWB.Worksheets("Feuil2").Cells(i, j + 1).value.ToString
            TextBox3.Text = XLWB.Worksheets("Feuil2").Cells(i, j + 2).value.ToString
            TextBox4.Text = XLWB.Worksheets("Feuil2").Cells(i, j + 3).value.ToString
            XLSAPP.Workbooks.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Ce code donne bien des résultats mais le temps de résolution est assez important est ce qu'il peut être amélioré ??

02/06/2019, 17h15
clementmarcotte

Bonjour,

Citation:

Envoyé par hounaida nou

merci pour tout le monde pour vos réponses

Ce code donne bien des résultats mais le temps de résolution est assez important est ce qu'il peut être amélioré ??

Utiliser Interop pour récupérer des informations d'Excel n'est effectivement pas la méthode la plus efficace pour y parvenir.

Tu peux regarder deux méthodes alternatives.

1) En passant par System.data.oledb (ou quelque chose qui y ressemble), tu peux recueillir des informations de ton fichier Excel, de la même façon, ou presque, que si tu le faisais avec SQL Server.

La chaîne de connexion est ici

2) Pour les fichiers OpenXML seulement (extensions à quatre lettres)

Tu as besoin du SDK OpenXML pour récupérer la dll DocumentFormatOpenXML

Quelques exemples ici

Bonjour Hounaida,

Comme le signale Clément, il est vrai que la méthode que je t'ai proposée peut s'avérer un peu lente avec certains volumes.

Vois donc si tu ne peux chercher tes données avec OleDB et Sql.
Voici un extrait de code qui fait cela. Dans cet extrait, la colonne XLS qui contient les données de sélection est nommée ou plus exactement, il y a un entête de colonne en ligne 1 "Descripcion". Dans cette façon de faire, chaque entête de colonne devient un nom de champs, comme dans Access.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports System.Data.OleDb
' ... ... ...
 
        Dim Connexion As OleDbConnection
        Dim Adapteur As OleDbDataAdapter
        Dim MonDataSet As New DataSet
        Dim RequeteSQL As String
 
        Dim connectionString As String = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=\Test.xlsx;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
        Connexion = New OleDbConnection(connectionString)
        RequeteSQL = "select * from [Feuil1$] WHERE Descripcion LIKE '%Paypal%' OR 
                                                Descripcion LIKE '%Bretxa%' OR    
                                                Descripcion LIKE '%Eroski%' ;"
        Adapteur = New OleDbDataAdapter(RequeteSQL, cnn)
        MonDataSet.Tables.Add"Feuil1")
        Adapteur.Fill(MonDataSet.Tables("Feuil1"))
        DataGridViewMouvements.DataSource = MonDataSet.Tables("Feuil1")
' ... ... ...

A bientôt

07/06/2019, 09h37
sorbetframboise

Si j'ai bien compris tu dois récupérer la dernière ligne de plusieurs colonnes ?
07/06/2019, 21h32
clementmarcotte

Non. Il récupère toutes les colonnes (select * ) de Feuil1 où il y a quelque chose qui ressemble (et peut-être contient) à Paypal, Bretxa et Eroski dans la colonne Description.

1 pièce(s) jointe(s)

Bonjour tout le monde,
Je suis désolée de prendre assez de temps pour répondre j’étais en vacances :D
Clément j'ai balayé les exemples que tu m’as donné et je n’ai pas trouvé un exemple qui rassemble à ce que je veux ou bien j'ai pas pu les exploités car je suis encore débutante
Pour ton exemple phil je vois qu'il affiche toutes les informations dans une datagridview alors j’ai essayé de l’adapter pour qu’il m’affiche les données de chaque cellule dans un textbox
J’ai écrit le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim Connexion As OleDbConnection Dim cmd As OleDbCommand Dim r As OleDbDataReader Dim RequeteSQL As String Dim connectionString As String = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\hounayda\hounaidadoc\db.xlsx;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1""" Connexion = New OleDbConnection(connectionString) Connexion.Open() RequeteSQL = "select * from [Feuil1$] WHERE Col LIKE '" & TextBox1.Text & "'" cmd = New OleDbCommand(RequeteSQL, Connexion) r = cmd.ExecuteReader TextBox2.Text = r.GetString(2) Connexion.Close()
et Il m’affiche cette erreur
Pièce jointe 482883

12/06/2019, 15h48
Phil Rob

Vérifie que ... Microsoft.ACE.OLEDB.12.0; ... est bine ce que tu dois avoir dans ta chaine de connexion.

Mais cette erreur vient plus probablement de ton mode de compilation x86, x64, Any CPU, ... : il y en a un qui doit convenir.

Quand tu auras résolu ce petit problème de compilation, je te propose de réviser ton projet car un SELECT donne ordinairement plusieurs réponses et que dans un TextBox, tu ne peux en afficher qu'une seule.
Si tu ne veux pas de DataGridView, peut-être qu'un ListBox ou un ComboBox te conviendrait ...
12/06/2019, 16h03
hounaida nou

Citation:

Envoyé par Phil Rob

Vérifie que ... Microsoft.ACE.OLEDB.12.0; ... est bine ce que tu dois avoir dans ta chaine de connexion.

Mais cette erreur vient plus probablement de ton mode de compilation x86, x64, Any CPU, ... : il y en a un qui doit convenir.

lorsque j'ai cherché j'ai trouvé cette solution je l'ai essayé mais j'ai obtenu toujours le meme erreur

Citation:

Quand tu auras résolu ce petit problème de compilation, je te propose de réviser ton projet car un SELECT donne ordinairement plusieurs réponses et que dans un TextBox, tu ne peux en afficher qu'une seule.

je vais pas mettre tous les données dans un seul textbox mais pour chaque cellule je vais associer un textbox( si ça possible)
12/06/2019, 17h26
Phil Rob

Pour l'erreur, voi la video que je viens de placer sur DropBox (c'est une interface en espagnol, mais tu reconnaitras les boutons Run et Stop) :
https://www.dropbox.com/s/n6op0ji0is...nyCPU.mp4?dl=0

Parfois, il convient de recompiler après avoir changé le mode de compilation (je n'ai pas du le faire pour la video).

Pour ce qui est des TextBox, à toi de voir ..., c'est pas la solution la plus facile ...

Bonjour à tous,
j'ai résolu le problème de Microsoft.ACE.OLEDB.12.0; en installant Microsoft Access 2010 Runtime
voici donc le code qui me permet de récupérer des données à partir d'excel dans des textbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Connexion As OleDbConnection
        Dim MonDataSet As New DataSet
        Dim r As OleDbDataReader
        Dim RequeteSQL As String
        Dim connectionString As String = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\hounayda\hounaidadoc\db.xlsx;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
        Connexion = New OleDbConnection(connectionString)
        RequeteSQL = "select Column2, Column3, Column6, Column7, Column9, Column11, Column13, Column14, Column15, Column16 from [f1$] WHERE Column1 =" & TextBox1.Text & ";"
        Connexion.Open()
        Dim command As OleDbCommand
        command = New OleDbCommand(RequeteSQL, Connexion)
        r = command.ExecuteReader
        While r.Read
            TextBox2.Text = r.GetString(0)
            TextBox3.Text = r.GetString(1)
            TextBox4.Text = r.GetString(2)
        End While
        Connexion.Close()

peut etre que ce n'est pas l'optimal mais il donne les résultats voulus avec un temps de réponse réduit
merci pour votre aide :rose2: