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 : 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
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!