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

[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 :

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

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

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

[hounaida nou]

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

Bonsoir,

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

Code :

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

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

[Phil Rob]

Bonsoir,

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

Code :

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

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,

[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 :

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

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

va selectionner la colonne A et cette ligne

Code :

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

 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 .

[Phil Rob]

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

Code :

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

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 :

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

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 :

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

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

A bientôt

[hounaida nou]

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

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
     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é ??

[clementmarcotte]

Bonjour,

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

[Phil Rob]

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 :

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
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

[sorbetframboise]

Si j'ai bien compris tu dois récupérer la dernière ligne de plusieurs colonnes ?

[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.

[hounaida nou]

Bonjour tout le monde,
Je suis désolée de prendre assez de temps pour répondre j’étais en vacances
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 :

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

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

[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 ...

[hounaida nou]

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

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)

[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 ...

[hounaida nou]

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 :

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
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