Discussion :

[kevin00012]

Bonjour
j'ai une macro qui doit ouvrir un fichier excel, extraire les données rapidement et les coller dans un nouveau fichier excel, ma macro marche bien mais la feuille du fichier source étant de taille variable comment prendre en compte une taille dynamiquement lors de la copie, de plus mon fichier source faisant 15 000 lignes, quelle est la meilleur méthode pour faire une copie RAPIDE en VBA.

merci pour votre aide !

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
 
Option Explicit
Declare Function GetTickCount Lib "Kernel32" () As Long
 
Sub Ouvre()
 
Dim x
 x = GetTickCount
 
 
Dim Nom_Fichier
 Dim wb As Workbook
 
Nom_Fichier = Application.GetOpenFilename()
If Nom_Fichier <> False Then
    Set wb = Workbooks.Open(Nom_Fichier)
 
 
End If
 
 
Feuil1.Range("A1:B3").Value = wb.Worksheets("Feuil1").Range("A1:B3").Value
 
'Application.ScreenUpdating = False
Feuil1.Range("A1:B3").Value = wb.Worksheets("Feuil1").Range("A1:B3").Value
'Application.ScreenUpdating = True
wb.Close
 
 
 
MsgBox GetTickCount - x & "ms"
 
End Sub

[Marc-L]

Bonjour,

soit via   UsedRange.Copy  

soit en n'ouvrant pas le classeur via ADODB, voir le tutoriel Lire et écrire dans les classeurs Excel fermés …

___________________________________________________________________________________________________________

Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …