Discussion :

[sshikamaru]

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

[Marc-L]

Voir par exemple du côté de la méthode GetOpenFileName …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[sshikamaru]

merci je viens de tester cette fonction, c'est ce qu'il me faut, mais je ne sais pas comment dire à ma fonction activesheet.querytables d'aller cherche le fichier que j'ai sléectionner auparavant ?