Créer macro en laissant le choix du ficheir à ouvrir

Bonjour,

De par mon travail j'ai beaucoup de données à importer dans Excel. J'ai essayé d'automatiser celà et j'ai réussi, à un détail près, c'ets que le script ne me laisse pas le choix du fichier à ouvrir. Pourriez-vous m'aider pour celà?.

Voici le code VBA:

With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;Z:\dossier_test\test_01.txt", Destination _

:=Range("A1"))

.Name = "test_01.txt"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlOverwriteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFilePromptOnRefresh = False

.TextFilePlatform = 850

.TextFileStartRow = 1

.TextFileParseType = xlDelimited

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = True

.TextFileTabDelimiter = True

.TextFileSemicolonDelimiter = False

.TextFileCommaDelimiter = False

.TextFileSpaceDelimiter = True

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

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

Columns("A:A").ColumnWidth = 9.43

End Sub

Donc j'aimerai que le script me laisse le choix du fichier à ouvrir (à l'aide d'une fenêtre) plut que le nom du fichier soir déjà inscrit dans le script.

Merci par avance de votre aide

Bonjour,

Voir avec...

Dim Fich As String
    Fich = Application.GetOpenFilename
    If Fich = "" Then Exit Sub
    With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Fich, Destination _
:=Range("A1"))

A+

Super,

Merci lermite