Comment importer plusieurs fichiers .csv en un fichier Excel ?

Bonjour

La seule solution que je voie est que ce soit le classeur qui ouvre les fichiers csv et compare ensuite les données (ou les écrase). On peut utiliser une routine du type suivant pour ouvrir chacun des csv à la suite
Dim Compteur2 as integer, Val_Cellule as String, Cellule_en_Cours
Compteur2=0
Open nomfichier For Input As #1
Do While Not EOF(1)
Compteur2 = Compteur2 + 1
Line Input #1, Val_Cellule
Cellule_en_Cours.Offset(Compteur2, 0).FormulaR1C1 = Val_Cellule
Loop
Close #1

'on remet les données en colonne à partir de la colonne B
Columns("A:A").TextToColumns Destination:=[B1], DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False

A+

re bonjour

J'ai oublié de préciser qu'il fallait une feuille excel par fichier sinon tu écrases les données précédentes et qu'il faut positionner avant Cellule_en_Cours par un Set Cellule_en_Cours=[A1]

A+

Merci beaucoup !
Je vais étudier le code que tu as écris (et oui j'avais oublié de préciser que je débutais en VBA ou VB...)