Insérer le contenu d'un fichier TXT dans une colonne de Excel en VBA

Version imprimable

19/02/2022, 22h10
Chelmi Natroll

Insérer le contenu d'un fichier TXT dans une colonne de Excel en VBA
Bonjour,

Avec la macro suivante, je cherche à coller le contenu d'un fichier txt (ExtractTAG.txt) dans la cellule "A2" d'un tableau déjà formaté de la feuille de calcul ExtractTAG d'un classeur Excel:
Code:

1 2 3 4 5 6 7 8 9 Sub RecupData() Dim Fichier As String Fichier = "C:\Travail en cours\ExtractTAG.txt" Worksheets("ExtractTAG").QueryTables.Add("TEXT;" & Fichier, [A2]).Refresh End Sub
Mais je n'obtiens pas le résultat que je souhaite.
La colonne A se rempli bien à partir de la ligne 2 mais pas dans mon tableau existant.
Le tableau existant a été décalé en colonne B et reste vide.
En faite ça insère une colonne au lien d'écrire dans celle existante.

Pouvez vous m'aider ?

Merci. :)
21/02/2022, 09h49
Chelmi Natroll

Si ça peut aider, je précise que le tableau existant et un tableau structuré.

Bonjour,

Une possibilité:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Sub AddTxt()
    Dim sFichier As String, c As Range
    Set c = ActiveSheet.ListObjects(1).Range.End(xlDown).Offset(1, 0)   '--- cellule sous le tableau
    sFichier = "C:\Travail en cours\ExtractTAG.txt"
    '--- ouvre le fichier de données (dans une nouvelle fenêtre Excel)
    Workbooks.OpenText Filename:=sFichier, DataType:=xlDelimited, Semicolon:=True, Local:=True
    '--- copie les données puis referme le fichier de données
    With ActiveWorkbook
        .ActiveSheet.UsedRange.Copy c       '--- copie les données en c
        .Close                              '--- referme le fichier de données
    End With
    Set c = Nothing
End Sub

Cordialement.

Merci beaucoup ça fonctionne saut qu'il a fallu que je change:

Code:

Set c = ActiveSheet.ListObjects(1).Range.End(xlDown).Offset(1, 0) '--- cellule sous le tableau

en

Code:

Set c = ActiveSheet.ListObjects(1).Range.End(xlDown).Offset(0, 0) '--- cellule sous le tableau

pour que ça écrive dans la première cellule de mon tableau structuré (A2)

Entre temps, j'avais fait ça mais qui est bcp moins bien car ça travaille ligne par ligne, et c'était super long, vu que ça recalule toutes mes formules à chaque fois et mon txt contient plus de 12000 lignes, mai si ça peut aider quelqu'un d'autre sujet approchant...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 RecupData() 'Méthode ligne par ligne très long !!! Dim FicfierTxt As String Dim NumLigne As Long Dim LigneFichier As String FichierTxt = "C:\Travail en cours\ExtractTAG.txt" Open FichierTxt For Input As #1 NumLigne = 1 Do Until EOF(1) 'End of file Line Input #1, LigneFichier Range("ExtractTAG").Cells(NumLigne, 1) = LigneFichier NumLigne = NumLigne + 1 Loop Close #1 End Sub
Encore merci pour votre aide précieuse. :)