Discussion :

[brutus437]

Bonjour à tous,

J'essaie d'importer en vba les données d'un fichier csv, mais au final les données importées sont toutes en vrac (alors que dans le fichier source csv les données sont biens réparties dans chaque cellule. j'ai essayé de redistribuer les données mais toutes ne le sont pas. avez-vous (surement) une solution à ce problème? j'ai trouvé quelques pistes sur le forum, mais je n'arrive pas à résoudre mon problème merci

[EricDgn]

Bonjour,

Effectivement l'import de fichiers csv est un sujet récurrent. Aussi, joignez donc un exemple avec quelques lignes caractéristiques de votre fichier (sous forme compressée .zip) pour comprendre votre problème particulier.

Cordialement.

[brutus437]

Bonjour,

En pièce jointe le fichier zip contenant les 2 fichiers (csv)que je souhaite importer dans un autre fichier (xlsb) . quand je tente d'importer le fichier csv, les données ne sont plus classées dans chacune des cellules 'alors qu'elles le sont dans le fichier csv initialement. j'ai rajouté ensuite un traitement des données bruts en vba, mais seulement une partie des colonnes sont correctement redistribuées. j'ai tenté plusieurs tests. par exemple lorsque j'ouvre le fichier et que je l'enregistre sous xls de façon classique, les données restent dans le même état. quand j'essaie de reproduire cela en vba, les données sont en crac.

[EricDgn]

Bonjour,

Un début de solution:

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
41
42
Option Explicit
 
Sub Importer()
    Dim xFileDialog As FileDialog
    Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Sélectionner un fichier"
    If xFileDialog.Show = -1 Then
        ImportCSV xFileDialog.SelectedItems(1)
    End If
End Sub
 
Sub ImportCSV(sFileName As String)
    Dim ws As Worksheet
    Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
    ws.Name = "Test" & Worksheets.Count + 1
    With ws.QueryTables.Add(Connection:="TEXT;" & sFileName, _
                            Destination:=Range("A1"))
        .Name = "Test" & Worksheets.Count + 1
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Cordialement.

[brutus437]

Merci beaucoup, cela fonctionne parfaitement, je vais pouvoir continuer le développement de mon fichier

bonne soirée à vous

[brutus437]

Bonjour,

Un début de solution:

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
41
42
Option Explicit
 
Sub Importer()
    Dim xFileDialog As FileDialog
    Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Sélectionner un fichier"
    If xFileDialog.Show = -1 Then
        ImportCSV xFileDialog.SelectedItems(1)
    End If
End Sub
 
Sub ImportCSV(sFileName As String)
    Dim ws As Worksheet
    Set ws = Worksheets.Add(after:=Worksheets(Worksheets.Count))
    ws.Name = "Test" & Worksheets.Count + 1
    With ws.QueryTables.Add(Connection:="TEXT;" & sFileName, _
                            Destination:=Range("A1"))
        .Name = "Test" & Worksheets.Count + 1
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Cordialement.

Bonsoir,

Je rencontre un problème avec ce code lorsque j'essaie d'importer qui s'avere etre vide (je ne peux pas le savoir avant, sauf à l'ouvrir au préalable, ce que je ne souhaite pas pour plus de simplicité envers les utilisateurs)

il y a t il une parade ?

Merci de votre aide

bien cordialement,

[EricDgn]

Bonjour,

Peut-être ceci:

Code :

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

1
2
3
4
5
'...
    On Error Resume Next
    With ws.QueryTables.Add(Connection:="TEXT;" & sFileName, _
                            Destination:=Range("A1"))
'...

Vraiment pas le top, mais si cela suffit!
Cordialement.