Bonjour,

J'ai fais une macro qui importe des données d'un fichier excel vers mon classeur, mais la macro est tres lente.


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
 
Sub Bouton6_Clic()
Fichier0 = Application.GetOpenFilename("Fichier Excel, *.csv; *.xlsx;*.xla")
    Sheets("Feuil3").Activate
    Var_chemin = Fichier0
    Fichier1 = ActiveWorkbook.Name
    Workbooks.Open Var_chemin, local:=True
    Fichier2 = ActiveWorkbook.Name
 
 Workbooks(Fichier2).Sheets("Feuil1").Range("P:P").Copy Workbooks(Fichier1).Sheets("Feuil3").Range("BC:BC")
 Workbooks(Fichier2).Sheets("Feuil1").Range("AU:AU").Copy Workbooks(Fichier1).Sheets("Feuil3").Range("BD:BD")
 
    Windows(Fichier2).Activate
    ActiveWorkbook.Close savechanges:=False
    Windows(Fichier1).Activate
    Sheets("Feuil1").Activate
End sub

pouvez-vous m'aider merci

cdt,
Max