Bonjour,

j'écris le code suivant pour récupérer des données à partir de plusieurs fichiers :

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
Les fichiers s'ouvrent bien mais ensuite, le programme me met : l'indice n'appartient pas à la selection.
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