copier dans différentes colonnes a la suite

Marsh Posté le 30-07-2009 à 14:02:02

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

Marsh Posté le 30-07-2009 à 14:02:02

Marsh Posté le 30-07-2009 à 14:54:45

Bonjour

Je ne vois pas trop ce qui pose souci, le message exacte et le n° d'erreur c'est quoi ?

Cordialement

[edit]
Essaie cela a la place :

Code :

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("A1:A366" ).Copy Workbooks("RESULTAT.xls" ).Sheets("Resultat" ).Cells(3, j)
Workbooks("A" & i & ".csv" ).Close
Next i

[/edit]

Message cité 1 fois
Message édité par SuppotDeSaTante le 30-07-2009 à 15:00:36

---------------
Soyez malin, louez entre voisins !

Marsh Posté le 01-08-2009 à 10:46:57

SuppotDeSaTante a écrit :

[edit]
Essaie cela a la place :

Code :

Dim i As Integer, 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("A1:A366" ).Copy Workbooks("RESULTAT.xls" ).Sheets("Resultat" ).Cells(3, j)
Workbooks("A" & i & ".csv" ).Close
Next i

[/edit]

[:cbrs]

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *