Import fichier csv en VBA

Version imprimable

04/12/2021, 08h09
brutus437

Import fichier csv en VBA

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
05/12/2021, 11h51
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.
05/12/2021, 14h46
brutus437

1 pièce(s) jointe(s)

IMPORT FICHIER CSV VBA

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.

Bonjour,

Un début de solution:

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

05/12/2021, 18h15
brutus437

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

bonne soirée à vous

Citation:

Envoyé par EricDgn

Bonjour,

Un début de solution:

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

Bonjour,

Peut-être ceci:
Code:

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.

11/07/2023, 18h28
brutus437
Citation:
Envoyé par EricDgn

Bonjour,

Peut-être ceci:

Code:

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.
Merci beaucoup, je vais tester ça, je dois rajouter ces lignes de code à un endroit précis dans le code précédant ? (et supprimer le fichier le fichier "test" qui ne s'exécute plus lors de l'erreur avec fichier vide ?
11/07/2023, 19h38
umfred

quand tu dis vide, c'est complétement vide ? taille 0 octet? si c'est le cas, tu pourrais tester la taille avec FileSystemObject https://learn.microsoft.com/fr-fr/of...mobject-object
ou plus simple encore avec FileLen(..) https://learn.microsoft.com/fr-fr/of...lelen-function
11/07/2023, 19h47
brutus437

Citation:

Envoyé par umfred

quand tu dis vide, c'est complétement vide ? taille 0 octet? si c'est le cas, tu pourrais tester la taille avec FileSystemObject https://learn.microsoft.com/fr-fr/of...mobject-object
ou plus simple encore avec FileLen(..) https://learn.microsoft.com/fr-fr/of...lelen-function

Bonsoir,

Oui certains fichiers importés sont totalement vides à l'ouverture. Je peux le voir seulement en consultant la taille (0 octets) ce serait peut-etre une conditiont préalable à l'exécution du code finalement. piste à suivre
12/07/2023, 19h41
brutus437
Citation:
Envoyé par EricDgn

Bonjour,

Peut-être ceci:

Code:

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.
Cela fonctionne bien, le code ne s'exécute pas dans ce cas et ça me suffit pour continuer le développement de ma petite application

grand merci