Bonjour,
j'écris le code suivant pour récupérer des données à partir de plusieurs fichiers :
Les fichiers s'ouvrent bien mais ensuite, le programme me met : l'indice n'appartient pas à la selection.
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 Sub Récupération_des_données() Workbooks.Open Filename:="C:\Users\Cédric\Données\T_1.csv" Workbooks.Open Filename:="C:\Users\Cédric\Données\T_5.csv" Workbooks.Open Filename:="C:\Users\Cédric\Données\T_10.csv" Workbooks("T_1.csv").Worksheets("T_1").Range("A1:A15000").Copy Workbooks("courbes T.xls").Worksheets("Feuil1").Range("B2") Workbooks("T_5.csv").Worksheets("T_5").Range("A1:A15000").Copy Workbooks("courbes T.XLS").Worksheets("Feuil1").Range("C2") Workbooks("T_10.csv").Worksheets("T_10").Range("A1:A15000").Copy Workbooks("courbes T.XLS").Worksheets("Feuil1").Range("D2") Workbooks("T_1.csv").Close Workbooks("T_5.csv").Close Workbooks("T_10.csv").Close End Sub
Je ne vois pas où est l'erreur... est ce que ca peut venir de la différence entre fichiers csv et xls ?
Et aussi est ce que la façon de fermer les fichiers est correcte ?
Merci de votre aide
Cédric
Partager