Copier le contenu d'un fichier .txt dans une colonne

Bonjour,

J'ai trouvé un macro qui me fait chercher mon fichier .txt dans la racine (cf fichier joint).

Ce que j'aimerai c'est une fois le fichier .txt selctionné, que ma macro copie tout le contenu, puis le colle dans une colonne ("A:A") en l'occurence. Tout en respectant le saut à la ligne. C'est à dire que lorsque la ligne du fichier .txt s'arrete, la macro doit passer également à la ligne. Et lorsque la ligne est vide, elle saute une ligne.

Simplement, il suffit de faire un copier/coller du texte.

Merci beaucoup.

cdlt.

le fichier joint est bien caché

Autant pour moi, les fichier .bas ne passe pas

96codeouverturefichier.txt (505.00 Octets)

Avec une image ca sera plus simple a comprendre...

En plus des lignes à copier et à coller, j'aimerai séparer ma premiere colonne par le symbole " = " et les autres par le symbole " / "

L'image montre bien ce que je veux faire

Merci beaucoup

exemple

Bonjour,

essaye ce code :

Sub lecture()

    Fichier = Application.GetOpenFilename("Fichiers txt, *.txt")
    If Fichier = False Then Exit Sub

    N = FreeFile
    Open Fichier For Input As #N

    i = 0
    Do While Not EOF(1)
        Line Input #N, Contenu
        i = i + 1

        Table = Split(Contenu, "=")
        col = 0
        For j = 0 To UBound(Table)
            sousTable = Split(Table(j), "/")
            For k = 0 To UBound(sousTable)
            col = col + 1
                Cells(i, col).Value = sousTable(k)
            Next k
        Next j

    Loop

    Close #N

End Sub

Super ! Merci beaucoup, c'est exactement ce que je voulais.

J'ai cependant une autre petite question:

Comment je peux faire si je veux faire cette action seulement à partir d'une ligne qui commence par un mot precis ?

Par exemple exectuer la même procédure uniquement à partir de la ligne qui commence par "JeVeuxFaire"

Ajoute dans le code un flag ("drapeau") égal à false au début

Dès que la variable "contenu" est égal au mot recherché, alors passe le "drapeau" à true

et teste la valeur du "drapeau" avant la fonction split.

Ok merci, J'ai reussi a adapter le code à mon pb. Merci bcp

Rechercher des sujets similaires à "copier contenu fichier txt colonne"