Discussion :

[Brialex]

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 :

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

[Treize_]

Bonjour,

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

J'ouvre le fichier excel :

Code :

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

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 :

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

wsExcel.Cells(i, j).value

Puis je referme le fichier :

Code :

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

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

[sihammaster]

Bonjour,
voila 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
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

[Brialex]

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