Discussion :

[Chelmi Natroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Chelmi Natroll]

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

[EricDgn]

Bonjour,

Une possibilité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Chelmi Natroll]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.