A voir également:
- Copier colonnes dans une feuille VBA
- Copier une vidéo youtube - Guide
- Déplacer une colonne excel - Guide
- Super copier - Télécharger - Gestion de fichiers
- Feuille de pointage excel - Télécharger - Tableur
- Supprimer une feuille word - 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