Discussion :

[Muzan93]

Bonjour,

Comme indiqué dans le titre je souhaite changer le séparateur de données de mon fichier CSV.

Jusqu'à maintenant je faisais l'action manuellement, c'est-à-dire : en allant dans l'onglet Données --> Données externes -> Fichier texte --> je sélectionne mon fichier CSV --> et je coche le séparateur virgule --> terminer.


De base le fichier CSV est de ce format (aperçu de données) :


Quand je fais la manipulation décrite ci-dessus et que je fais terminer voici ce qu'on obtient (aperçu de données) :




J'ai utilisé l'enregistreur de macro pour voir si je pouvais faire les étapes d'en haut- et je l'ai adapté en rajoutant le chemin du fichier CSV.

Voici le code obtenu :

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
Sub changer_separateur_CSV()
Dim Chemin As String
 
    Chemin = ActiveWorkbook.FullName
 
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;Chemin" _
        , Destination:=Range("$A$1"))
        .Name = "csv_test_macro"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
        , 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Mais ça ne fonctionne pas voici l'erreur affichée :


Et le code bug a cette ligne :

Code :

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

.Refresh BackgroundQuery:=False

Si quelqu'un a une solution, je suis preneur.

Bonne journée à tous !

[Gado2600]

Bonjour,

C'est peut-être con comme idée mais tu as :

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="TEXT;Chemin" _

Ce ne serait pas plutôt :

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin _

?

J'ai un doute aussi sur le fait de récupérer le chemin de l'activeworkbook et pas plutôt le chemin complet du fichier csv.

Cordialement,

[ChristianBosch]

Oui c'est çà, vous avez mis la variable "chemin" en champ texte, donc vous allez cherchez le CSV a l'adresse "chemin" au lieu du chemin précisé dans votre variable "chemin".

[Muzan93]

Bonjour,

C'est peut-être con comme idée mais tu as :

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="TEXT;Chemin" _

Ce ne serait pas plutôt :

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin _

?

J'ai un doute aussi sur le fait de récupérer le chemin de l'activeworkbook et pas plutôt le chemin complet du fichier csv.

Cordialement,

Merci beaucoup pour ta réponse Gado2600, cela fonctionne sauf que cela m'écrit deux fois les données. Mais j'ai bien une donnée par colonne après je sais pas pourquoi cela écrit deux fois l'ensemble des données.

[Muzan93]

Oui c'est çà, vous avez mis la variable "chemin" en champ texte, donc vous allez cherchez le CSV a l'adresse "chemin" au lieu du chemin précisé dans votre variable "chemin".

Oui merci beaucoup j'ai du coup modifié et ça a fonctionné par contre à chaque fois que j'exécute la macro cela ajoute x fois l'ensemble des données du fichier CSV

[Gado2600]

Tu as retiré les données avant ?

Parce qu'il me semble que, de mémoire, il déplace l'existant sur l'onglet ciblé, sur la droite, pour intégrer les nouvelles données.
Ou alors, fais le sur un onglet vide.

Cordialement,

[Muzan93]

Tu as retiré les données avant ?

Parce qu'il me semble que, de mémoire, il déplace l'existant sur l'onglet ciblé, sur la droite, pour intégrer les nouvelles données.
Ou alors, fais le sur un onglet vide.

Cordialement,

Ah oui, j'avais pas remarqué mais même quand je le fais manuellement cela ajouter une deuxième fois les mêmes données. Du coup, je vais appliqué ton conseil et le balancer dans une autre feuille, un grand merci !