Bonjour à tous,
J'étais assez fière de mon petit programme qui ouvre tous les fichiers (données de spectroscopie) d'un dossier et récupère la colonne 2 pour la coller dans un fichier de synthèse mais je viens de voir que lorsqu'il y a trop de fichiers à ouvrir le programme plante lors de l’exécution. Je suppose que j'utilise trop la mémoire mais je ne sais pas comment faire. Quelqu'un pourrait améliorer le code? pour info j'ai environ 500 fichiers à ouvrir
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
34
35
36
37
38
39
40 Sub ouvrirfichiers() Dim Fichier As String Dim Chemin As String Dim Wb As Workbook Dim NB_SPECTRES As Integer Chemin = "C:\test\" Fichier = Dir(Chemin & "*.*") Do While Fichier <> "" Set Wb = Workbooks.Open(Chemin & Fichier) NB_SPECTRES = NB_SPECTRES + 1 Columns("B:B").Select Selection.Copy Windows("programme_FTIR.xlsm").Activate Columns(NB_SPECTRES).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Wb.Close True Set Wb = Nothing Fichier = Dir Cells(1, NB_SPECTRES) = Fichier Loop ActiveWorkbook.Save End Sub
Partager