Sub lit()
Dim Phrase As String
Dim Ligne As Long
Ligne = 1
Open "C:\Appli_Excel\Test\BLeu\c_barre.txt" For Input As #1 ' Ouvre le fichier en lecture.
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, Phrase ' Lit la ligne de données dans une variable.
If InStr(1, Phrase, ";") > 1 Then
'Duplique la derniere partie de la chaine
Phrase = Replace(Phrase, vbTab, "") & ";" & Split(Phrase, ";")(5)
'Si autre que l'entête alors passe en police EAN13
If Split(Phrase, ";")(5) <> "CODE BARRE" Then
With Range("G" & Ligne).Font
.Name = "EAN-13"
.FontStyle = "Normal"
.Size = 28 'Taille du code barre , a ajuster ici
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
End If
Range("A" & Ligne & ":G" & Ligne) = Split(Phrase, ";")
Else
If InStr(1, Phrase, vbTab) > 0 Then
Range("A" & Ligne & ":F" & Ligne) = Split(Phrase, vbTab)
Else
Range("A" & Ligne) = Phrase
End If
End If
Ligne = Ligne + 1
Loop
'Fermeture fichier texte
Close #1
End Sub