Bonsoir à tous,
j'ai un petit probleme, je n'arrive pas à comprendre pourquoi la macro suivante toute simple prend quasiment 18s pour importer seulement 18 lignes
ça me semble enorme non ?
merci de m'éclairer
bonne soirée à tous
j'ai un petit probleme, je n'arrive pas à comprendre pourquoi la macro suivante toute simple prend quasiment 18s pour importer seulement 18 lignes
ça me semble enorme non ?
merci de m'éclairer
bonne soirée à tous
Code:
Sub import()
Dim Fichier As String
t = Timer()
Fichier = "C:\Documents and Settings\MON ORDI\Bureau\MAIL2.xlsm"
Application.ScreenUpdating = False
Workbooks.Open Fichier
Fichier = ActiveWorkbook.Name
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
ActiveSheet.Range("A1:N65").AutoFilter Field:=11, Criteria1:="Oui"
Workbooks(Fichier).Sheets("feuil1").Columns("A:K") .Copy Workbooks("extraction.xlsm").Sheets("feuil1").Colu mns("A:K")
Application.DisplayAlerts = False
Workbooks(Fichier).Close
MsgBox Timer() - t
End Sub