Conversion CSV vers XLS/XLSX via Macro

Bonjour Antonin,

Code à coller dans un fichier xls.
En lancant la macro, tous les csv du REPERTOIRE où est ce fichier seront téléchargés à la suite sur ce fichier xls et avec le nom du csv.

cdlt
zebanx

------

Sub CsvConsolider()
' Insère dans ce fichier tous les CSV du répertoires
ChDir ActiveWorkbook.Path
Set classeurMaitre = ActiveWorkbook
compteur = 1
nf = Dir("*.cs*")
Do While nf <> ""
If nf <> classeurMaitre.Name Then
Workbooks.Open Filename:=nf
For k = 1 To Sheets.Count
Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
'classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "" & compteur
compteur = compteur + 1
Next k
Workbooks(nf).Close False
End If
nf = Dir
Loop
End Sub

Tout d'abord merci pour la réponse aussi rapide !

Tu trouveras ci-joint le fichier qui en ressort et le problème est que rien est dans les cellules comme lorsque j'importe manuellement

PS: J'ai édité la question avec + de détails sur les pistes que j'avais mais la résultante est toujours la même

Cordialement,
MrAntonin

Re-bonjour Antonin,

J'ai effectivement vu que les fichiers importés (ou copiés d'ailleurs) ne rappatriaient pas toutes les données lors de la conversion. Possible que ce soit à cause des données non remplies de la colonne 2, je n'ai pas compris pourquoi il y avait ces pertes de données quand on copiait l'onglet du csv et qu'on appuyait sur convertir (avec ';').

J'ai résolu partiellement le problème en espérant que ce soit suffisant.

Donc, ci-joint un zip qui comprend :
- 4 csv à insérer dans le fichier xls "convertir"
- 1 fichier xls "convertir" où sont les macros.

Il faut dézipper le tout, enregistrer les fichiers dans le meme répertoire, ouvrir le fichier XLS et se mettre sur la première feuille puis lancer les macro succesivement.
La première macro va transformer tous les fichiers CSV en xls avec une conversion correcte.
La deuxième macro va les insérer sur le bon fichier.

Cdlt
thierry

Bonjour,
Merci de ton aide, j'ai fini par résoudre le problème en épluchant le Ce lien n'existe plus.

Je mets en pièce jointe le fichier contenant mes macros qui permettes de :
Je donne mon code en esperant que ça aidera certaines personnes, je suis débutant donc le code n'est pas très soignée je m'en excuse...

Bien cordialement,
MrAntonin