Résolu Insertion fichier .txt EXCEL

[Guest]

Bonjour,

J'ai besoin pour un projet d’insérer sous excel des données d'un rapport en format texte. (.txt)
Pour cela je veux bien sur utiliser des macros, pour d'automatiser la saisie.

Je veux rentrer le nom du fichier.txt (tout les fichiers sont dans un seul et même répertoire)dans une cellule et que la macro vienne chercher ce nom et effectue l'insertion.

Or je n'y arrive pas.

Pour faire cette macro j'utilise l'enregistreur qui me donne le code suivant :

Sub insertion_données()
'
' insertion_données Macro
'
'
Sheets("Saisie").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\2012424.txt", _
Destination:=Range("$A$1"))
.Name = "2012424"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileFixedColumnWidths = Array(77, 7)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Qu'est ce que je dois modifier pour que la macro vienne chercher dans la cellule , par exemple F6, le nom du fichier?

Merci d'avance.

 

[drul]

Tu vas te faire engueuler par Zeb ...
(utilise la balise code stp)
J'imagine qu'en modifiant le début de la sorte, ça devrait déjà mieux aller.

dim NomDuFichier as string
NomDuFichier = Range("F6").Value 

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\" & NomDuFichier & ".txt" , _
Destination:=Range("$A$1"))
.Name = NomDuFichier

 

[zeb]

[:zeb:4]
A lire :

Vous devez être connecté pour voir les liens.

 

[Guest]

Merci beaucoup!
C'était en effet assez simple...