Discussion :

[mamax29]

Bonjour,

J'utilise le code suivant pour importer un fichier CSV (séparé par des points virgules) dans un onglet d'une feuille excel:

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
 
 
    Dim fichier As String      'fichier csv d'entrée
    Dim cpt As Integer        'Compteur de ligne du fichier de log
    Const Sep = ";"            'Séparateur des champs dans le fichier de log
    Dim Tablo() As String     'Tableau qui stockera chaque ligne du fichier log
    Dim Recup As String       'Variable qui contiendra la ligne du fichier de log
 
    ' Effacement de l'onglet "temp" du classeur de macro s'il existe
    Application.DisplayAlerts = False
    On Error Resume Next
        wbanalyse.Worksheets("temp").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
 
    'On créé un onglet "temp" dans lequel on importera le fichier de log
    wbanalyse.Worksheets.Add(After:=Worksheets("Index")).Name = "temp"
    Set wstemp = wbanalyse.Sheets("temp")
 
    'On importe le fichier de log OCAGE au format CSV dans l'onglet "temp"
    fichier = "C:\fichier.csv"
    Application.ScreenUpdating = False
    cpt = 0
    Open fichier$ For Input Access Read As #1
        Do Until EOF(1)
            Input #1, Recup
            Tablo = Split(Recup, Sep)
            For i = 0 To UBound(Tablo)
                wstemp.Range("A1").Offset(cpt, i) = Tablo(i)
            Next i
            cpt = cpt + 1
        Loop
    Close #1

Pour le fichier CSV "CT001_S38.csv" ci-joint cela fonctionne parfaitement.

Par contre pour le fichier "CT001_OCAGE_2010-09-24.csv" également ci-joint, importation le code me fait n'importe quoi: Il prends les caractères "," pour des retours chariots.

En regardant de plus près, ce découpage se produit lors de l'instruction: input #1, Recup

Quelqu'un saurait me dire pourquoi et comment contourner ce problème?

Max

[BenjGe]

mais pourquoi vous ne vous contentez pas d'ouvrrir les fichiers csv avec workbooks.open ?
Excel est capable de gérer ce format.

[mamax29]

Bonjour,

C'est surtout une question de présentation, car avec cela, le fichier est ouvert dans un "onglet" du classeur Excel qui contient cette macro.

Je garde également en mémoire la dernière importation

[BenjGe]

est ce qu'en mettant ceci à la place de votre code ça suffit:

Code :

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

1
2
3
4
5
 
    dim wbk as workbook
    set wbk=workbooks.open("C:\fichier.csv")
    wbk.sheets(1).copy after:=wbanalyse.sheets("Index")
    wbk.close savechanges:=false

[mamax29]

Non, cela ne fonctionne pas,

même en spécifiant le délimiteur de colonne à ";", Excel me prends toujours les virgules....

Code :

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

1
2
3
4
5
6
 
    Dim wbk As Workbook
    fichier = "C:\fichier.csv"
    Set wbk = Workbooks.Open(fichier, , , 4)
    wbk.Sheets(1).Copy after:=wbanalyse.Sheets("Index")
    wbk.Close savechanges:=False

ou

Code :

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

1
2
3
4
5
6
 
    Dim wbk As Workbook
    fichier = "C:\fichier.csv"
    Set wbk = Workbooks.Open(fichier, , , 6, , , , , ";")
    wbk.Sheets(1).Copy after:=wbanalyse.Sheets("Index")
    wbk.Close savechanges:=False

[BenjGe]

et comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim sh As Worksheet
Set sh = wbanalyse.Worksheets.Add(after:=Worksheets("Index"))
Dim obj As Object
 
    With sh.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\Benjîle\Bureau\CT001_OCAGE_2010-09-24.csv", _
        Destination:=sh.Range("$A$1"))
        .Name = "Temp"
        '.TextFileParseType = xlDelimited
        .TextFileSemicolonDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
        sh.QueryTables("Temp").Delete

c'est l'équivalent de données importer