Copier colonnes dans une feuille VBA
claire
-
melanie1324 -
melanie1324 -
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
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
A voir également:
- Copier colonnes dans une feuille VBA
- Formule moyenne excel plusieurs colonnes - Guide
- Comment faire deux colonnes indépendantes dans word - Guide
- Comment copier une vidéo youtube - Guide
- Déplacer une colonne excel - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
1 réponse
Bonjour,
c'est ca qui est mal écrit :
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
il faut l'écrire :
Workbooks("A" & i & ".csv").activate
Sheets("A" & i).select
Range("AS2:AS366").Copy
Sheets("Resultat").select
cells(3,j).select
activesheet.paste
Workbooks("A" & i & ".csv").Close
c'est ca qui est mal écrit :
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
il faut l'écrire :
Workbooks("A" & i & ".csv").activate
Sheets("A" & i).select
Range("AS2:AS366").Copy
Sheets("Resultat").select
cells(3,j).select
activesheet.paste
Workbooks("A" & i & ".csv").Close