Conversion csv en Excel

Bonjour,

Je poste mon message ici en espérant que ce soit le bon endroit mais je n'en suis pas sur.
Je souhaite ouvrir un fichier csv avec Excel puis utiliser la fonction de conversion pour avoir des données dans des colonnes différentes de ma feuille de calcul.
Le but final est de faire cela sous forme de macro mais pour l'instant, j'en suis loin.

Plus en détails, voilà mon souci :
pour l'une de mes données de mon fichier, j'ai des commentaires de site internet dans lesquels j'ai des sauts de lignes.
La fonction de conversion de Excel ne prends pas en compte le saut de ligne comme je voudrais. Je n'arrive pas à les remplacer/supprimer pour qu'ils ne soient plus pris en compte dans la conversion.
Pour Excel, dans la conversion, un saut de ligne est une nouvelle ligne.

Si j'utilise openoffice calc, ma conversion se fait bien.

Comment puis-je faire ?

Merci par avance de vos idées,

Citation:

---

Envoyé par scoubida42

Si j'utilise openoffice calc, ma conversion se fait bien.
Comment puis-je faire ?

---

Bin... une logique pragmatique inciterait à te conseiller d'utiliser Calc qui dispose d'un Basic équivalent à VBA.
Qu'est-ce qui t'en empêche ?

Bonjour !

Citation:

---

Envoyé par scoubida42

Je n'arrive pas à les remplacer/supprimer pour qu'ils ne soient plus pris en compte dans la conversion.

---

Là c'est pourtant évident, il suffit déjà de vérifier le code ASCII du caractère à remplacer, aucune ambiguïté possible !

Sinon logiquement demander au fournisseur du fichier source de modifier son exportation …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Pour l'utilisation de openoffice calc, cela pourrait être une bonne idée si ce n'est qu'en fait, j'ai fini toute la partie traitement de mon fichier csv pour changer le format de certaines données via des macros et qu'elle est déjà fonctionelle.

Pour le code ASCII, je vais regarder tout de suite.

En fait, je ne peux pas chercher le code ASCII sinon toutes mes données vont se retrouver sur une seule et même ligne.

C'était en réponse à ton assertion « je n'arrive pas à remplacer » …

Si tu n'arrives pas à remplacer alors tu te trompes juste de caractère à remplacer !

En fait, à la fin de chaque ligne, que ce soit une ligne de commentaire ou une ligne complète de mon fichier csv, si j'affiche les symboles, j'ai les caractères LF et RC.
Je n'ai pas moyen de les différencier.

En VBA remplacer la séquence VbCrLf par exemple (cf aide VBA interne) par le caractère désiré, aucun souci …

En fait, le pattern de séparation est la virgule et le guillemet. Mais il arrive que parfois entre 2 guillemets, j'ai des sauts de ligne et c'est cela que j'ai l'impression que Excel ne sait pas gérer.

En fait si le fichier a été mal conçu …

Ou alors l'importation qu'il suffit de bien paramétrer manuellement et
en ayant activer au préalable l'Enregistreur de macro un code est livré sur un plateau !

Ne pouvant poursuivre sans voir un fichier source (.csv) et le résultat attendu (.xlsx) …

Voici le fichier initial que j'ai du passer au format texte pour réussir à le télécharger
Pièce jointe 315007

Voici le fichier ciblePièce jointe 315009

Ok autant pour moi j'avais oublié la séquence au milieu des champs …

Je vais regarder à tête reposée.

Merci beaucoup,

La seule idée que j'ai pour l'instant serait de récupérer chaque chaine entre guillemets et voir pour supprimer les sauts de lignes entre.

Bonjour,

tu as des caractère j'ai pensé qu'il s'agissait d'UTF8 mais ils sont encore présent!

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

Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}" Public Property Let PressePapier(Value) With CreateObject(DATAOBJECT_BINDING) .SetText Value .PutInClipboard End With End Property     Public Property Get PressePapier() With CreateObject(DATAOBJECT_BINDING) .GetFromClipboard PressePapier = .GetText End With End Property     Sub test() Server = "C:\MyRepertoire" With CreateObject("AdoDb.Connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server & ";Extended Properties=""Text;HDR=YES;Charset=UTF8;""" PressePapier = Replace(Replace(Replace(.Execute("Select * from exportoriginal#txt").GetString(, , vbTab, "©"), Chr(13), ""), Chr(10), "¤"), "©", vbCrLf) ThisWorkbook.Sheets(1).Range("A1").PasteSpecial xlPasteAll ThisWorkbook.Sheets(1).Cells.Replace What:="¤", Replacement:=vbCrLf, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False .Close End With End Sub

---

P'tite démonstration à la romaine :

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 30 31 32 33 34 35

Sub Demo1() Dim S$, SPQ$(), D&, L&, U&, R& S = ThisWorkbook.Path & "\export.csv" If Dir(S) = "" Then Beep: Exit Sub With CreateObject("ADODB.Stream") .Charset = "utf-8" .Open .LoadFromFile S SPQ = Split(.ReadText, vbCrLf) .Close End With D = UBound(SPQ) + (SPQ(UBound(SPQ)) = "") If D < 0 Then Beep: Exit Sub Application.ScreenUpdating = False L = 1 With Feuil1 .UsedRange.Clear .Cells(L, 1).Value = SPQ(0) U = UBound(Split(SPQ(0), ",")) For R = 1 To D S = SPQ(R) While UBound(Split(S, """,""")) < U And R < D R = R + 1 S = S & vbLf & SPQ(R) Wend L = L + 1 .Cells(L, 1).Value = S Next .[A1].Resize(L).TextToColumns DataType:=xlDelimited, Comma:=True, FieldInfo:=Array([{1, 1}], [{2, 1}], _ [{3, 1}], [{4, 1}], [{5, 4}], [{6, 1}], [{7, 1}], [{8, 1}], [{9, 1}], [{10, 1}]) .UsedRange.Rows.AutoFit .UsedRange.VerticalAlignment = xlCenter End With Application.ScreenUpdating = True End Sub

---

___________________________________________________________________________________________________________

   :arrow:   Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Pas de nouvelle ?

Ce n'est pas grave, la prochaine fois je passerais mon chemin, cela m'apprendra à livrer sur un plateau !

Mais bon c'est la mode depuis un moment, beaucoup répondent sans se préoccuper du règlement de ce forum …

Bonsoir Marc,
Demain on regardera la rubrique nécrologique!

La methode Workbooks.Open est la seule, dans Excel, qui interprete correctement les caracteres de fin de ligne qui sont entre parentheses.

Code:

---

1 2 3 4

chemin = "C:\Users\Admin\Downloads\" classeur = "exportoriginal - CopieTXT.csv" nom = chemin & classeur Set wb = Workbooks.Open(Filename:=nom, local:=False)

---

Local:=False si le fichier est au format americain ( separateur de lliste = virgule )
sinon Local:=True

Salut Doc !

Tu a raison :plusser: mais alors subsiste les caractères non convertis comme la source est codée en utf-8 !

Avec le paramètre Origin cela ne passe pas (erreur 400) sur ma vieille version de tests, à voir de ton côté …
D'où mon p'tit code via Stream pour cette conversion.

Avec OpenText et ses divers paramètres dont Origin, TextQualifier et Local à False
les caractères sont bien convertis mais le format d'origine n'est pas respecté, là aussi à voir de ton côté …

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

---