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