Extraire données fichier .text vers excel

[brigadero]

Bonjour à tous,

J'aurais besoin d'extraire également mes données d'un fichier text (nommé fout) vers excel.
Ce fichier a tout d'abord un horaire pour des valeurs en binaires.

Lorsque je choisis mon fichier text pour charger les valeurs dans excel cela fonctionne, cependant tout se met dans la même case "A".

Or je voudrais qu'il y'ait une valeur par case, comme mis dans l'exemple du fichier classeur 5. (heure dans la 1ere, minute 2e, seconde 3e, autre valeur, premier chiffre binaire, deuxieme...)

j'espere avoir été claire.

Merci d'avance pour votre aide.

 

[GBI]

Re : Extraire données fichier .text vers excel

Bonjour brigadero,

Voilà qui devrait répondre à ta problématique
Je suis parti du principe que les données sources étaient dans la feuille 1 et que le resultat commencait dans la meme feuille mais en colonne 2. Libre à toi de l'insérer dans ton code déjà existant

Private Sub essai()
DerLig = Sheets(1).Range("A65536").End(xlUp).Row
For i = 1 To DerLig
Cells(i, 2).Value = Left(Cells(i, 1), 2)
Cells(i, 3).Value = Right(Left(Cells(i, 1), 5), 2)
Cells(i, 4).Value = Right(Left(Cells(i, 1), 8), 2)
Cells(i, 5).Value = Right(Left(Cells(i, 1), 13), 3)
Cells(i, 6).Value = Right(Left(Cells(i, 1), 15), 1)
Cells(i, 7).Value = Right(Left(Cells(i, 1), 16), 1)
Cells(i, 8).Value = Right(Left(Cells(i, 1), 17), 1)
Cells(i, 9).Value = Right(Left(Cells(i, 1), 18), 1)
Cells(i, 10).Value = Right(Left(Cells(i, 1), 19), 1)
Cells(i, 11).Value = Right(Left(Cells(i, 1), 20), 1)
Cells(i, 12).Value = Right(Left(Cells(i, 1), 21), 1)
Cells(i, 13).Value = Right(Left(Cells(i, 1), 22), 1)
Cells(i, 14).Value = Right(Left(Cells(i, 1), 24), 1)
Cells(i, 15).Value = Right(Left(Cells(i, 1), 25), 1)
Cells(i, 16).Value = Right(Left(Cells(i, 1), 26), 1)
Cells(i, 17).Value = Right(Left(Cells(i, 1), 27), 1)
Cells(i, 18).Value = Right(Left(Cells(i, 1), 28), 1)
Cells(i, 19).Value = Right(Left(Cells(i, 1), 29), 1)
Cells(i, 20).Value = Right(Left(Cells(i, 1), 30), 1)
Cells(i, 21).Value = Right(Left(Cells(i, 1), 31), 1)
Next i
End Sub

C'est perfectible mais ca marche 😉

 

[camarchepas]

Re : Extraire données fichier .text vers excel

Bonjour,

Voici mon approche perso, pas forcément simple , mais qui l'est :

ActiveSheet.Range("A1").CopyFromRecordset oRS, 65536
'Formatage ligne à ligne
Fin = Range("A65536").End(xlUp).Row
For T = 1 To Fin
a = Mid(Range("A" & T), 1, 2)
b = Mid(Range("A" & T), 4, 2)
c = Mid(Range("A" & T), 7, 2)
D = Mid(Range("a" & T), 11, 3)
ActiveSheet.Range("A" & T).TextToColumns Destination:=Range("A" & T), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 1), Array(6, 1), Array(9, 1), Array(13, 1), _
Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array( _
20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1)), _
TrailingMinusNumbers:=True
Range("A" & T & ":C" & T).NumberFormat = "@"
Range("A" & T) = a
Range("B" & T) = b
Range("C" & T) = c
Range("D" & T) = D
'fin formatage
Next T
'Règle largeur colonne
Cells.Select
Cells.EntireColumn.AutoFit

 

[brigadero]

Re : Extraire données fichier .text vers excel

Bonjour à tous, CamarchePas,

J'ai tout simplement télécharger ton fichier et lorsque je le compile cela ne m'affiche pas les données de la même facon que celle "feuille 4" qui est celle que j'attend...

 

[camarchepas]

Re : Extraire données fichier .text vers excel

Bonjour,

C'était pas loin qu'en même , dés fois c'est décourageant.

Voici :

Et j'espère que tu me taquineras pas sur la largeur exacte des colonnes.

😀😀😀

 

[brigadero]

Re : Extraire données fichier .text vers excel

Merci beaucoup camarche pas, c'est nikel!
cependant j'ai un pb en fait j'ai un fout de 55000 lignes et lorsque je le charge cela me met "dépassement de capacité" alors que je croyais qu'on avait juska 65536 lignes...
merci de m'éclairer

 

[GBI]

Re : Extraire données fichier .text vers excel

Merci beaucoup camarche pas, c'est nikel!
cependant j'ai un pb en fait j'ai un fout de 55000 lignes et lorsque je le charge cela me met "dépassement de capacité" alors que je croyais qu'on avait juska 65536 lignes...
merci de m'éclairer

As-tu essayé ma méthode 🙄 ?

 

[pierrejean]

Re : Extraire données fichier .text vers excel

bonjour a tous

Si le format ne varie pas je propose la simple modif :

.......
oConn.Close
[COLOR=blue]With ActiveSheet
    .Range("A1:A" & .Range("A65536").End(xlUp).Row).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
    .Columns("B:C").NumberFormat = "00000000"
 End With
[/COLOR] 
Application.ScreenUpdating = True
End Sub