Imposer un fichier a importer

Bonsoir,

J'aurai besoins d'aide sur ce sujet.

Actuelement j'ai une Macro qui est capable de lire le dernier fichier .csv d'un répertoire qu'il colle en Q23 (FichierArecupéré.csv)

c'est là que réside ma question est ce possible de faire l'import des Datas de ce fichier en modifiant quelque peu le code ci-joint

en privilégiant Q23 comme variable

Merci de votre Aide précieux et avisé

GDS

Sub RecupMoiLeCsv()

'

' RecupMoiLeCsv Macro

'

'

With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;F:\Done ST sauvegarde\Act-Preal PCA\FichierArecupéré.csv" , Destination:=Range( _

"$BB$1"))

.Name = "FichierArecupéré"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFilePromptOnRefresh = False

.TextFilePlatform = 850

.TextFileStartRow = 1

.TextFileParseType = xlDelimited

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = False

.TextFileTabDelimiter = True

.TextFileSemicolonDelimiter = True

.TextFileCommaDelimiter = False

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

Range("BB1:BF17").Select

Selection.Copy