VBA Excel & importation de fichier texte

[laurentsimon]

Bonjour à tous !

J'importe un fichier texte sur une feuille en colonne A1, puis je fractionne la colonne A1 avec cette formule :

Sheets("Feuil1").Select
Columns("A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

Le fichier texte :

XACT YACT ZACT
51.0156 -0.7197 32.4194
51.0180 -0.3293 32.0649
51.0198 0.0643 31.7140
51.0165 0.4493 31.3538
51.0116 0.8349 30.9942
51.0042 1.2188 30.6328
50.9920 1.5924 30.2609
50.9785 1.9678 29.8909

Voici le résultat, j'ai un problème au niveau des 2 premières lignes, le 6 et le 8 passent toujours une colonne C :

A B C
51.014 -0.722 6 32.4160
51.017 -0.331 8 32.0621
51.019 0.062 31.712
51.015 0.444 31.348
51.010 0.830 30.989
51.003 1.213 30.627
50.992 1.593 30.262
50.977 1.963 29.886
50.961 2.335 29.513
50.944 2.710 29.143

Merci pour votre aide. 🙂

 

[JNP]

Re : VBA Excel & importation de fichier texte

Bonjour LaurentSimon 🙂,
Testé sous 2007, aucun problème 😕...
Bon courage 😎

 

[laurentsimon]

Re : VBA Excel & importation de fichier texte

En fait, excusez-moi, ce n'est pas ça.

J'ouvre le fichier texte et je copie les valeurs dans ma feuille excel avec cette fonction :

Workbooks.OpenText Filename:=Chemin & "\EX51_P01*.txt"
Columns("A:C").Select
Selection.Copy
Windows(Fichier).Activate
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

Workbooks.OpenText Filename:=Chemin & "\EX51_P01*.txt"
ActiveWorkbook.Close

Et les valeurs se mettent automatiquement dans les cellules A, B et C mais j'ai toujours le problème pour les premières lignes...

Merci d'avance. 🙂

 

[JNP]

Re : VBA Excel & importation de fichier texte

Re 🙂,
Peux-tu mettre un échantillon TXT et un XLS que l'on puisse mieux comprendre ? Merci.
A + 😎

 

[laurentsimon]

Re : VBA Excel & importation de fichier texte

Merci à tous de votre aide.

Je viens de trouver la solution, il suffit juste de faire cela :

Workbooks.OpenText Filename:=Chemin & "\EX45_P01*.txt", DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Columns("A:C").Select
Selection.Copy
Windows(Fichier).Activate
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

Merci tout de même de votre aide. 😉