Discussion :

[MickPbes]

Bonjour,

Ça fait plusieurs jour que je me creuse le crane pour trouver une solution à mon problème mais pour l'instant sans résultat.
Concrètement, je doit récupérer sur un fichier Excel (Resum) une grande quantité de valeurs provenant de plusieurs autres fichiers Excel, environ 12000 (initialement c'était des fichiers CSV).
Je récupére mes valeurs de la manière suivante :

Pour la période du 01/01/2016 au 31/01/2016 j'ai 31x11 fichiers (11 appareils de 10.0.0.11 à 10.0.0.21) à ouvrir afin d'extraire mes valeurs

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
Workbooks.OpenText "W:\01_Proj\.......................\10.0.0.11\data\2016\2016-01-01.xls"
Workbooks("2016-01-01.xls").Activate
Workbooks("2016-01-01.xls").Sheets("2016-01-01").Range("AI7:AI150").Copy
Workbooks("Resum.xlsm").Activate
Workbooks("Resum.xlsm").Sheets("Feuil1").Range("C2").Select
Workbooks("Resum.xlsm").Sheets("Feuil1").Paste
Application.CutCopyMode = False
Workbooks("2016-01-01.xls").Close
.
.
.
.
Workbooks.OpenText "W:\01_Proj\.......................\10.0.0.21\data\2016\2016-01-31.xls"
Workbooks("2016-01-31.xls").Activate
Workbooks("2016-01-31.xls").Sheets("2016-01-31").Range("AI7:AI150").Copy
Workbooks("Resum.xlsm").Activate
Workbooks("Resum.xlsm").Sheets("Feuil1").Range("M4322").Select
Workbooks("Resum.xlsm").Sheets("Feuil1").Paste
Application.CutCopyMode = False
Workbooks("2016-01-31.xls").Close

Tout ça pour les 31 jours du mois de janvier.
Auriez vous SVP!!! une solution à l'aide d'une boucle pour résoudre mon problème si possible sans faire une refonte totale de l'existant.
Merci beaucoup par avance.

[Jean-Philippe André]

Salut,

tu peux faire une boucle avec une date

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim dt As Date
dim strdt as string
For dt=#01/01/2016# To #31/01/2016#
strdt = format(dt,"YYYY-MM-DD")
Workbooks.OpenText "W:\01_Proj\.......................\10.0.0.11\data\2016\" & strdt & ".xls"
Workbooks(strdt & ".xls").Activate
Workbooks(strdt & ".xls").Sheets(strdt).Range("AI7:AI150").Copy
Workbooks("Resum.xlsm").Activate
Workbooks("Resum.xlsm").Sheets("Feuil1").Range("C2").Select
Workbooks("Resum.xlsm").Sheets("Feuil1").Paste
Application.CutCopyMode = False
Workbooks(strdt & ".xls").Close
Next dt

le probleme est que tu passes d'une copie en cellule C2 a M4322 sans qu'on ne sache pourquoi ni a quel calcul ces cellules correspondent.

[MickPbes]

Merci beaucoup pour ta réponse.
En fait je copie 144 cellules (10mn x 24h/jour) que je dois coller dans mon fichier "Resum" à des emplacements bien précis.
Pour le premier jour, je colle de la cellule C2 à C145 (pour mon appareil 1)
Pour le deuxième jour, je colle de la cellule C146 à C289 (tjrs pour l'appareil 1) et ça jusqu'au 31.
Et rebelote pour l'appareil 2,3,.... jusqu'à l'appareil 11 (M2 à M145,.....M4322).

[Jean-Philippe André]

Donc tu fais une double boucle sur les lignes + les colonnes.

Essaie d'adapter mon code en passant par une syntaxe

Code :

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

Workbooks("Resum.xlsm").Sheets("Feuil1")Cells(ligne,colonne).Select

au lieu du

Code :

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

Workbooks("Resum.xlsm").Sheets("Feuil1").Range("C2").Select

precedemment suggere, avec ligne et colonne 2 variables dont je te laisse t'occuper =]

[MickPbes]

C'est parfait pour la boucle de date, ça fonctionne très bien. Par contre ça colle à chaque fois à partir de la cellule C2, donc ça écrase les anciennes valeurs.
Je ne suis pas très pointu pour la définition de l'emplacement des cellules à coller avec la boucle.
Comment dois-je créer un Dim? et créer une boucle pour que ma zone de collage se décale de 145 ligne à chaque date supp?
Pardon pour ces question qui doivent te paraitre ridicules.

[Jean-Philippe André]

par exemple avec une variable ligne que tu incrementes a chaque fois de 145

Code :

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

ligne = ligne +145