Probleme donnée Excel vers datagridview

Salut à tous

J'ai un formulaire ou j'exporte mes données d'un datagridview vers excel sans probleme.

Je voudais dans une autre partie faire l'inverse, c'est à dire remplir le datagridview à partir d'un fichier excel que l'utilisateur va recuperer sur son poste grâce à un bouton "Parcourir".

Mon probleme ce fait au moment de l'import de mes donnée dans le datagridview ;

Dans mon fichier excel j'ai :
--------------------------------
A | B
---------------------------------
toto toto
tata tata
tete tete


Est pour mon import dans mon datagridview mes deux colonnes sont importer dans la premiere colonne.

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 27 28 29

'Titre OpenFileDialog1.Title = "Chargement" 'Extension par défaut OpenFileDialog1.DefaultExt = "*.*" 'Filtres OpenFileDialog1.Filter = "Tous les fichiers (*.*)|*.*" OpenFileDialog1.FilterIndex = 1 'Ouverture boite de dialogue OpenFile If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then 'On vide le TextBox Me.DataGridView1.Rows.Clear() Dim nom As String Dim prenom As String Dim sr As StreamReader = New StreamReader(OpenFileDialog1.OpenFile, Encoding.Default) ''Dim sr As New StreamReader("C:\Alex\Desktop\test.txt") While sr.Peek <> -1 ' DataGridView1.Rows.Add(nom, prenom) nom = sr.ReadLine() prenom = sr.ReadLine() DataGridView1.Rows.Add(nom, prenom) End While

---

je voudrais remplacer les " sr.ReadLine() " pour que nom sois la colonne 1 et prenom la colonne 2 si quelqu'un aurai une idée.

svp

Bonjour,

Personnellement, pour exporter des données excel, je n'utilise pas de StreamReader.

J'ouvre le fichier excel :

Code:

---

1 2 3 4 5 6 7

'Ouverture de l'application appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel wbExcel = appExcel.Workbooks.Open(Me.Fichier) 'wsExcel correspond à la première feuille du fichier wsExcel = wbExcel.Worksheets(1)

---

Je stock dans une collection, les données que je veux rapatrier à l'aide de :

Code:

---

wsExcel.Cells(i, j).value

---

Puis je referme le fichier :

Code:

---

1 2 3 4 5 6 7

appExcel.ActiveWorkbook.Close() 'Fermeture d'Excel appExcel.DisplayAlerts = True 'remet l'alerte oui=True non=False appExcel.Quit() wsExcel = Nothing wbExcel = Nothing appExcel = Nothing GC.Collect()

---

Je ne sais pas si c'est vraiment ce que tu cherches, mais la façon dont tu veux faire me semble bizarre..

Treize

Bonjour,
voila le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim mycon As System.Data.OleDb.OleDbConnection Dim Dst As System.Data.DataSet Dim mycomd As System.Data.OleDb.OleDbDataAdapter   mycon = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=c:\TEST.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=No""")   mycomd = New System.Data.OleDb.OleDbDataAdapter("select * from [Feuille$]", mycon)   mycomd.TableMappings.Add("Table", "TestTabe") Dst = New System.Data.DataSet mycomd.Fill(Dst)   DataGridView1.DataSource = Dst.Tables(0)

---

Sujet déja abordé http://www.developpez.net/forums/d10...-table-access/
Bon Courage :ccool:

Merci pour vos code, j'avais resolu mon probleme en mettant le code que j'avais copier mais en remplacer sr.readline() par xlsSheet.Cells(ligne, colonne).value

Le code marche mais de ce que j'ai vu sur internet c'est pas la meilleure solution ( moins professionnel ) donc je vais le refaire grâce à vos lien

Merci

Bonne soirée