Conversion csv en Excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/09/2017, 21h18
scoubida42

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,
27/09/2017, 10h36
Menhir

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 ?
27/09/2017, 11h43
Marc-L

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, …
27/09/2017, 18h14
scoubida42

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.
27/09/2017, 18h27
scoubida42

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.
27/09/2017, 18h32
Marc-L

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 !
27/09/2017, 18h35
scoubida42

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.
27/09/2017, 18h37
Marc-L

En VBA remplacer la séquence VbCrLf par exemple (cf aide VBA interne) par le caractère désiré, aucun souci …
27/09/2017, 18h37
scoubida42

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.
27/09/2017, 18h40
Marc-L

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) …
27/09/2017, 18h54
scoubida42

1 pièce(s) jointe(s)

Voici le fichier initial que j'ai du passer au format texte pour réussir à le télécharger
Pièce jointe 315007
27/09/2017, 19h00
scoubida42

1 pièce(s) jointe(s)

Voici le fichier ciblePièce jointe 315009
27/09/2017, 19h02
Marc-L

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

Je vais regarder à tête reposée.
27/09/2017, 19h04
scoubida42

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 …

28/09/2017, 19h49
Marc-L

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 …
28/09/2017, 20h47
Invité

Bonsoir Marc,
Demain on regardera la rubrique nécrologique!
29/09/2017, 04h04
Docmarti
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
29/09/2017, 09h43
Marc-L

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é …

Voir 40 message(s) de cette discussion en une page