Discussion :

[informer]

Bonjour,

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





Je l'ai sauvegardé sous CSV (point virgule) DataCRLF.zip




Mais quand je charge le CSV via le code VBA

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



Comment charger le fichier correctement ?

[Philippe Tulliez]

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

Code :

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

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

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

[informer]

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"

[informer]

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

Code :

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

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 ?



Merci par avance

[Philippe Tulliez]

Bonjour,

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



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/

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.

[informer]

Encore merci pour ton aide précieuse Philippe !

[informer]

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/

----

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