Importer fichier de données avec un nom variable

[sodag]

Bonjour au forum,

Je soumets un petit pb avec une macro qui doit me permetter d'automatiser l'import de données issues de fichiers csv.

Pour importer par exemple les données du fichier
'J19_Interface.csv' dans un classeur excel, le code VBA correspondant indique :
With ActiveSheet.QueryTables.Add(Connection:= _
'TEXT;c:\\IMPORT\\J19_Interface.csv', Destination:= _
Range('A1'))

CA se complique quand je souhaite 'variabiliser' le nom du fichier 'J19_Interface.csv', c'est à dire aller chercher le nom de fichier à partir de variables préalablement définies.
ex : FILE = 'J'& jour (variable)&'_Interface.csv'

C'est ici que je ne sais pas comment lui définir l'instruction suivante :
With ActiveSheet.QueryTables.Add(Connection:= _
'TEXT;FILE', Destination:= _
Range('A1'))
parce qu'il ne reconnaît pas qu'il s'agit d'une référence à une variable ou à un chaîne de variables.

QQun peut-il m'aider?
D'avance merci!

 

[CBernardT]

Bonjour Sodag,


La macro pourrait être du style :

Sub Macro1()
Dim Fichier As String
Dim Jour As String

Jour = Day(Date)
Fichier = 'TEXT;C:IMPORTJ' & Jour & '_Interface.csv'
With ActiveSheet.QueryTables.Add(Connection:=Fichier _
, Destination:=Range('A1'))
End With
End Sub

Cordialement

Bernard

 

[sodag]

Merci Bernard.
Ce n'était pas plus compliqué que cela mais je n'avais pas pensé à inclure le 'TEXT;' dans la variable 'Fichier' et c'est ca qui permet que ca marche.

Encore merci et bonne journée!!!