Discussion :

[Freudsw]

Bonjour à tous,

je suis nouveau ici et je cherche un programme vba qui me permetrait d'importer un fichier csv vers excel, sachant que cela doit se faire dans un onglet d'un classeur qui existe déja.
je vous remercie par avance.

Cordialement,
Freudsw

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
Sub import()
Sheets("Raw Data").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:PL_20150901.csv.20150902-090057", _
        Destination:=Range("$A$1"))
        .Name = "PL_20150901.csv"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshStyle = xlOverwriteCells
 
        .SaveData = True
 
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
 
        .TextFileTabDelimiter = True
 
        .TextFileOtherDelimiter = "|"
        .TextFileColumnDataTypes = Array(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

[pasdechances]

as tu essayé de faire un simple copier coler ?
si non tu peut toujours lire les lignes une par une les enregistrer dans une variable pour les réécrirent dans ta feuille excel.
et si tu doit decouper les chaines de caractere utilise la fonction split().

[Freudsw]

Non je ne peux pas faire un copier coller, le fichier source est en format csv, et entre deux collones il y a des barres. en plus le but est d'automatiquer la tache en cliquant sur un simple bouton vu que je dois faire ça frequement.
La seule solution est d'importer le fichier d'ou la macro en haut.
et je ne connais pas la fonction split() mais je vais creuser un peu.

Cordialement,
Freudsw

[pasdechances]

J'ai deja eu du csv a exploiter et pour palier a different problemes, j'ai enregistrer chaque ligne csv dans une variable tableau.
puis j'ai tout réecrit sur une feuille excel, pour ensuite spliter le contenu de chaque celules (le split divise par rapport a un caractere).
dans mon cas j'ai diviser le contenu de la celules par rapport au ";"


pour en savoir plus sur le split je te conseil ce site

[kiki29]

Salut, pour ce genre de B A BA, via une recherche et l'utilisation de l'enregistreur de macros devraient suffire.

[Freudsw]

Oui c'est ce que j'ai fait ! l'enregistreur Macro.
Merci a tous