Récupperer des données fichier txt dans un fichier xls

[WITER]

Bonjour à tous, voila mon probleme,
j'ai des fichiers textes nommés E*****_******** (vrais nom : EXEMPLE: E03751_20060607)
et je voudrais recuperer les données qu'ils contiennent dans un fichier excel en sachant que je cherche à mettre les nombres de 14 chiffres qui commencent par
20************
21************
22************
23************
24************
25************
26************ exemple: 20030424144422, 21515405798558
dans une colonne ( A1) et le texte qui vient aprés le nombre dans la cellule à coté (B1) .

La macro devra en faite recupérer le nombre et le mettre dans la colonne ( A1) et placer dans la cellule (B1) le texte qui suit le nombre et reprendre dans la cellule ( A2) quand elle rencontre un nombre 20 ...., à 14 chiffres et placer en (B2) le texte qui vient apres.
en sachant que j'ai plusieurs fichier E*****_******** dans le repertoire C:\DIVERS\Plus\Fichiers\DU_NORD_AT\RE et donc ramener dans le fichier excel le contenue de tous les fichiers textes.
POUR MIEU ME FAIRE COMPRENDRE , JE MET EN PIECES JOINTE LE FICHIER TEXTE ET LE FICHIER EXCEL QUE JE VOUDRAIS OBTENIR AVEC LA MACRO

MERCI D'AVANCE POUR VOTRE AIDE

 

[lapix]

Re : Récupperer des données fichier txt dans un fichier xls

Salut,

J'ai un peu regardé ton fichier E037.......

Trouve-ton dans ce fichier un separateur et quel est-il ?
Si non est des champs de valeur constante ?

Peux tu nous donner sur la base de ce fichier exemple le decoupage qu'il faudrait faire (en ajoutant un @ a chaque coupe par exemple) ?

Merci

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

Merci lapix pour ton aide, en faite le decoupage commence aux nombres à 14 chiffres qui commence par 20,21,22,23,24,25,26 et se termine au prochain nombre de 14 chiffres qui commence pareil.

exemple de fichier texte: E*****_********.txt :

23562504368479 BONJOUR C'EST MOI 20678356478145 MAISON A DROITE 400000000000000 EN BAS 21765456378920 SUPER MERCI 2000000000000000000 AU REVOIR

devient dans le fichier excel:
A B
1 23562504368479 BONJOUR C'EST MOI
2 20678356478145 MAISON A DROITE 400000000000000 EN BAS
3 21765456378920 SUPER MERCI 000000000000000 AU REVOIR

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

Merci lapix pour ton aide, en faite le decoupage commence aux nombres à 14 chiffres qui commence par 20,21,22,23,24,25,26 et se termine au prochain nombre de 14 chiffres qui commence pareil.

exemple de fichier texte: E*****_********.txt :

23562504368479 BONJOUR C'EST MOI 20678356478145 MAISON A DROITE 400000000000000 EN BAS 21765456378920 SUPER MERCI 2000000000000000000 A REVOIR

devient dans le fichier excel:
A B
1 23562504368479 BONJOUR C'EST MOI
2 20678356478145 MAISON A DROITE 400000000000000 EN BAS
3 21765456378920 SUPER MERCI 000000000000000 A REVOIR

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

voici les 2 fichiers txt et excel avec comme tu separateur un (@) pour mieu localiser le decoupage ( ils n'existent pas dans les fichiers txt d'origine) .
merci pour votre aide

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

oupsssssssss, voici les fichiers

 

[lapix]

Re : Récupperer des données fichier txt dans un fichier xls

Bonjour,

Je suis desolé Witer mais je ne vois absolument pas comment prendre le probleme.
Tu es sur qu'il n'y a pas de regle de separateur ?
Ton fichier, c'est un export d'un autre programme non ?
Si oui ca vient d'ou ?

Merci

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

Effectivement ca vien d'un programme, mais fait maison par un collegue.
Par contre j'ai cette macro pour un problem similaire . Pense tu kel soit adaptable a mes fichier texte avec comme séparateur: 205************,206************,207************,215************,216************,2187************.

VOICI LA MACRO ET ENCORE MERCI.

Option Explicit

Sub Bouton1_QuandClic()
ActiveSheet.Protect Password:="GRATC", UserInterfaceOnly:=True
Range("A2:G65000").ClearContents
Dim chemin As String
Dim fichier As String
Dim ligne As Integer
Dim i As Integer, x As Integer, j As Integer, k As Integer
Dim tablosplit As Variant
Dim valeur As String
Dim tablores()
Dim tabloL As Variant
Dim tablo()

tabloL = Range("l2:l" & Range("l65536").End(xlUp).Row)
chemin = "C:\test2\FICHIERS\"
fichier = Dir(chemin & "*.txt")
ligne = 2

Do While fichier <> ""
Open chemin & fichier For Input As #1
Do While Not EOF(1)
Line Input #1, valeur
x = x + 1
ReDim Preserve tablores(1 To x)
tablores(x) = valeur
Loop
Close #1
fichier = Dir
Loop

x = 0
ReDim tablo(1 To 11, 1 To 1)

For i = 1 To UBound(tablores)
Select Case Left(tablores(i), 3)
Case "! 5", "! 6", "! 7":
tablosplit = Split(tablores(i), "!")
x = x + 1
For j = 0 To 10
ReDim Preserve tablo(1 To 11, 1 To x)
tablo(j + 1, x) = tablosplit(j)
Next j
For k = 1 To UBound(tabloL)
If Val(Trim(tablo(3, x))) = tabloL(k, 1) Then
tablosplit = Split(tablores(i + 1), "!")
x = x + 1
For j = 0 To 10
ReDim Preserve tablo(1 To 11, 1 To x)
tablo(j + 1, x) = tablosplit(j)
Next j
End If
Next k
End Select
Next i

For i = 1 To UBound(tablo, 2)
Cells(ligne, 1) = tablo(2, i)
Cells(ligne, 2) = tablo(3, i) 'tarif
Cells(ligne, 3) = tablo(4, i)
Cells(ligne, 4) = tablo(8, i)
Cells(ligne, 5) = tablo(9, i)
Cells(ligne, 6) = tablo(10, i)
Cells(ligne, 7) = tablo(11, i)
ligne = ligne + 1
Next i
End Sub

 

[lapix]

Re : Récupperer des données fichier txt dans un fichier xls

C'est un peu different dans le sens ou il y a des lignes distinctes.
Dans ton cas, les donnees sont en vrac sur une seule ligne

On pourrais integrer des choses de ton fichier, mais aussi integrer n'importe quoi n'importe comment et tu devrais passer autant de temps a tout trier et valider.

Ton collegue pourrais pas integrer un separateur dans son programme main ? Ce serait plus simple

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

Nan en faite le separateur c'est " 205*" , " 206*" , " 207*", " 215*", " 216*", " 217*"

Mais merci davoir tenté de m'aider, je sais que cette macro est difficile à faire

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

Par contre je vien de remarquer que si j'ouvre le fichier avec word au lieu du bloc note j'ai des carrés comme separateur . Peut étre que ca peu vous aider à m'aider, lollllllllllllllllllllll

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

j ai aussi remarqué qui si je l ouvre avec wordpad , le texte est sur plusieurs lignes. VOICI UN EXEMPLE EN PIECE JOINTE

 

[WITER]

Re : Récupperer des données fichier txt dans un fichier xls

Re bonjour, j'ai rajouté un @ au fichier texte , y aurais t'il quelqu'un pour m'aider à faire la macro, le séparateur etant l'@, merci d avance