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

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

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

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

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

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

oupsssssssss, voici les fichiers

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

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

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

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

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

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

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