getopenfilename et querytable.add

[fxcat]

Bonjour à tous,

je n'arrive pas faire en sorte qu'une variable (un fichier txt) ouvert par getopenfilename soit reprise par queryTables.add (le nom di fic doit changer chaques jour et il peu y en avoir plusieurs)

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\XL\ficxl_25.02.13.TXT", Destination:=Range("$A$1"))
.Name = "ficxl_25.02.13"
.FieldNames = True
.RowNumbers = False
etc...

Peut-être que je ne peu pas ?

Quelqu'un peu m'aider svp?
Je continue a chercher en attendant...

---pas facile de faire des macro!!--

 

[fxcat]

Re : getopenfilename et querytable.add

Résolu, c'est simple au fait...

grace à des exemples sur le forum. merci à eux !


Dim pathFichier As String, nomFichier As String, tmpStr() As String

'récupérer le fichier (path complet)
pathFichier = Application.GetOpenFilename

'si tu veux récupérer le nom du fichier :
tmpStr = Split(pathFichier, "\")
nomFichier = tmpStr(UBound(tmpStr))

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\LSTXL\" & nomFichier, Destination:=Range("$A$1"))
.Name = nomFichier