Discussion :

[bilou_12]

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!

[Jean-Philippe André]

salut,

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

[bilou_12]

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 :

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

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

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 = 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.

[Jean-Philippe André]

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 :

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

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