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:
Mais cette macro ne fonctionne pas car excel écrit "l'indice n'appartient pas à la sélection".
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
Quelqu'un pourrait me filer un coup de main svp?
Merci d'avance!
Partager