voilà je fais des acquisitions de données via des appareils de mesure, et je dois importer des données via la fonction "importer de données" de excel car la procédure m'interdit de faire autrement (système qualité qui est comme ça).

je voudrais donc avoir une macro qui m'importe automatiquement les données.
je sais que je dois utiliser ça

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
With ActiveSheet.QueryTables.Add(Connection:= _
                "TEXT;C:\dépouillement\1114E3464.txt", Destination:=Range( _
                "$A$1"))
                .Name = "1114E3464"
                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .RefreshStyle = xlInsertDeleteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .TextFilePromptOnRefresh = False
                .TextFilePlatform = 932
                .TextFileStartRow = 1
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileConsecutiveDelimiter = False
                .TextFileTabDelimiter = True
                .TextFileSemicolonDelimiter = True
                .TextFileCommaDelimiter = True
                .TextFileSpaceDelimiter = False
                .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
                .TextFileTrailingMinusNumbers = True
                .Refresh BackgroundQuery:=False
    End With
mais les données en rouges sont variables.
comment je peux ouvrir une boite de dialogue me permettant de parcourir pour aller chercher manuellement un fichier ? etq ue derrière le "name" soit pris en compte ?
merci