EXCEL - VBA queryTables - chargement CSV avec saut ligne (LF) dans les colonnes - Chargement incorrect

Version imprimable

4 pièce(s) jointe(s)

Bonjour,

J'ai saisie un jeu de données dans Excel avec dans des cellules des retour ligne (LF)

Pièce jointe 645635

Je l'ai sauvegardé sous CSV (point virgule) Pièce jointe 645639
Pièce jointe 645676

Mais quand je charge le CSV via le code VBA

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
Sub fUploadCSV()
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\monpz\OneDrive\Desktop\data.csv", Destination:=Sheets(3).Range("$D$1"))
        .Name = "data"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Les sauts de ligne (LF) sont interprétés comme des lignes supplémentaires -> un chargement incorrect
Pièce jointe 645633

Comment charger le fichier correctement ?

Bonjour,
Je n'ai jamais ouvert un fichier csv de cette façon mais avec Power Query, cela fonctionne parfaitement

Code:

1
2
3
4
5
let
    Source = Csv.Document(File.Contents("C:\Users\Philippe\Downloads\DataCRLF\DataCRLF.csv"),[Delimiter=";", Columns=2, Encoding=1252, QuoteStyle=QuoteStyle.Csv]),
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type text}})
in
    #"Type modifié"

24/10/2023, 12h00
Franc

Bonjour, je ne sais pas si ça résoudra ton problème mais je détecte une petite erreur.
Tu as écrit .TextFileCommaDelimiter = True et .TextFileSemicolonDelimiter = False alors que ça devrait être l'inverse.
24/10/2023, 19h20
informer

Citation:

Envoyé par Franc

Bonjour, je ne sais pas si ça résoudra ton problème mais je détecte une petite erreur.
Tu as écrit .TextFileCommaDelimiter = True et .TextFileSemicolonDelimiter = False alors que ça devrait être l'inverse.

Bonjour FRANC,

Merci pour ton observation et j'ai modifié mon post initial suite à ta remarque car le fichier est bien avec des "COMMA"

1 pièce(s) jointe(s)

Citation:
Envoyé par Philippe Tulliez
Bonjour,
Je n'ai jamais ouvert un fichier csv de cette façon mais avec Power Query, cela fonctionne parfaitement
Code:

1 2 3 4 5 let Source = Csv.Document(File.Contents("C:\Users\Philippe\Downloads\DataCRLF\DataCRLF.csv"),[Delimiter=";", Columns=2, Encoding=1252, QuoteStyle=QuoteStyle.Csv]), #"Type modifié" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type text}}) in #"Type modifié"
Bonjour Philippe,

Merci pour ta solution avec PowerQuery. Par contre, je n'ai pas trouvé de tutos sur le code PowerQuery, des pistes à me proposer ?

De plus comment s'articule le code PowerQuery / VBA ? Sont-ils totalement indépendants l'un de l'autre ?

Pièce jointe 645680

Merci par avance

25/10/2023, 06h10
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,

Citation:

Merci pour ta solution avec PowerQuery. Par contre, je n'ai pas trouvé de tutos sur le code PowerQuery, des pistes à me proposer ?

Pour un usage simple, le code est généré automatiquement comme on peut le faire avec l'enregistreur de macros
Par exemple pour charger un fichier csv, il suffit de cliquer sur l'onglet [Données] et ensuite sur la commande A partir d'un fichier texte/CSV et ensuite choisir Transformer les données dans la boîte de dialogue qui va apparaître

Pièce jointe 645692

Le langage de Power Query est le langage M.
Il y a des milliers de tutois/vidéos sur le sujet sur le Web comme par exemple la chaîne YouTube "Wise Cat" de Boris Noro
Il y a une rubrique dédiée à Power Query sur ce site https://www.developpez.net/forums/f2...e/excel/power/

Citation:

De plus comment s'articule le code PowerQuery / VBA ? Sont-ils totalement indépendants l'un de l'autre ?

On peut automatiser la récupération de plusieurs fichiers (Texte/CSV, Excel, Access, etc.) sans passer par du VBA uniquement avec Power Query, cela va 100 fois plus vite que de créer du code VBA mais on peut par exemple s'il le faut, avoir une ligne VBA pour actualiser les requêtes Power Query.
25/10/2023, 07h37
informer

Encore merci pour ton aide précieuse Philippe !

2 pièce(s) jointe(s)

J'ai testé d'autres méthodes qui par contre fonctionnent avec

sCnx = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & ";Extended Properties='text;HDR=YES;FMT=TabDelimited'" '---->OK _
sCnx = "Driver=Microsoft Access Text Driver (*.txt, *.csv);Dbq=" & sPath & "; Extensions=asc,csv,tab,txt;" '---->OK _
sCnx = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & sPath & ";Extensions=asc,csv,tab,txt;" '---->OK

Liens utiles
https://www.connect strings.com/text-file
connect strings/microsoft-jet-ole-db-4-0/
connect strings/ace-oledb-12-0/

Pièce jointe 645740---- Pièce jointe 645739

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
36
37
38
39
40
Sub fUploadCSVwSQL()
 
    Dim oCnx As New ADODB.Connection
    Dim oRset As New ADODB.Recordset
 
    Dim sCnx As String, sSQL As String, sPath As String, sFileName As String, sPathFile As String
 
    Sheets(3).Cells.Clear
 
    sPath = "C:\Users\monpz\OneDrive\Desktop\"
    sFileName = "data.csv"
    sPathFile = sPath & sFileName
 
    '---------------------------------------------------------------------------------------------------------- _
    Méthodes possibles _
    ----------------------------------------------------------------------------------------------------------
    sCnx = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & ";Extended Properties='text;HDR=YES;FMT=TabDelimited'" '---->OK _
    sCnx = "Driver=Microsoft Access Text Driver (*.txt, *.csv);Dbq=" & sPath & "; Extensions=asc,csv,tab,txt;" '---->OK _
    sCnx = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & sPath & ";Extensions=asc,csv,tab,txt;" '---->OK
 
 
 
    oCnx.Open sCnx
 
    sSQL = "SELECT * From " & sFileName
 
    oRset.Open sSQL, oCnx
 
    With Sheets(3)
        .Range("A2").CopyFromRecordset oRset
        For Each oFld In oRset.Fields
            .Range("A1").Offset(0, i) = oFld.Name
            i = i + 1
        Next
    End With
 
    oRset.Close
    oCnx.Close
 
End Sub

26/10/2023, 06h48
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,
Sans un échantillon du fichier csv en question, il est difficile d'apporter une réponse pertinente.
Je n'ai pour ma part pas de souci à ouvrir un fichier texte avec Power Query. Le problème vient peut-être du jeu de caractères que Power Query peut gérer.

Dans la boîte de dialogue qui s'affiche lorsque l'on charge un fichier csv et avant de cliquer sur le bouton Transformer les données, il y a deux listes déroulantes qui permettent de sélectionner pour l'une le délimiteur et pour l'autre le type de jeu de caractères.

Pièce jointe 645754