Delimiter de maniere horizontale

Bonjour,

je cherche le moyen de copier la configuration d une machine (fichier txt enorme) vers excel en ayant dans la meme cellule tout le texte séparé par # par exemple:

#

xxxxxxxxxxxxxxxx

xxxxxxxxxx

xxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxx

xxxxxxxx

#

xxxxxxxxxxxxxxxx

xxxxxxxx

xxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

#

xxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxx

xxxx

#

donc ici on aurait trois cellule.

Merci de votre aide.

Bonjour,

Teste ce qui suit en adaptant le chemin et le nom du fichier :

Sub Test()

    Dim Tbl() As String
    Dim Chaine As String
    Dim I As Long

    'ouvre le fichier, (adapter le chemin)
    'et récupère son contenu
    Open "D:\Test.txt" For Binary As #1

         Chaine = Space(LOF(1))
         Get #1, , Chaine

    Close #1

    'splite dans un tableau
    Tbl = Split(Chaine, "#")

    'inscrit dans les cellules de la colonne A
    For I = 1 To UBound(Tbl)

        Cells(I, 1) = Tbl(I)

    Next I

End Sub

Hervé.

Bonjour,

tu as des retour à la ligne dans ton fichier ?

Et si tu l'ouvres dans excel tu aimerais regrouper les cellules entre 2 # dans une seule ?

Si tu pouvais mettre un fichier réduit et compléter tes explications...

eric