Discussion :

[cedric_c]

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

[Pierre845]

Personnellement je ferais les fichiers un par un déjà;
le mieux étant de faire une fonction ou une private sub que tu appelles avec un call

Ensuite, j'utilise plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set Wbk = Workbooks.Open(Filename:="chemindetonfichier")
Wbk.Worksheets(feuille).Activate

et ensuite je fais mes copier/coller

Tu as aussi l'import de données externes qui peut être utilisé.
Pour ça fais un enregistrement de macro, en utilisant données -> données externes -> importer des données, et tu obtiendras le code dans un module

[cedric_c]

Merci de ton aide.

j'ai remplacé par ta proposition mais j'ai toujours la même erreur.

Le problème vient du copier coller et pas de l'ouverture des fichiers.

Si quelqu'un voit le problème ...

Merci d'avance !

[Pierre845]

au lieu de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("T_1.csv").Worksheets("T_1").Range("A1:A15000").Copy Workbooks("courbes T.xls").Worksheets("Feuil1").Range("B2")

fais plutôt quelque chose qui ressemble à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Range(Cells(a, 1), Cells(b, 4)).Select
    Selection.Copy
    Wbk.Worksheets(feuil).Activate
    Cells(1, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

extrait de code à moi, à adapter

[cedric_c]

Ok merci je vais essayer