Macro : copier contenu d'un fichier .txt dans Excel

bonjour ,

je sollicites votre aide pour une macro qui permettrais de copier le contenu d'un fichier texte.

Le contenu de ce fichier texte est sous forme HTML.

Actuellement je dois aller copier le contenu de ce fichier texte qui se trouve sur mon bureau (test.txt) en copiant son contenu (à partir de la ligne 4 jusqu'à la fin) pour le coller dans la feuille 1 à partir de la cellule A5 ("copier ici").

De cette manière le collage s'effectue et je garde la mise en forme HTML dans mon fichier excel.

Je souhaiterais donc une macro qui permette d'automatiser tout ça.

Cette macro copiait directement, en un clic, le contenu (à partir de la ligne 4 jusqu'à la fin) de mon fichier test.txt

La grosseur de mon fichier texte peut varier mais je dois tjs commencer le copiage à partir de la ligne 4.

Je joint un fichier excel, j'aimerais que la macro puisse s'exécuter dans ma feuille 1 avec un bouton.

J'ai mis en feuille 2 l’aperçu du résultat attendu.

Je vous remercie par avance

bonne fin de journée

je joint le fichier excel et le fichier txt

Bonjour,

Sub ExtraireTable()
Dim Fichier As Variant, obj As New DataObject, texte$, ContenuLigne$
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichier = False Then Exit Sub
    Open Fichier For Input As #1
        texte = ""
        ligne = 0
        Do While Not EOF(1)
        ligne = ligne + 1
            Line Input #1, ContenuLigne
            If ligne >= 4 Then texte = texte & ContenuLigne
        Loop
    Close #1
    obj.SetText texte
    obj.PutInClipboard
    Range("A5").Select
    ActiveSheet.Paste
End Sub

Bonjour Steelson,

Ton code fonctionne parfaitement et le résultat est exactement ce qu'il me fallait.

Merci de m'avoir accordé ton temps 😀😀

Un grand merci 😁

Bonne journée 😉