Discussion :

[pdufranc]

Bonjour
Je cherche une macro qui copie le contenu de n fichier csv dans n feuilles d'un fichier excel.
La particularité est que les csv on plus de 500 colonnes et 100 lignes.
Un simple select copy paste ne suffit pas car il ne prend que 255 colonnes.
Merci par avance pour votre aide.
Cordialement

[pdufranc]

j'ai trouve

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'ouverture XLS
            Set xls = Workbooks.Open("My.xlsm")
'boucle
For nIndex = 1 To n
'ouverture cvs strCsvFiles-> tableau contenant le chemin + nom des csv
            Set csv = Workbooks.Open(strCsvFiles(nIndex))
            csv.Sheets(1).Columns(1).TextToColumns Range("A1"), Semicolon:=True
' shortFiles -> tableau avec juste nom des csv
            Workbooks(shortFiles(nIndex)).Sheets(1).Copy Before:=Workbooks(My.xlsm).Sheets(1)
 
csv.Close (True)
Next nIndex
xls.Close (True)