Boucle sur les noms de fichier d'un répertoire

Bonjour,

J'ai un répertoire contenant des fichiers dont le titre est leur date de création. Il s'agit des jours ouvrés depuis le 1er juillet 2011 au 31 dec 2011!

Je dois récupérer des données dans chacun de ces fichiers! Pour cela, je cherche à boucler sur le nom des fichiers de la manière suivante:

Code:

---

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

Sub Macro1()   'variables Dim i As Integer   For i = 1 To 31 If i < 10 Then Windows("Synthèse-Cpte-au-2011-07-0" & i & ".xlsm").Activate Range("K2:K13").Select Application.CutCopyMode = False Selection.Copy Windows("Reporting2011.xls").Activate Range("C" & i + 1).Select ActiveSheet.Paste End If   If i > 10 Then Windows("Synthèse-Cpte-au-2011-07-" & i & ".xlsm").Activate Range("K2:K13").Select Application.CutCopyMode = False Selection.Copy Windows("Reporting2011.xls").Activate Range("C" & i + 1).Select ActiveSheet.Paste End If   Next   End Sub

---

Mais cette macro ne fonctionne pas car excel écrit "l'indice n'appartient pas à la sélection".

Quelqu'un pourrait me filer un coup de main svp? :)

Merci d'avance! :ccool:

salut,

ton code sous-entend que les fichiers sont déjà tous ouverts, est-ce le cas ?

Oui parce que je teste sur les 3 1ers!

Comme il y en a beaucoup, j'ai copié collé le chemin pour ne pas tous les ouvrir et la y a un problème! Faut faire autre chose?

Autre problème, le i parcourt de 1 à 31 mais j'ai des fichiers que pour les jours ouvrés! Comment puis-je boucler en donnant à i les valeurs des numéros des jours ouvrés de juillet 2011?

Pour info, j'ai modifié mon code de la manière suivante:

Code:

---

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

Sub Macro1()   'variables Dim i As Integer   For i = 15 To 34 j = Range("C" & i).Value If j < 10 Then Windows("Synthèse-Cpte-au-2011-07-0" & j & ".xlsm").Activate Range("K2:K13").Select Application.CutCopyMode = False Selection.Copy Windows("Reporting2011.xls").Activate Range("C" & i + 1).Select ActiveSheet.Paste End If   If j > 10 Then Windows("Synthèse-Cpte-au-2011-07-" & j & ".xlsm").Activate Range("K2:K13").Select Application.CutCopyMode = False Selection.Copy Windows("Reporting2011.xls").Activate Range("C" & i + 1).Select ActiveSheet.Paste End If   Next   End Sub

---

en ayant au préalable tapé à la main les numéros des jours ouvrés de "C15" à "C34".

Mais ca bugge! :aie:

Désolé j'avais fait des boulettes sur le code précédent! et désolé pour les nbreux msg sur ce post...

Celui la est plus logique (mais ne fonctionne pas :calim2: ) :

Code:

---

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

Sub Macro1()   'variables Dim i As Integer     For i = 3 To 22 j = Cells(16, i).Value If j < 10 Then Windows("GBanque_Synthèse-Cpte-au-2011-07-0" & j & ".xlsm").Activate Range("K2:K13").Select Application.CutCopyMode = False Selection.Copy Windows("Reporting2011.xls").Activate Cells(2, i).Select ActiveSheet.Paste End If   If j > 10 Then Windows("GBanque_Synthèse-Cpte-au-2011-07-" & j & ".xlsm").Activate Range("K2:K13").Select Application.CutCopyMode = False Selection.Copy Windows("Reporting2011.xls").Activate Range("C" & i + 1).Select ActiveSheet.Paste End If   Next

---

avec les numéros des jours ouvrés de juillet écrit de C16 à V16.

2 choses :
- il faut t'assurer que la windows que tu souhaites activer existe bien, ce qui n'est testé nulle part
- au lieu de 2 tests if sur la valeur de j, tu peux simplifier avec quelque chose du style :

Code:

---

1 2 3 4

Dim tmpdt as Date j = Cells(16, i).Value tmpdt = Dateserial (2011,7,j) Windows("GBanque_Synthèse-Cpte-au-" & format(tmpdt,"yyyy-MML-dd") & ".xlsm").Activate

---