Discussion :

[bilou_12]

Bonjour,

J'ai un petit souci à mon taf!

Je cherche à rassembler les données éparpillées dans plein de fichier dans un seul!

Sachant que les chemins des fichiers sont justes à coup sûr (copié / collé) , pourquoi j'ai l'erreur "l'indice n'appartient pas à la sélection" lorsque je lance la macro 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
Sub ImportDataJanvier1()
 
 
'Workbooks("Reporting").Sheets("Feuil1").Cells(22, 3).Value
        'boucle sur les entreprises source et cible
        For i = 2 To 13
 
            Workbooks("L:\COMMUN SERVICES\DATA\Reporting.xls") _
            .Sheets("Feuil1").Cells(i, 3).Value = Workbooks("L:\COMMUN SERVICES\DATA\ACP_Synthèse-Cpte-du-2012-01.xls") _
            .Sheets("Synthèse_Cpte_du_02_01_2012").Cells(i, 10).Value
 
        Next
 
 
End Sub

Merci d'avance!

[mercatog]

Essaies comme ceci

Code :

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

1
2
3
4
5
6
7
Sub ImportDataJanvier1()
 
With ThisWorkbook.Sheets("Feuil1").Range("B2:B13")
    .Formula = "='L:\COMMUN SERVICES\DATA\[ACP_Synthèse-Cpte-du-2012-01.xls]Synthèse_Cpte_du_02_01_2012'!J2"
    .Value = .Value
End With
End Sub

[bilou_12]

Merci mercatog!