Re Bonsoir le forum
Conversion de fichier binaire en fichier texte (suite)
En Vba j'irai pour de quoi comme ceci (mais améliorable si @Thierry lit il va comprendre )
Sub Lire_fichier_binaire()
Row = 1
Colonne = 1
Cells(Row, Colonne).Activate
'Lecture des données contenues dans un fichier texte
Open "C:\Mes Documents\bin.txt" For Input Access Read As 1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
'Extraire la chaine de caractères
longueur = Len(Textline)
For i = 1 To longueur Step 8
a$ = Mid(Textline, i, 8)
'Conversion binaire à décimale
a1 = Val(Mid(a$, 1, 1)) * 128
a2 = Val(Mid(a$, 2, 1)) * 64
a3 = Val(Mid(a$, 3, 1)) * 32
a4 = Val(Mid(a$, 4, 1)) * 16
a5 = Val(Mid(a$, 5, 1)) * 8
a6 = Val(Mid(a$, 6, 1)) * 4
a7 = Val(Mid(a$, 7, 1)) * 2
a8 = Val(Mid(a$, 8, 1)) * 1
a = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8
'Fin conversion
With ActiveCell
.Clear
.FormulaR1C1 = "=CHAR(" + a + ")"
.Offset(0, 1).Activate
End With
Next i
'Changement de ligne
Row = Row + 1
Cells(Row, Colonne).Activate
Loop
Close #1
End Sub
Le fichier ici en format binaire 8 position (comme dans le fichier joint) a renommer en .txt pour le programme
Bonne soirée Mytå º¿º
P.S. Prière de répondre si cela te va ou pas YoYo Merci!