Bonjour,

Je cherche à importé un fichier texte de valeur dans un tableau excès
Cela j’y suis arrivé avec ce code suivant :


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
 
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
 
 
Private Sub CommandButton1_Click()
 
ImportText "C:\info.txt", Range("A1")
 
End Sub
Mon fichier ce décompose toujours comme ce qui suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
"Time","9103","C"
"11:08:00","28.1 C"
"11:08:01","28.0 C"
"11:08:16","28.0 C"
"11:08:17","28.0 C"
"11:08:29","28.0 C"
"11:08:32","28.0 C"
"11:08:34","28.0 C"
"11:08:36","28.0 C"
"11:09:12","28.0 C"
Je voudrais séparer les valeurs dans le tableau en deux colonnes séparé donc par le caractère « , » ( virgule)
Pour l’instant mon code ne fait q’une seule colonne

Et je dois aussi supprimer le « C » pour utiliser après les varaiables pour un graphique
Merci d'avance ++