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: