import et mise au format de données par macro

[FDI]

Bonjour le Forum

Ma macro ci dessous gère la mise au format de mon fichier texte, mais elle présente l'inconvénient que le nom du fichier est codé en dur.

Lorsque j'utilise la fonction :
dlgAnswer = Application.Dialogs(xlDialogOpen).Show

alors je perds la main sur l'ouverture du fichier.

--> ce que je voudrais, si vous pouviez m'aider :

faire apparaître la fenêtre de dialogue qui permet de sélectionner un fichier '.txt', comme par exemple la fenetre 'ouvrir fichier', mais quand l'utilisateur clique sur le fichier, au lieu de l'ouvrir, stocker son nom dans une variable pour pouvoir la passer à ma macro ci-dessous.

SVP si qqun pouvait m'indiquer le moyen de...

cordialement, FDI


'With ActiveSheet.QueryTables.Add(Connection:= _
'TEXT;' & dlgAnswer, _
Destination:=Range('A7'))
' .Name = 'Rejet REDCAT veille du 20051021'
' .FieldNames = True
' .RowNumbers = False
' .FillAdjacentFormulas = False
' .PreserveFormatting = True
' .RefreshOnFileOpen = False
' .RefreshStyle = xlInsertDeleteCells
' .SavePassword = False
' .SaveData = True
' .AdjustColumnWidth = True
' .RefreshPeriod = 0
' .TextFilePromptOnRefresh = False
' .TextFilePlatform = 437
' .TextFileStartRow = 1
' .TextFileParseType = xlDelimited
' .TextFileTextQualifier = xlTextQualifierDoubleQuote
' .TextFileConsecutiveDelimiter = False
' .TextFileTabDelimiter = False
' .TextFileSemicolonDelimiter = True
' .TextFileCommaDelimiter = False
' .TextFileSpaceDelimiter = False
' .TextFileColumnDataTypes = Array(5, 1, 1, 1, 1, 1, 5, 1, 5, 1, 1, 1, 1, 1)
' .TextFileDecimalSeparator = '.'
' .TextFileTrailingMinusNumbers = True
' .Refresh BackgroundQuery:=False
'End With

 

[sylv900]

salut FDI
je crois qu'on s'est croisé, je pose (entres autres) la même question dans mon message, à surveillé
ce que tu peux faire déjà c'est utiliser :
fichier = Application.GetOpenFilename(, , 'Ouvrir le fichier texte .MEO')
If fichier = False Then
Exit Sub

qui permet de choisir le fichier à ouvrir et de l'appeler ici 'fichier'
bon courage

sylvain

 

[FDI]

Merci Sylv

malgré une recherche par mots clefs, je n'avais pas vu ton post.

cord, FDI