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.