Discussion :

[plastik75]

Bonjour à tous,
je viens demander de l'aide car après plusieurs jours de recherche "Google" je n'ai pas trouvé de solution.
J'importe une feuille excel grâce au code suivant:

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)

Mon problème c'est que dans dans ma feuille excel les textes ont des couleurs différentes. J'aimerai quand j'extrait le texte qu'il garde sa couleur.

Est-ce que quelqu'un pourrait m'aider s'il vous plaît?
Merci.

[chrismonoye]

Bonsoir
Je ne sais pas comment faire avec ADO.NET, mais c'est possible avec AUTOMATION (interopérabilité) :

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
        Dim xlApp As New xls.Application
        Dim xlBook As xls.Workbook
        Dim xlSheet As xls.Worksheet
 
        xlBook = xlApp.Workbooks.Open(Application.StartupPath & "\ex47.xlsx")
        xlSheet = CType(xlBook.Worksheets(1), xls.Worksheet)
 
        Dim c, l As Integer
        Dim xl As New xls.Application
        For l = 0 To DgvResult.Rows.Count - 1
            For c = 0 To DgvResult.Columns.Count - 1
                Dim castRange As xls.Range = CType(xlSheet.Cells(l + 1, c + 1), xls.Range)
                Dim forecolor As Color = System.Drawing.ColorTranslator.FromWin32(CInt(castRange.Font.Color))
                Dim backColor As Color = System.Drawing.ColorTranslator.FromWin32(CInt(castRange.Interior.Color))
                DataGridView1.Rows(l).Cells(c).Style.ForeColor = forecolor
                DataGridView1.Rows(l).Cells(c).Style.BackColor = backColor
            Next
        Next

avec l'import :

Code :

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

Imports xls = Microsoft.Office.Interop.Excel

L'inconvéniant est que ce n'est pas très rapide et si le fichier Excel est gros ...
Mais dans l'attente d'une réponse avec ADO.

[plastik75]

Merci pour ta réponse chrismonoye
J'ai voulu essayer ton code mais VS me dit que DgvResult n'est pas déclaré.
Sinon pour le fichier excel il est assez gros. Il y a environ 15500 ligne et il doit peser dans les 15Mo.
Ah oui j'avais oublié de dire que j'étais sous Visual Studio 2008.

[chrismonoye]

Bonjour,
oui, oui, c'est une erreur de ma part :
remplace DgvResult par DataGridView1 (si c'est bien le nom de ton DataGridview).

[plastik75]

Ok super ça fonctionne.
Par contre très lent... trop lent
Mais j'ai remarquer un truc. Au lieu de prendre cellule par cellule n'est-il-pas possible de mettre la couleur de la première cellule de la ligne à toutes les cellule de cette même ligne?
J'ai essayé mais je n'y arrive pas.

[chrismonoye]

Bonsoir,
oui c'est possible ainsi toute la ligne sera du même style :

Code :

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

1
2
3
4
5
6
7
8
9
        Dim l As Integer
        Dim xl As New xls.Application
        For l = 0 To DataGridView1.Rows.Count - 1
            Dim castRange As xls.Range = CType(xlSheet.Cells(l + 1, 1), xls.Range)
            Dim forecolor As Color = System.Drawing.ColorTranslator.FromWin32(CInt(castRange.Font.Color))
            Dim backColor As Color = System.Drawing.ColorTranslator.FromWin32(CInt(castRange.Interior.Color))
            DataGridView1.Rows(l).DefaultCellStyle.ForeColor = forecolor
            DataGridView1.Rows(l).DefaultCellStyle.BackColor = backColor
        Next

Mais pour 15500 lignes, Automation demandera 50 secondes de traitement, environ.
C'est très long. Trop long dans le thread de l'application.

[plastik75]

Super fonctionne déjà mieux!! Effectivement encore lent mais ça ira.

Dernière question est j'arrête de t'ennuyer
J'aimerai quand j'import mon fichier excel que la taille des cellules soit les même.
C'est possible?
Si non c'est pas grave je ferai sans.