Bonjour,
j'ai ce code pour copier des colonnes de différents fichiers sorties sur une meme feuille, mais il y a une erreur (erreur définie par l'application ou l'objet) au niveau de range (cells...).
Que faudrait il que je change? merci
Dim i, j As Integer
For i = 1 To 5
j = i + 1
Workbooks.Open "C:\A" & i & ".csv"
Workbooks("A" & i & ".csv" ).Sheets("A" & i).Range("AS2:AS366" ).Copy (Workbooks("RESULTAT.xls" ).Sheets("Resultat" ).Range(Cells(3, j), Cells(367, j)))
Workbooks("A" & i & ".csv" ).Close
Next i