Convertir CSV en XLS

[zakou76]

Bonjour.

Mon classeur "LISTE.CSV" contient plusieurs colonnes au format CSV. Je voudrais récupérer les colonnes "D G J M et P" dans un nouveau classeur de telle façon à avoir la colonne D dans feuil1, la colonne G dans feuil2, ...
Ensuite convertir chaque feuille au format XLS par "DONNEE CONVERTIR..." en éclatant chaque colonne en CSV en 4 colonnes: "DATE HEURE LIBELLE ETAT".
La colonne ETAT doit contenir l'information "NON OPERATIONN" ou "OPERATIONNEL"

Merci pour votre aide

 

[JNP]

Re : Convertir CSV en XLS

Bonjour Zakou76 🙂,
Pour la première partie, tu peux t'inspirer de ça

Sub test()
Dim Classeur As Workbook
Set Classeur = GetObject(ThisWorkbook.Path & "/liste.csv")
[COLOR=blue]Classeur.Sheets("liste").Columns(1).Copy ThisWorkbook.Sheets("Feuil1").Range("A1")
[/COLOR]Classeur.Close
End Sub

en dupliquant et adaptant la ligne bleu autant que nécessaire.
Par contre, pour la suite, I don't understand 😛...
Le CSV à l'ouverture éclate déjà les données avec le séparateur ";". Alors après, comment veux-tu éclater chaque colonne ? Quel est le séparateur miracle 😀?...
Bon WE 😎