Conversion csv en Excel

Salut Marc.
Tu as raison.
Avec ce fichier, ta methode semble preferable a Workbooks.Open, car ce fichier contient un separateur de liste americain ( la virgule ) et un format de dates non americain ( jj/mm/aaaa ). D'ou inversion possible jour/mois sur les dates.
Il serait interessant de connaitre les parametres regionaux de l'ordinateur qui a produit ce fichier pour essayer de le lire avec Workbooks.Open en utilisant les memes parametres regionaux.

Non seulement le séparateur est une virgule mais il y a aussi des virgules dans les textes,
double peine avec la séquence VbCrLf ‼
A cause des dates j'ai préféré passer par TextToColumns …

Mais tu as bien fait d'intervenir pour Workbooks.Open car beaucoup ne pensent pas à consulter l'aide VBA !

Mon code colle bien à ce cas mais ne fonctionnera pas avec tous les types de fichiers mal conçus.
Car ici ce qui a évité l'usine à gaz - sinon je n'aurais rien posté sans nouvelle du demandeur :roll: -
c'est la présence des guillemets encadrant les données car sans, cette voie n'était pas possible …

Bonjour
Trop occupé pour essayer, mais je tenterais personnellement ceci :
- remplacement de chr(34) & vbcrlf par chr(1)
- remplacement de vbcrlf par chr(10)
- remplacement de chr(1) par chr(34) & vbcrlf

Bonjour.

Pour que les donnees (dates ou numeriques) soient correctement interpretees par Workbooks.Open, il est preferable de toujours utiliser Local:=True dans les parametres. Le probleme alors est que le separateur de donnees du fichier CSV doit etre le separateur local. Si le separateur n'est pas le separateur local, Excel nous permet d'ajouter en tete du fichier la ligne suivante qui indique explicitement le separateur qui est utilise par ce fichier.

Code:

---

sep=,

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub AjouterSeparateurEnTeteDuFichier() Separateur = "," chemin = "C:\Users\Admin\Downloads\" FichierCSV = "exportoriginal - CopieTXT.csv" nom = chemin & FichierCSV   Dim objStream, strData Set objStream = CreateObject("ADODB.Stream") objStream.Charset = "utf-8" objStream.Open objStream.LoadFromFile (nom) strData = objStream.ReadText() objStream.Close Set objStream = Nothing   FichierCSV = "Tmp_ADO.csv" nom = chemin & FichierCSV FileNumber = FreeFile Open nom For Output As FileNumber If UCase(Mid(strData, 1, 4)) = "SEP=" Then B = InStr(strData, vbCrLf) strData = Mid(strData, B + 2) End If Print #FileNumber, "sep="; Separateur; vbCrLf; Print #FileNumber, strData; Close Set wb = Workbooks.Open(Filename:=nom, local:=True)   End Sub

---