XL 2019 Intégration d'un fichier ".txt" avec des lignes tabulées

Titof06 · Mardi à 09:53

Bonjour,

Je reviens vers vous car je me trouve avec un souci lors de l'intégration d'un fichier ".txt".

Celui-ci doit se présenter comme le fichier joint "DumpBht_MAJ_GENCOD_103_17-11-2025_32803.txt".

Mais quelquefois, il se présente sous la forme du fichier joint "DumpBht_MAJ_GENCOD_103_17-11-2025_32803_origine.txt".

Est-ce quelqu'un aurait une astuce pour enlever ces tabulations, svp ?

Je l'intègre avec ce code ci-dessous :
rep = ThisWorkbook.Path & "\"
strNomFichier = rep & "*" & "*GENCOD*" & "*.txt"

Destination = ThisWorkbook.Name

Workbooks.OpenText Filename:=strNomFichier, Origin:=xlWindows, StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 2 _
), Array(2, 2)), DecimalSeparator:=".", TrailingMinusNumbers:=True
'
Lorsque le fichier est propre, tout va bien, mais lorsqu'il y a des tabulations, la suite ne fonctionne pas, tout est décalé.

Pour information, ces fichiers viennent d'une scannette pour des articles.

Je vous remercie et vous souhaite une agréable journée.

Titof06

job75 · Mardi à 15:50

Bonjour à tous,

On peut supprimer les tabulations inutiles directement sur le fichier texte :

VB:

Sub Efface_Tab()
Dim fichier, x%, a(), i&
fichier = ThisWorkbook.Path & "\DumpBht_MAJ_GENCOD_103_17-11-2025_32803_origine.txt"
x = FreeFile
Open fichier For Input As #x 'ouverture en lecture séquentielle
While Not EOF(x)
    ReDim Preserve a(i): Line Input #x, a(i): i = i + 1
Wend
Close #x
x = FreeFile
Open fichier For Output As #x 'ouverture en écriture séquentielle
For i = 0 To UBound(a)
    a(i) = Application.Trim(Replace(a(i), vbTab, " ")) 'supprime les espaces inutiles comme le fait la fonction SUPPRESPACE
    a(i) = Replace(a(i), " ", vbTab) 'remplace l'espace par une tabulation
    Print #x, a(i)
Next i
Close #x
MsgBox "Les...

Titof06 · Mardi à 16:44

job75 à dit:
Pour tester ma macro du post #9 j'ai recopié le contenu du fichier texte sur 120 000 lignes, durées d'exécution :

- en utilisant Application.Trim => 1,5 seconde

- en remplaçant cette expression par Trim => 0,6 seconde (on peut l'utiliser si au centre de chaque ligne il n'y a qu'une tabulation).

Bonjour job75,

Je vous remercie encore pour cette solution qui fonctionne parfaitement même en 1.5 secondes !

Je vais faire le test avec votre nouvelle proposition.

Lors de certains scans, j'ai un maximum de 500 articles, donc cela ira très bien !

Encore un grand Merci pour le temps que vous m'avez accordé et vous souhaite une agréable fin de journée.

Titof06

job75 · Mardi à 18:11

Pour terminer juste une remarque sur la solution de sylvanu du post #10 : sur 120 000 lignes elle s'exécute en 21 secondes chez moi.

Il vaut mieux utiliser celle-ci qui s'exécute en 7 secondes :

VB:

d = Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next 'si aucune cellule vide
Range("A1:A" & d).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft

Oneida · Mercredi à 07:40

sylvanu à dit:
Bonjour Oneida,
Cette variable est déjà dans votre macro, c'est pour ça que je l'ai ré utilisée.

Bonjour,
Ok, manques de vitamines

XL 2019 Intégration d'un fichier ".txt" avec des lignes tabulées

Titof06

XLDnaute Occasionnel

Pièces jointes

job75

Titof06

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

Discussions similaires

XL 2019 Intégration d'un fichier ".txt" avec des lignes tabulées

Titof06

XLDnaute Occasionnel

Pièces jointes

Titof06

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency