Import .csv dans .xls (1 .csv par feuille)

bonjour et merci,
ça marche nickel tant que le nom de mes fichiers .csv ne comporte pas plus de 31 caractères (sans compter la chaine ".csv" à la fin du nom) ;
si le nom d'1 des CSV dans le rep fait 32 car. de longueur ou plus, j'ai l'erreur 400 au lancement de la macro ;
une idée pour éviter cette limite ?

Concernant le dernier point de positionner les onglets dans 1 certain ordre, j'ai modifié le script python (celui qui me crée les 10 csv dans le répertoire csv_files) pour que ces 10 csv portent des noms allant de 1-xxx.csv à 10-yyy.csv ;
grâce à ce numéro, les csv sont rangés dans l'ordre que je souhaite dans l'.xls;

mais, je voudrais pouvoir retirer ce préfixe x- au niveau du nom des onglets car les noms des onglets doivent suivre un format donné;
est-ce faisable dans la macro ?
J'espère ne pas trop abuser de ta patience
Merci pour ton aide précieuse

Bonjour bigstyx,

Désolé pour le retard, mais le planning était un peu chargé et je n'avais pas pu tester correctement. Je te propose cette version qui devrait mieux fournir son résultat de façon conforme :

https://www.cjoint.com/c/CCdvo7H4mxK

J'ai résolu la 1ere question de supprimer les feuilles vides Sheet2 et Sheet3 en rajoutant ceci :
au début :
Dim s2 As String, s3 As String
s2 = "Sheet2"
s3 = "Sheet3"
. . .
et après wbs.Sheets(feu).Delete :
wbs.Sheets(s2).Delete
wbs.Sheets(s3).Delete

J'ai parlé un peu vite, dans mon dernier poste :
1) quel que soit le type de .csv (avec ',' ou avec ';' ), je n'ai plus l'erreur 400 ; bizarre;
2) si j'utilise des .csv avec des ',', le fichier .xls résultant est OK (à part les 2 feuilles Sheet2 et Sheet3 évoquées)
3) si j'utilise des .csv avec des ';', le fichier .xls résultant est également correctement créé, mais chaque ligne de mes .csv se retrouve dans 1 seule cellule avec les ';' visibles ;

Ce résultat est un peu bizarre, dans la mesure où, sur mon poste, quand j'ouvre un .csv via Excel par un simple doucle-click dessus (quel que soit le fichir .csv) il faut que le séparateur soit des ';' pour que chaque mot du csv se retrouve bien dans des cellules différentes, alors que si le séparateur est 1 ',' une ligne complète se retrouve dans 1 seule cellule ;
il me semble que cette différence de comportement est lié aux paramètres régionaux sur mon poste,
mais, comme évoqué, le comportement est exactement opposé avec la macro ;
bon, ce n'est pas très gênant car je peux créer mes .csv (via Python) avec des ',' ou des ';' au choix
Restent les 2 questions annexes évoquées si tu as encore un peu de dispo;

merci dans tous les cas

en fait, ce dernier pb était du au fait que le séparateur dans mes fichiers csv étaiente des virgules; en les créant avec point-virgules, pas de soucis ;
un grand merci !
2 questions annexes (eh oui, on en veut toujours un peu plus) :
1) comment supprimer, via la même macro, les feuilles Sheet2 et Sheet3 présentes à l'arrivée dans le fichier .xls ainsi créé (Sheet1 a bien été retiré) (j'ai la version Excell anglaise)
2) est-il possible de réordonner les onglets, dans la même macro ? du genre :inverser les feuilles 1 et 2 ?

encore merci pour cette macro; ça m'aide beaucoup

l'erreur a changé :
après avoir cliqué sur le bouton "Importer", il m'ouvre 1 petite fenêtre contenant 1 croix rouge et le nombre 400, plus les 2 boutons OK et Help ;
une idée ?
merci

non, même erreur, en fait ...
mauvais fichier renvoyé sur cijoint.com, peut-être ...?
merci

merci bcp;
j'obtiens l'erreur ci-dessous quand je le lance en cliquant sur le bouton "Importer" :
Compile error:
Variable not defined

L'erreur pointe sur la 1ere ligne Sub import ... (mise en jaune) et sur la variable xlOpenXMLWorkbook (mise en blanc sur fond noir)

Au passage, quand j'ouvre ce fichier "CCcxRzVG3wY_recup_csv.xlsm", il est converti, sans doute parce que je suis en Excel 2003 comme je l'indiquais au début ...
y aurait-il un rapport avec le pb ?
une idée ?

merci

Le code étant court, je le copie/colle ici, si ça ne pose pas de pb :
(j'ai vu des entrées de ce forum agrémenté de liens cijoint.com, qui n'étaient plus accessibles bien que ça semblait répondre à mon besoin)

C'est un code repris sur le site, ici, et très légèrement retouché :
Sub import_CSV_in_xls()
Dim principal As ThisWorkbook
Dim repertoire As String, fichier$
Dim i As Integer
i = 0
Application.ScreenUpdating = False
Set principal = ThisWorkbook
repertoire = ThisWorkbook.Path & "\csv_files\"
fichier = Dir(repertoire & "*.csv")
Do While fichier <> ""
i = i + 1
Workbooks.Open (repertoire & fichier)
ActiveSheet.UsedRange.Copy Destination:=principal.Sheets(i).Range("A" & Rows.Count).End(xlUp).Offset(0)
ActiveWorkbook.Close
fichier = Dir
Loop
End Sub

Les pbs avec ce code sont les suivants :
1) je suis obligé de créer les Feuilles à la main avant de lancer la macro
2) cette macro n'affecte pas le nom des csv importés aux feuilles du fichier xls
3) il y a 1 pb sur l'import dans la 1er feuille
4) l'import des csv se fait dans l'.xls dans lequel se trouve cette macro

Comme évoqué, les csv sont très basiques, du genre :
Contenu du file1.csv :
entete1,entete2,entete3,entete4
toto,titi,tata,tutu

Merci

Bonjour,

Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la macro que tu as commencée sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile de t'aider.