Discussion :

[jnthnroy]

J'ai utilisé le code de DarkVader dans cette discussion et pour moi ça fonctionne presque parfaitement! Moi j'ai une date et une valeur dans la colonne suivante. J'aimerais donc avoir 2 colonne dans mon excel en ce moment j'obtient la date et la valeur dans une seul colonne. C'est possible à partir de ce code avec quelque modif??

Code :

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

1
2
3
4
5
6
7
8
9
Sub ImportText(FileName As String, PosImport As Range)
    Dim QT As QueryTable
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
    With QT
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub

et pour l'appel de la procédure

Code :

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

ImportText "C:\xxxx.txt", Range("A1")