Discussion :

[scoubida42]

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,

[Menhir]

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 ?

[Marc-L]

Bonjour !

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

[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.

[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.

[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 !

[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.

[Marc-L]

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

[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.

[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) …

[scoubida42]

Voici le fichier initial que j'ai du passer au format texte pour réussir à le télécharger
exportoriginal - CopieTXT.txt

[scoubida42]

Voici le fichier cibleexport-comments-1032_cible.xls

[Marc-L]

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

Je vais regarder à tête reposée.

[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.

[Invité]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

P'tite démonstration à la romaine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

___________________________________________________________________________________________________________

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

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

[Invité]

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

[Docmarti]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Salut Doc !

Tu a raison 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é …