Chargés des données dans une spreadsheet

Version imprimable

Bonjour :),

J'importe des données excel dans une spreadsheet et je trouve le temps de chargement extrement long.:?

Je n'ai meme pas pu attendre la fin. Le fichier de données fait 55 colonnes sur 30 000 lignes. Si je limite a 50 * 50 le temps est tres axeptable , avec 50*5 000 ca ralenti bcp mais ça va, par contre si je lui balance le fichier entier c'est du délire !

Voici le code

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
 
 
 
Sub CopieColle(ByVal cheminFichier As String)
'
' CopieColle Macro
' Ouvre le fichier de données et exporte les données sur notre spreadsheet (excel)
'
    Dim NomFichier As String
    Dim nbLig As Long, nbCol As Byte
 
    On Error GoTo restauration
    With Application
        .ReferenceStyle = xlR1C1 ' Affichage des feuilles en mode L1C1
        .DisplayAlerts = False
        .ScreenUpdating = False     ' Gèle l'écran pour accélérer le traitement
        .Interactive = False
    End With
 
    ' Ouvre le fichier de données
    Workbooks.Open FileName:=cheminFichier
 
    nbLig = 1
    Do Until IsEmpty(Cells(nbLig, 1))
        nbLig = nbLig + 1
    Loop
 
    nbCol = 1
    Do Until IsEmpty(Cells(1, nbCol))
        nbCol = nbCol + 1
    Loop
 
    Range(Cells(1, 1), Cells(nbLig - 1, nbCol - 1)).Select
    Selection.Copy
    spreadsheet.excel.Sheets("Données").Activate
    spreadsheet.excel.Cells(1, 1).Select
    spreadsheet.excel.ActiveSheet.Paste
    Application.CutCopyMode = False ' Vide le presse-papier
 
    NomFichier = Replace(Mid$(cheminFichier, InStrRev(cheminFichier, "\")), "\", "")
    Workbooks(NomFichier).Close SaveChanges:=False
 
    spreadsheet.Show
 
restauration:
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True   ' Désactive le gelage d'écran
        .Interactive = True
    End With
 
End Sub

Une idée ??

Pour info j'ai du télécharger OWC Spreadsheet 9 (fichier MSOWC.DLL ) et j'ai excel 2000.

Merci d'avance ;)

edit : Je viens de me rendre compte à l'aide de spreadsheet.show que ma "feuille_excel" est bien remplie avant l'étape restauration et si je remet cette instruction apres elle est vide 8O

Ça devrait être plus rapide sans toutes ces boucles et ces sélections/activations. Bien sur, comme je n'ai pas MSOWC.DLL, je ne peux rien tester...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub CopieColle(ByVal cheminFichier As String) ' ' CopieColle Macro ' Ouvre le fichier de données et exporte les données sur notre spreadsheet (excel) ' Dim NomFichier As String ' Ouvre le fichier de données Workbooks.Open Filename:=cheminFichier ActiveSheet.UsedRange.Copy spreadsheet.Excel.Sheets("Données").Cells(1, 1).Paste Application.CutCopyMode = False ' Vide le presse-papier NomFichier = Replace(Mid$(cheminFichier, InStrRev(cheminFichier, "\")), "\", "") Workbooks(NomFichier).Close SaveChanges:=False spreadsheet.Show End Sub
Je ne comprends pas ce que tu veux accomplir avec NomFichier puisque tu fais référence à un autre classeur que celui que tu as ouvert. Mais tu dois avoir une bonne raison... ;)

10/01/2008, 10h20
gregyard@hotmail.com

Bonjour Singular,

Et merci pour ta réponse :)

Pour tout dire c'est un code que j'ai repris donc j'ai peur de ne pas pouvoir t'expliquer le pourquoi de ce 2eme nom de fichier...:?

Sinon j'ai testé ton code et malheureusement le temsp est tres long...Je n'ai encore pas pu attendre jsuqu'a la fin il a fallu que je stop l'appli...

Je vais abandonner les spreadsheet je crois et trvailler avec une bonne feuille excel

En tout k merci ;)