Discussion :

[youssef222]

Bonjour,

Je suis étudiant, je suis en train de réaliser une application en vb.net.

Je voudrais réaliser un code vb.net qui permettera d'importer les colonnes d'un fichier excel. Pas toutes les colonnes mais seulement quelques colonnes selon le nom de colonnes.

Auriez vous une piste à me proposer qui me permettrait de réaliser cela ?

Mercii.. d'avance

[tobba]

Voici le code que j'utilise pour afficher des données apartir d'un fichier excel :

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
27
28
29
30
31
32
33
34
35
 Dim DS As System.Data.DataSet
    Dim FeuillesExcel As DataTable
    Dim Commande As System.Data.OleDb.OleDbDataAdapter
    Dim MyConnection As System.Data.OleDb.OleDbConnection
    Dim NomFeuille As String
    Dim IndiceFeuille As Integer = 0
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            MyConnection = New System.Data.OleDb.OleDbConnection( _
             "provider=Microsoft.Jet.OLEDB.4.0; " & _
             "data source=chemin de fichier .xls; " & _
             "Extended Properties=Excel 8.0;")
            MyConnection.Open()
            FeuillesExcel=MyConnection.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing,Nothing, Nothing, "TABLE"})
            NomFeuille = "[" & FeuillesExcel.Rows(IndiceFeuille).Item("TABLE_NAME").ToString() & "]"
 
            Commande = New System.Data.OleDb.OleDbDataAdapter("select chmps from " & NomFeuille, MyConnection)
 
            DS = New System.Data.DataSet
 
            Commande.Fill(DS)
 
            Commande.FillSchema(DS, SchemaType.Mapped)
            DataGrid.DataSource = DS.Tables(0)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If Not MyConnection Is Nothing Then
                MyConnection.Close()
            End If
        End Try
    End Sub

[youssef222]

Merci bien