Application VB.net trop lente !

Version imprimable

01/10/2012, 01h58
abdego

Application VB.net trop lente !

BonSoir ;
J'ai px realiser une application Windows Form en vb.net 2008 qui fait la manipulation des Fichier Excel (Lecteur et Ecriture ) mai le problem s que qund j’exécute l'appli il prends bcp du temps avant de donner le résultats Final suitée
01/10/2012, 09h35
Ashireon

Si tu ouvres de multiples fichiers excel ca risque de prendre en effet du temps.
J'ai fait quelque chose de similaire en ouvrant des fichiers excel et stockes les données dans un gridview sur 200 fichiers a 50 Mo le fichier ca fait long et c'est lourd.
Les données n’étant pas ordonnées correctement et je piochais à droite , à gauche, je n'avais donc pas trop le choix.
Si par contre tes données sont propres et rangées dans une table correctement tu peux plutôt faire une liaison OleDB vers excel pour la lecture des données. CA devrais aller plus vite en sauvegardant dans une table de ton dataset et ensuite réinjecter dans le fichier de destination.
01/10/2012, 13h12
gnusti

Bonjour,

Il faut se pencher sur ton algo aussi, tu as peut-etre des boucles inutiles ou il est peut-être possible d'optimiser...
01/10/2012, 13h19
sinople

En premier lieu, je te recommande aussi d'utiliser ADO.NET et jet pour interfacer les fichiers Excel plutot que les interop d'office (si c'est pas déjà le cas). Après il est peut être possible de paralléliser certains traitements.

Reste que l'ouverture de 200 * 50 Mo de fichier ça ne risque pas d'être rapide quelque soit la solution...

Peut être que, d'un point de vue infrastructure logiciel, la création d'une application serveur (ou d'un service) s'occupant du traitement de ces fichiers en tâches de fond (la nuit par exemple) puis stockant le résultat de l'analyse dans un cache (une base de donnée) serait plus efficace.

Difficile de dire avec les infos à dispo.

Les Amis MERCI BCP ... Le partage ça fait du bien :D
Voila une partie de mon code

je travaille avec une STRUCTURE_T pour créer une tab dans la quelle je stock me donnée après les avoir traiter par l'intermédiaire de qlq fonction

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
 '''''''''''''''''''     Overture
                Dim fichier As String = OpenFileDialog1.FileName.ToString
                xlap = New Excel.Application
                cl = xlap.Workbooks.Open(fichier)
                fl = cl.ActiveSheet
                Try
                    Dim tab(fl.UsedRange.Rows.Count) As STRUCTURE_T
                    u = 0
                    'If fl.UsedRange.Rows.Count > 500 Then
                    '    Progressement.ProgressBar1.Maximum = 160
                    '    'Progressement.MdiParent = Controle
                    '    Progressement.ShowDialog()
                    'Else
                    '    Progressement.ProgressBar1.Maximum = 60
                    '    'Progressement.MdiParent = Controle
                    '    Progressement.ShowDialog()
                    'End If
                    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                    '''''''''''''''     Partie Lecteur
                    Progressement.ShowDialog()
                    For i As Integer = 2 To fl.UsedRange.Rows.Count
                        tab(u).Date_integration = date_int.ToString
                        tab(u).FICHIER = fl.UsedRange.Cells(i, 12).text.ToString.Substring(0, 6)
                        tab(u).Num_CLI = fl.UsedRange.Cells(i, 1).text.ToString
                        tab(u).CIVILITE = civT(fl.UsedRange.Cells(i, 2).text.ToString)
                        tab(u).Nom = fl.UsedRange.Cells(i, 3).text.ToString
                        tab(u).PRENOM = fl.UsedRange.Cells(i, 4).text.ToString
                        tab(u).Ville = fl.UsedRange.Cells(i, 5).text.ToString
                        tab(u).Id_Pays = fl.UsedRange.Cells(i, 6).text.ToString
                        tab(u).tel1 = CBTEL1_FR(fl.UsedRange.Cells(i, 7).text.ToString).ToString
                        tab(u).tel2 = CBTEL2_FR(fl.UsedRange.Cells(i, 7).text.ToString).ToString
                        tab(u).DATE_ANC_CMD = fl.UsedRange.Cells(i, 8).text.ToString
                        tab(u).REF_COMMANDE = fl.UsedRange.Cells(i, 9).text.ToString
                        tab(u).TOTAL_ANC_CMD = fl.UsedRange.Cells(i, 10).text.ToString
                        tab(u).Code_Rejet = fl.UsedRange.Cells(i, 11).text.ToString
                        tab(u).DETAIL_CODE = dtailcode(fl.UsedRange.Cells(i, 11).text.ToString).ToString
                        tab(u).CODE_OPE = fl.UsedRange.Cells(i, 12).text.ToString
                        tab(u).COMMAND1 = fl.UsedRange.Cells(i, 13).text.ToString
                        tab(u).COMMAND2 = fl.UsedRange.Cells(i, 14).text.ToString
                        tab(u).COMMAND3 = fl.UsedRange.Cells(i, 15).text.ToString
                        tab(u).COMMAND4 = fl.UsedRange.Cells(i, 16).text.ToString
                        tab(u).COMMAND5 = fl.UsedRange.Cells(i, 17).text.ToString
                        tab(u).COMMAND6 = fl.UsedRange.Cells(i, 18).text.ToString
                        tab(u).Mode_Moyen_Reg = fl.UsedRange.Cells(i, 37).text.ToString
                        tab(u).MODE_PAIE = modemr(fl.UsedRange.Cells(i, 37).text.ToString)
                        Progressement.ProgressBar1.Value = CInt(i / fl.UsedRange.Rows.Count)
                        Label1.Text = i
 
                        u += 1
                    Next
                    cl.Close()
                    xlap.Quit()
                    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                    '''''''''''''''    Partie Ecriteur
                    xlap2 = New Excel.Application
                    cl2 = xlap2.Workbooks.Add
                    fl2 = cl2.Sheets(1)
 
                    fl2.Cells(1, 1).value = "DATE_INTEGRATION"
                    fl2.Cells(1, 2).value = "FICHIER"
                    fl2.Cells(1, 3).value = "Num_CLI"
                    fl2.Cells(1, 4).value = "CIVILITE"
                    fl2.Cells(1, 5).value = "Nom"
                    fl2.Cells(1, 6).value = "PRENOM"
                    fl2.Cells(1, 7).value = "Ville"
                    fl2.Cells(1, 8).value = "Id_Pays"
                    fl2.Cells(1, 9).value = "TEL"
                    fl2.Cells(1, 10).value = "TEL2"
                    fl2.Cells(1, 11).value = "DATE_ANC_CMD"
                    fl2.Cells(1, 12).value = "REF_COMMANDE"
                    fl2.Cells(1, 13).value = "TOTAL_ANC_CMD"
                    fl2.Cells(1, 14).value = "Code_Rejet"
                    fl2.Cells(1, 15).value = "DETAIL_CODE"
                    fl2.Cells(1, 16).value = "CODE_OPE"
                    fl2.Cells(1, 17).value = "COMMAND1"
                    fl2.Cells(1, 18).value = "COMMAND2"
                    fl2.Cells(1, 19).value = "COMMAND3"
                    fl2.Cells(1, 20).value = "COMMAND4"
                    fl2.Cells(1, 21).value = "COMMAND5"
                    fl2.Cells(1, 22).value = "COMMAND6"
                    fl2.Cells(1, 23).value = "Mode_Moyen_Reg"
                    fl2.Cells(1, 24).value = "MODE_PAIE"
                    For j As Integer = 0 To UBound(tab)
                        For c As Integer = 1 To 24
                            fl2.Cells(j + 2, c).NumberFormat = "@"
                            fl2.Cells(j + 2, 1) = tab(j).Date_integration
                            fl2.Cells(j + 2, 2) = tab(j).FICHIER
                            fl2.Cells(j + 2, 3) = tab(j).Num_CLI
                            fl2.Cells(j + 2, 4) = tab(j).CIVILITE
                            fl2.Cells(j + 2, 5) = tab(j).Nom
                            fl2.Cells(j + 2, 6) = tab(j).PRENOM
                            fl2.Cells(j + 2, 7) = tab(j).Ville
                            fl2.Cells(j + 2, 8) = tab(j).Id_Pays
                            fl2.Cells(j + 2, 9) = tab(j).tel1
                            fl2.Cells(j + 2, 10) = tab(j).tel2
                            fl2.Cells(j + 2, 11) = tab(j).DATE_ANC_CMD
                            fl2.Cells(j + 2, 12) = tab(j).REF_COMMANDE
                            fl2.Cells(j + 2, 13) = tab(j).TOTAL_ANC_CMD
                            fl2.Cells(j + 2, 14) = tab(j).Code_Rejet
                            fl2.Cells(j + 2, 15) = tab(j).DETAIL_CODE
                            fl2.Cells(j + 2, 16) = tab(j).CODE_OPE
                            fl2.Cells(j + 2, 17) = tab(j).COMMAND1
                            fl2.Cells(j + 2, 18) = tab(j).COMMAND2
                            fl2.Cells(j + 2, 19) = tab(j).COMMAND3
                            fl2.Cells(j + 2, 20) = tab(j).COMMAND4
                            fl2.Cells(j + 2, 21) = tab(j).COMMAND5
                            fl2.Cells(j + 2, 22) = tab(j).COMMAND6
                            fl2.Cells(j + 2, 23) = tab(j).Mode_Moyen_Reg
                            fl2.Cells(j + 2, 24) = tab(j).MODE_PAIE
                        Next
 
                    Next
                    If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                        fl2.SaveAs(SaveFileDialog1.FileName.ToString)
                        Dim ovrxl As Excel.Application
                        Dim ovrcl As Excel.Workbook
                        Dim ovrsh As Excel.Worksheet
                        ovrxl = New Excel.Application
                        ovrcl = ovrxl.Workbooks.Open(SaveFileDialog1.FileName.ToString)
                        ovrsh = ovrcl.Worksheets(1)
                        ovrxl.Visible = True
                        xlap2.Quit()
                    End If
                    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
                ''''''''''''''''''''''  CBR UK
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

01/10/2012, 16h33
asmduty

Bonjour,

voyez donc comme proposé dans le commentaire du dessus, avec ADO.NET
01/10/2012, 22h15
abdego

Les amis plus d'explication selvous pler
01/10/2012, 22h18
Pol63

ceci est un forum fancophone

sinon tu tapes excel ado.net dans google et tu auras ce qu'il te faut
01/10/2012, 22h19
abdego

sinople ton aide m'interesse bien Merci de me donner un petit exemple concret SVP :) Merci pour votre cooperation
01/10/2012, 22h29
Pol63

il y a des tas d'exemples sur le net, pourquoi attendre que quelqu'un vienne t'en faire un copier coller ici ?

Merci :) j'ai tjr le sourire moi ... ah aussi je travail pas le Copie coller moi j'essai de comprendre
ok voila j'ai développé se code la d'après mes expérience dans SQLConnection

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Imports System.Data.OleDb
sub connect()
 
 If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Dim s As String = OpenFileDialog1.FileName
            con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & s & "';Extended Properties='Excel 8.0;HDR=No;IMEX=1'")
            Try
                '''''''''''con.Open()
               ''''''''''''''' 'MsgBox("ok")
              ''''''''''  'con.Close()
                cmd = New OleDbCommand("select * from  0", con)
                da = New OleDbDataAdapter(cmd)
                da.Fill(ds, "a")
                MsgBox("ok", ds.Tables("a").Rows.Count)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End If
end sub

Le test de Connections Marche très bien mais leur de select Il me donne un exception
pouvez vous me donner un cours qui explique se genre de connection

02/10/2012, 07h51
sinople

Pas plus tard que cette semaine, j'ai donnés des liens sur le sujet avec des exemple de la msdn. Une recherche sur le forum devrait donc largement remonté ces informations (ou simplement le parcourt des sujets sur les 2 premières pages de ce forum!).

P.S. Le select from 0 ne fonctionnera pas ! Il faut mettre le nom de la feuille sous un format spécifique, y a un truc avec un $ dans le nom (voir la doc pour la nomenclature exact).