Bonjour,
Je cherche a savoir si il est possible d'optimiser le code suivant, de maniere a le rendre plus rapide.
le code va récuperer une donnée se situant dans un fichier le referme puis passe au fichier suivant.
Meme si vous avez quelques subtilités a me fournir n'hésitez pas
merci
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 Sub Macro2() Application.ScreenUpdating = False 'ici se trouve le chemin d'accés du repertoire racine = Range("v12") 'efface les données présentent dans ma colonne Range(Range("cq23"), Range("cq60")).Select Selection.ClearContents ' la ligne 23 est la premiere ligne de ma colonne Z = 23 Range("cq21").Select While Cells(Z, 69) <> "" 'la colonne d'a coté contient le nom du fichier a ouvrir fichier = Cells(Z, 69) 'ouverture du fichier en question Workbooks.Open Filename:=racine & fichier 'récuparation de la donnée stock = Right(Range("a3"), 10) 'fermeture du fichier Workbooks(fichier).Close 'sotck de la donnée dans ma colonne Cells(Z, 95) = stock 'incrementation Z = Z + 1 Wend
Partager