Temps execution macro

[alexga78]

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

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

 

[suistrop]

Re : Temps execution macro

je me lance :
ouvrir un fichier

 

[alexga78]

Re : Temps execution macro

re,
oui oublié de préciser c'est une petite macro d'import de données d'un autre fichier...

 

[chris]

Re : Temps execution macro

Bonjour

Essayes en désactivant le calcul auto au début de la macro puis en le remettant à la fin.

 

[alexga78]

Re : Temps execution macro

merci chris,
mais je crois que le probleme vient du filtre automatique...si je l'enleve la macro est bien plus rapide...
bon je crois je filterai après import
bonne soirée à tous