[VBA-E] Importer *.txt et séparer en deux

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

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

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:

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 ++

06/06/2007, 15h47
flo_flo

Bonjour,

Quand on importe manuellement un fichier .txt par le biais du menu Outils -> Données externe, Excel propose de séparer les données en plusieurs colonnes. Tu dois juste spécifier par quoi tes données sont séparées (ici une virgule). Et le tour est joué pour la virgule.

Et ensuite, pour supprimer les C, un coup d'Edition => Remplacer, et tu remplaces les C par rien du tout ;)

Tout ca en utilisant l'enregistreur de macros... j'espère t'avoir aidé
06/06/2007, 15h49
franck.automaticien

Merci mais je veux le réaliser via une macro.
Ps: je connaisser cette mathode

Merci d'avance pour vos autre réponses

Tu connais peut êtrela méthode mais ton ouverture de fichier n'est pas idéale.
Remplace déjà

Citation:

.TextFileTextQualifier = xlTextQualifierDoubleQuote

par

Code:

.TextFileTextQualifier = None

Ensuite, si tu ajoutes deux paramètres lors de l'ouverture de ton fichier, tu auras ce que tu veux sans macro supplémentaire.
Code:

1 2 3 4 5 Sub FichierTextSéparateurDécimalPoint() Workbooks.OpenText Filename:="D:\xls\TonClasseur.txt", StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _ :=False, Semicolon:=False, Other:=True, OtherChar:=" ", DecimalSeparator:="." End Sub
Maintenant, si tu veux te compliquer la vie ou si tu veux simplement apprendre comment séparer des données séparées par un... séparateur, tu peux toujours faire un split du contenu de ta cellule.
Code:

1 2 3 4 For i = 1 to derniereLigne Cells(i, 2) = Split(Cells(i, 1).Value, ",")(0) Cells(i, 3) = Split(Cells(i, 1).Value, ",")(1) Next
En l'occurence, tes données ne sont pas homogènes, tu as deux virgules dans la première lignes et une seule dans les suivantes sauf une ou tu as un point avant le C
Amuse-toi bien ;)

bonsoir

Tu peux essayer cette adaptation:

Code:

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
        .TextFileOtherDelimiter = ","
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub

michel

Merci beaucoup SilkyRoad
sa marche, je vais me debrouiller pour supprimer les "C" et faire les graphique en Macro.
Ps:Mais si tu as une idée elle serait la bien venu ;)

Merci ++

J'ai essayé d'importer en selectionnant le fichier dans explorateur
j'ai une ereur:
"Type incompatible (erreur 13)"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ImportText(FileName, PosImport As Range)
    Dim QT As QueryTable
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
    With QT
        .TextFileOtherDelimiter = ","
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub
 
 
 
Sub Macro1()
Dim Fics
 Dim fic
 Fics = Application.GetOpenFilename("Fichier Texte (*.txt), *.txt", , "Sélectionnez un ou plusieurs fichiers", , True)
 
 If Not TypeName(Fics) = "Boolean" Then
ImportText Fics, Range("A1")
 
 End If
 End Sub

Merci d'avance

07/06/2007, 12h44
ouskel'n'or

Sur quelle ligne ? (l'erreur)
07/06/2007, 12h56
franck.automaticien

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)

Sur cette ligne
Merci d'avance

J'ai essayé comme sa mais, sa me ressort toujour une erreur:
Type incompatible (erreur 13)
sur la ligne:

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=Range("A1"))

Mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro2()
Dim FileName
 
FileName = Application.GetOpenFilename("Fichier Texte (*.txt), *.txt", , "Sélectionnez un ou plusieurs fichiers", , True)
 
 
 
 Dim QT As QueryTable
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=Range("A1"))
 
    With QT
        .TextFileOtherDelimiter = ","
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
 
 
End Sub

Merci d'avance:mrgreen:

07/06/2007, 15h19
franck.automaticien
Je ne comprend pas car si je fais seulement:

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & "C:\INFO.TXT", Destination:=Range("A1"))

Cela fonctionne trés bien cela importe bien les données.

Mais l'orsque je met ceux-ci :
Code:

1 2 3 Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
Cela ne fonctionne pas?

Merci d'avance
07/06/2007, 15h29
illight

tu as quoi dans la variable FileName et PosImport ?

tu dois avoir un souci avec ces variables c'est pour ça que ça marche pas je pense :)
07/06/2007, 15h40
franck.automaticien

Dans FileName : "C:\INFO.TXT"
Dans PosImport: Range("A1")

Comme j'ai expliqué dans le post précedent.

Merci d'avance
07/06/2007, 16h02
illight

Tu dis que ça :

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & "C:\INFO.TXT", Destination:=Range("A1"))

ça marche..

Essaye alors :

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Filename, Destination:=Range("A1"))

d'une part, et :

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & "C:\INFO.TXT", Destination:=PosImport)

car je suis pratiquement sur que vient d'une de tes 2 variables, voire les 2 :)

Pour ça, il faut tester ces 2 formules, comme ça si une des 2 marche pas, tu trouvera de quelle variable vient l'erreur, sinon, heuu bah on va réfléchir :aie:
07/06/2007, 16h11
franck.automaticien

marche

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & "C:\INFO.TXT", Destination:=Range("A1"))

Marche Pas

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Filename, Destination:=Range("A1"))

Marche

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & "C:\INFO.TXT", Destination:=PosImport)

Donc sa vient bien de la variable Filename qui vient de:

Code:

FileName = Application.GetOpenFilename("Fichier Texte (*.txt), *.txt", , "Sélectionnez un ou plusieurs fichiers", , True)

Si je met un espion sur FileName Il y a bien "C:\INFO.TXT"

Merrci d'avance
07/06/2007, 16h20
illight

Le problème est qu eje ne connais pas trop la syntaxe de ctete fonction :oops: mais je pense qu ele problème vient des guillemets :)

Filename te renvoie ça : "C:\INFO.TXT" ou ça : C:\INFO.TXT car c'est pa sla meme chose :mrgreen: j'ai déja rencontré ce problème ailleurs et c'est assez relou..

A mon avis en fait il faut rajouter les guillemets dans ta variable pour que ce soit vraiment égal a "C:\INFO.TXT"

Après ce n'est qu'une supposition, je ne suis pas expert à l'importationd e fichier de ctte manière, donc ilf audrait l'avis de quelqu'un d'autre :)

EDIT : je vois peut etre d'ou vient le problème, je te promet rien mais essaye :

Code:

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Filename & "", Destination:=Range("A1"))

Mon avis est que ça viendrai du dernier guillemet de l'argument connection qui n'y est plus a cause de ta variable :)

Teste et dis moi :)

Non désoler sa ne fonctionne pas... snif:

Tien si tu veux tester je te file mon code:

Code:

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
Sub ImportText(FileName, PosImport As Range)
    Dim QT As QueryTable
Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName & "", Destination:=Range("A1"))
    With QT
        .TextFileOtherDelimiter = ","
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
 
End Sub
 
Sub Macro1()
 Dim fic
 Dim resultat
 Dim F1 As String
 Dim FileName1
 
 
FileName1 = Application.GetOpenFilename("Fichier Texte (*.txt), *.txt", , "Sélectionnez un ou plusieurs fichiers", , True)
 
 If Not TypeName(FileName1) = "Boolean" Then
 
 
ImportText FileName1, Range("A1")
 
 End If
 End Sub

ET le code du fichier texte

Code:

1
2
3
4
5
6
7
8
9
10
"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"

Voili voila j'esper que l'on va trouver...:oops:

bonjour

Tu peux utiliser

Code:

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
Sub ImportText(FileName As Variant, PosImport As Range)
    Dim QT As QueryTable
 
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
        FileName, Destination:=PosImport)
 
    With QT
        .TextFileOtherDelimiter = ","
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub
 
 
Sub Macro1()
    Dim FileName1 As Variant
    Dim i As Integer
 
    FileName1 = Application.GetOpenFilename("Fichier Texte (*.txt), *.txt", , _
        "Sélectionnez un ou plusieurs fichiers", , True)
 
    If IsArray(FileName1) Then
        For i = 1 To UBound(FileName1)
            ImportText FileName1(i), Range("A1")
        Next
    End If
End Sub

michel

08/06/2007, 08h04
franck.automaticien

Merci
peux tu m'expliquais ce que tu as fais et a quoi sert les
instruction que tu as rajouté?

Merci à toi

Graphique: Courbe

Je te remercie sa marche bien,
j'ai regarder ton faq sur les graphique j'ai commencer mon code
pour créer le graph a partir de la selection
je voudrais le temp du en X
et les degrés en Y

et que cela me face une courbe
Merci a toi

ma table excel aprés importa
Time Degré
11:08:00 28,1
11:08:01 28
11:08:16 28
11:08:17 28,4
11:08:29 28
11:08:32 28
11:08:34 28
11:08:36 28,1
11:09:12 28

mon code:

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Sub ImportText(FileName As Variant, PosImport As Range)
    Dim QT As QueryTable
 
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
        FileName, Destination:=Range("A1"))
 
    With QT
        .TextFileOtherDelimiter = ","
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub
 
 
Sub Macro1()
    Dim FileName1 As Variant
    Dim i As Integer
 
    FileName1 = Application.GetOpenFilename("Fichier Texte (*.txt), *.txt", , _
        "Sélectionnez un ou plusieurs fichiers", , True)
 
    If IsArray(FileName1) Then
        For i = 1 To UBound(FileName1)
            ImportText FileName1(i), Range("A1")
        Next
    End If
 
 
    Range("A2:A2469").Select
    Selection.NumberFormat = "h:mm:ss"
 
Range(Cells(2, 2), Cells(20, 1)).Select
Selection.Replace What:=" C", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
 
'Démarrage Graph
CreationGraphe2
 
End Sub
 
Public Sub CreationGraphe2()
 
Dim MonGraphe As Chart, maplage As Range, MaSerie As Series, compteur As Long
Dim Mini As Single, Maxi As Single
Set maplage = Worksheets("Feuil1").Range(Cells(2, 2), Cells(20, 1))
ThisWorkbook.Charts.Add
 
MonGraphe.ChartType = xlXYScatter
MonGraphe.SetSourceData maplage, xlColumns
End Sub

Merci d'avance

Obtenu en enregistrant la macro
Code:

1 2 3 4 5 6 7 8 9 10 11 Charts.Add ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B10"), PlotBy _ :=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "C" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With
Mais le mieux est que tu enregistres la macro. Si tu veux un titre sur les axes ou un titre différent pour ton graphe.
Pense à utiliser l'enregistreur de macro, le code n'est pas ce qu'il se fait de mieux mais ça peut t'aider ;)

Voir 40 message(s) de cette discussion en une page