Discussion :

[GriffinK]

Bonjour tout le monde,

Voici un morceau de mon code:

Code :

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

1
2
3
  excelFile = CommonDialog1Open.FileName : appXls = New Excel.Application : appXls.Visible = False
                    book = appXls.Workbooks.Open(excelFile)
                    rowCount = book.Worksheets("données").Range("A65536").End(Excel.XlDirection.xlUp).Row

Donc là j'ouvre un fichier excel. Je veux ensuite récupérer certaines valeurs de ce fichier, et les ajouter à une liste de points de la dll Zedgraph, permettant de faire des graphiques.

Code :

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

1
2
3
4
5
                    For I = 14 To rowCount
 
                        pointsCourbeY1.Add(book.Worksheets("données").Cells(I, "A").Value, book.Worksheets("données").Cells(I, "B").Value)
                        pointsCourbeY2.Add(book.Worksheets("données").Cells(I, "A").Value, book.Worksheets("données").Cells(I, "E").Value)
                    Next

Le soucis est que ça prend énormément de temps ! pour 11000 lignes, ça prend quelque chose comme 6 minutes sur mon portable.

Cependant, si je fais

Code :

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

1
2
3
4
                  For I = 14 To 11000
                        pointsCourbeY2.Add(1, 1)
                        pointsCourbeY1.Add(1, 1)
                    Next

Ca se fait en moins d'une seconde. J'imagine que ça vient de la recherche de la valeur dans le fichier excel.

Bref ! je cherche un moyen de récupérer ces valeurs sans que ça prenne trois heures. Je viens donc ici voir si vous auriez des idées qui pourraient m'aider ?

Merci de m'avoir lu

[Skalp]

Oui, tu as le moyen de te connecter au fichier Excel, comme à une base de données (donc très performant pour des jeux de données importants), et exécuter une requête SQL.
Pour plus d'informations, voir : Lire et écrire dans les classeurs Excel fermés (c'est en VBA, mais tu pourras facilement le traduire en VB.NET).

[GriffinK]

Ok je vais regarder àa avec beaucoup d'attention !

Merci skalp

[GriffinK]

Oui, tu as le moyen de te connecter au fichier Excel, comme à une base de données (donc très performant pour des jeux de données importants), et exécuter une requête SQL.
Pour plus d'informations, voir : Lire et écrire dans les classeurs Excel fermés (c'est en VBA, mais tu pourras facilement le traduire en VB.NET).

Rebonjour Skalp,

Selon toi (ou quelqu'un d'autre ), quelle serait la meilleure façon de mettre une rangée de cellules (par exemple "A1:A10000" dans un tableau ?

Par exemple, je cherche à mettre dans mon tableau de double toutes les valeurs contenues dans les cellules A1 jusqu'à A10000. Comment réaliser cette opération le plus rapidement possible ?

Par avance merci !

[GriffinK]

Rebonjour Skalp,

Selon toi (ou quelqu'un d'autre ), quelle serait la meilleure façon de mettre une rangée de cellules (par exemple "A1:A10000" dans un tableau ?

Par exemple, je cherche à mettre dans mon tableau de double toutes les valeurs contenues dans les cellules A1 jusqu'à A10000. Comment réaliser cette opération le plus rapidement possible ?

Par avance merci !

Quelque chose dans ce genre peut-être

Code :

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

1
2
3
 
Dim varA(2000) As Object
varA = book.Worksheets("données").Range("A1:A1000")

...marche pas malheureusement

[Skalp]

Il existe une FAQ qui traite de cette problématique : Comment transférer des données sous Excel rapidement ?

[GriffinK]

Il existe une FAQ qui traite de cette problématique : Comment transférer des données sous Excel rapidement ?

Bonjour Skalp,

Voici mon 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim xlApp As Excel.Application
 
        Try
            xlApp = GetObject(, "excel.application")
        Catch
            xlApp = New Excel.Application
        Finally
            xlApp.Visible = False
        End Try
 
        'ajout d'une page et sélection 
        Dim xsTransfert As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
        Dim StrConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.XLS;Extended Properties=Excel 8.0;"
 
        Try
            ' ici on crée la chaine de connexion
            ' (on se connecte à SQL Server dans notre exemple)
            With xsTransfert.QueryTables.Add(StrConn, Destination:=xsTransfert.Range("A1"))
                .CommandText = "Select * from [feuil1$]" ' ou requete SELECT
                .Name = "données"
                .FieldNames = True
                .RowNumbers = True
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells
                .SavePassword = False
                .SaveData = False
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .PreserveColumnInfo = True
                .Refresh(BackgroundQuery:=False)
            End With
 
            ' affichage 
            xlApp.Visible = True : xlApp.Visible = Excel.XlSheetVisibility.xlSheetVisible : xsTransfert.Visible = Excel.XlSheetVisibility.xlSheetVisible
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Le but est de récupérer les valeurs excel dans une autre feuille excel ? au final je me retrouverai toujours avec des milliers de données dans la nouvelle feuille, du coup je ne serai guère avancé, mais j'imagine qu'il y a quelque chose que je ne vois pas / comprends pas ?

[Skalp]

Il existe une FAQ qui traite de cette problématique : Comment transférer des données sous Excel rapidement ?

Ah pardon, tu veux faire l'inverse :

Selon toi (ou quelqu'un d'autre ), quelle serait la meilleure façon de mettre une rangée de cellules (par exemple "A1:A10000" dans un tableau ?

Par exemple, je cherche à mettre dans mon tableau de double toutes les valeurs contenues dans les cellules A1 jusqu'à A10000. Comment réaliser cette opération le plus rapidement possible ?

Une solution rapide pour récupérer les valeurs des cellules A1 à A10000 est de te connecter au fichier Excel et de récupérer les valeurs avec une requête SQL.

Dans ce cas, le lien que je t'ai donné plus haut : Lire et écrire dans les classeurs Excel fermés devrait t'aider. Je pense que tu n'as pas lu cet article, sinon tu ne serais plus bloqué

[GriffinK]

Ah pardon, tu veux faire l'inverse :
Une solution rapide pour récupérer les valeurs des cellules A1 à A10000 est de te connecter au fichier Excel et de récupérer les valeurs avec une requête SQL.

Dans ce cas, le lien que je t'ai donné plus haut : Lire et écrire dans les classeurs Excel fermés devrait t'aider. Je pense que tu n'as pas lu cet article, sinon tu ne serais plus bloqué

Oui, je m'étais énervé dessus 20 minutes et n'arrivant à rien, j'ai abandonné..y a des jours comme ça
Bref, j'ai lu de nouveau, et c'est ok, je peux récupérer mes valeurs, l'opération se fait en 1 seconde !

Voici 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
        Dim Fichier, Cellules As String
        Dim test(50, 4) As Object
 
        'Définit le classeur fermé servant de base de données
        Fichier = "C:\monfichier.XLS"
        Cellules = "A1:E51"
 
        Dim Source As ADODB.Connection
        Source = New ADODB.Connection
        Source.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";")
        Dim Rst As ADODB.Recordset
        Dim ADOCommand As ADODB.Command
        ADOCommand = New ADODB.Command
        With ADOCommand
            .ActiveConnection = Source
            .CommandText = "SELECT * FROM [Feuille1$" & Cellules & "]"
        End With
        Rst = New ADODB.Recordset
        Rst.Open(ADOCommand, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
 
        Rst.MoveFirst()
        test = Rst.GetRows(-1, 0, )
 
        Rst.Close()
        Source.Close()
        Source = Nothing
        Rst = Nothing
        ADOCommand = Nothing

Les valeurs sont effectivement dans le tableau test. Mais (et oui ), je récupère des valeurs bizarres:

Code :

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

1
2
3
4
 
>? Rst.Fields(0).Value
#12/30/1899# {Date}
    Date: #12/30/1899#

puis #12/30/1899 12:00:37 AM# puis #12/30/1899 12:01:17 AM# etc...

Alors que la ligne sur mon fichier excel est
0:00:00 0.023 0:00:00 5.43

Les cellules sont respectivement des formats de cellule

• Personnalisée (hh:mm:ss)
• Standard
• Personnalisée (hh:mm:ss)
• Standard

Je cherche ce qui pourrait expliquer l'erreur. Tu as peut-être une suggestion ?

[GriffinK]

Et bizarrement, si je mets 1 2 3 4 dans les cellules de la première ligne puis laisse le reste sans y toucher, ca fonctionne

[Skalp]

Et bizarrement, si je mets 1 2 3 4 dans les cellules de la première ligne puis laisse le reste sans y toucher, ca fonctionne

La première ligne du fichier contient-elle des données ou les entêtes de colonne ? Peux-être tu devras modifier la chaîne de connexion :

"HDR=Yes;" indicates that the first row contains columnnames, not data. "HDR=No;" indicates the opposite.
"IMEX=1;" tells the driver to always read "intermixed" (numbers, dates, strings etc) data columns as text. Note that this option might affect excel sheet write access negative.

http://connectionstrings.com/?carrier=excel

[GriffinK]

La première ligne du fichier contient-elle des données ou les entêtes de colonne ? Peux-être tu devras modifier la chaîne de connexion :
http://connectionstrings.com/?carrier=excel

Bonjour Skalp,

Merci encore pour ta réponse.

J'ai trouvé un workaround qui me permet d'arriver d'arriver à ce que je veux faire, sans être pour autant une soluce à l'arrache

Pour info, la ligne de commande sous dotnet doit être

Code :

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

1
2
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "data source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""

sans quoi ça plante.

Merci beaucoup pour ton aide, elle fut très appréciée

[GriffinK]

Une dernière question:

Losque, après utilisation de mon logiciel, je regarde mes processus, je vois autant de processus Excel que de sessions ouvertes.

Voici mon 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
15
16
17
18
19
20
21
22
23
24
25
 
        appXls = New Excel.Application : appXls.Visible = False
        book = appXls.Workbooks.Open(Fichier)
        '...
        book.Close() : book = Nothing : appXls.Visible = True : appXls.Quit() : appXls = Nothing
 
        Dim Source As ADODB.Connection
        Source = New ADODB.Connection
        Source.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "data source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1""")
        Dim Rst As ADODB.Recordset
        Dim ADOCommand As ADODB.Command
        ADOCommand = New ADODB.Command
        With ADOCommand
            .ActiveConnection = Source
            .CommandText = "SELECT * FROM [données$" & Cellules & "]"
        End With
        Rst = New ADODB.Recordset
        Rst.Open(ADOCommand, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        '...
        Rst.Close()
        Source.Close()
        Source = Nothing
        Rst = Nothing
        ADOCommand = Nothing

J'imagine que j'oublie de fermer quelque chose mais je n'arrive pas à voir quoi ?

[Skalp]

Losque, après utilisation de mon logiciel, je regarde mes processus, je vois autant de processus Excel que de sessions ouvertes.

Voici mon code

Code :

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

1
2
3
appXls = New Excel.Application : appXls.Visible = False
book = appXls.Workbooks.Open(Fichier)
book.Close() : book = Nothing : appXls.Visible = True : appXls.Quit() : appXls = Nothing

J'imagine que j'oublie de fermer quelque chose mais je n'arrive pas à voir quoi ?

Oui, du moment que tu ne pilotes plus Excel par automation, tu n'as plus besoin de ce bout de code (voir ci-dessus, dans la citation).

[GriffinK]

Oui, du moment que tu ne pilotes plus Excel par automation, tu n'as plus besoin de ce bout de code (voir ci-dessus, dans la citation).

Tu as raison, c'est bien ça qui pose problème. Le soucis est que j'ai besoin de ce code pour récupérer le numéro de la première ligne où il n'y a pas de valeur.

Mais effectivement, lorsque je code en dur les valeurs trouvées par ce petit bout de code, ça fonctionne sans problème !

Me reste plus qu'à trouver l'équivalent de

Code :

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

rowCount = book.Worksheets("Feuil1").Range("B65536").End(Excel.XlDirection.xlUp).Row

et j'en aurai fini avec ça

Merci encore

EDIT: J'ai trouvé une petite astuce pour contourner le problème, mais si tu as l'info en tête je suis preneur !

[Skalp]

Tu n'as qu'à faire un :

Code :

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

"SELECT COUNT(*) FROM [données$" & Cellules & "]"