Insertion fichier Excel dans ListView SubItems et Items

Résolu

naim1970 Messages postés 26 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 29 octobre 2008 - 2 juil. 2008 à 14:12
naim1970 Messages postés 26 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 29 octobre 2008 - 2 juil. 2008 à 16:17

Bonjour a tous,

<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

J’essai d’insérer le contenue d’un fichier excel sur un ListView, mais un petit blém est apparue.

Le contenue des trois colonnes du fichier excel est inséré dans la première colonne de la ListView !

Voici le code ;

Dim
MyConnection As System.Data.OleDb.OleDbConnection

        MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath + "\Liste.xls;Extended Properties=Excel 8.0;")


Dim MyCommand As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter _

            ("select * from [Feuille1$]", MyConnection)


Dim DS As System.Data.DataSet = New System.Data.DataSet

        MyCommand.Fill(DS)


Dim TableExcel As DataTable

        TableExcel = DS.Tables(0)


With ListView1

            .View = View.Details

            .CheckBoxes = False

            .GridLines = True

            .Columns.Add(TableExcel.Columns(0).ToString, 40, HorizontalAlignment.Left)

            .Columns.Add(TableExcel.Columns(1).ToString, 90, HorizontalAlignment.Left)

            .Columns.Add(TableExcel.Columns(2).ToString, 110, HorizontalAlignment.Left)


End
With


Dim lvi As ListViewItem


For i AsInteger = 1 To TableExcel.Rows.Count - 1

            ListView1.Items.Add(TableExcel.Rows(i).Item(0).ToString & " - " & TableExcel.Rows(i).Item(1).ToString & " - " & TableExcel.Rows(i).Item(2).ToString)





Next

        MyConnection.Close()

Comment utiliser les SubItems que je puis les insérer a la fin dans Items ?

Merci d’avance

naim1970

A voir également:

Insertion fichier Excel dans ListView SubItems et Items
Fichier json - Conseils pratiques -Javascript
Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
Arctan excel - Forum Visual Basic
Listview selected item ✓ - Forum C# / .NET
Tangente et arctangente ✓ - Forum C++ & C++ .NET

1 réponse

Réponse 1 / 1

naim1970 Messages postés 26 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 29 octobre 2008
2 juil. 2008 à 16:17

c'est fais
merci

naim1970

Discussions similaires

Extraire une donnée d'une cellule excel avec python

Gestion Parc Automobile

Ouvrir un classeur Excel par macro sans l'afficher

EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute

Calcul sur excel de l'inverse tangente en grade

Votre réponse

Discussions similaires