Discussion :

[Ashireon]

Voila je crée un petit soft pour la secrétaire( elle est sympa ...), elle a besoin de récupérer des infos d'un fichiers excel. et de les mettre dans un autre logiciel.

L'idee est de cherge le fichier excel dans un datagrid.view , selectionner la ligne , de rentrer les infos selectionner dans des boites textes et ensuite ce qu'elle veut récupérer l'envoyer dans le clipboard pour qu'elle n'est qu'a les coller dans l'autre soft.

Mon premier prob est de charger le fichier excel j'ai trouver comment faire sur ce forum
a) je declare une datatable
b) je charge la table
c) je lien en binondingsource la table

J'ai fait tout ca en load du du form mais la le datagridview est vide ??

Je vous mets le code

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
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim dt As DataTable
 
        dt = New DataTable()
 
        Using conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Eric\Documents\Materiel\Articles_CFM.xls;Extended Properties=""Excel 14.0;HDR=Yes;IMEX=1""")
            Using adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM $Articles_CFM", conn)
                adapter.Fill(dt)
            End Using
        End Using
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = dt
 
 
 
    End Sub

J'ai du oublier kkchose

[Chris_Dupasquier]

Hello,

Un bonjour n'aurait pas été de trop... bref perso pour faire ce que tu veux faire j'utilise ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dim MyConnection As System.Data.OleDb.OleDbConnection
        Dim DtSet As System.Data.DataSet
        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
        MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\vb.net-informations.xls';Extended Properties=Excel 8.0;")
        MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)
        MyCommand.TableMappings.Add("Table", "Net-informations.com")
        DtSet = New System.Data.DataSet
        MyCommand.Fill(DtSet)
        DataGridView1.DataSource = DtSet.Tables(0)
        MyConnection.Close() 
end sub

A +

[Ashireon]

Oui un petit bonjour , c'est vrai je m'en excuse , j’étais dans le pâté à 3 plombs du mat.
je vais tester et je vous tiens au courant , un grand merci d'avance.

[Ashireon]

CEla fonctionne Je te remercie nickel chrome

Bien à toi un grand merci