Bonjour tout le monde,

J'ai un grand nombre de fichiers textes du même format à importer, et donc j'ai voulu créer une macro pour que l'utilisateur puisse choisir le fichier qu'il souhaite. J'ai enregistré une macro, mais le problème, c'est que quand j'ai ajouté la commande Application.GetOpenFilename() le programme ne s'exécutait plus et il y avait des erreurs.
Voilà le code en question :
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
29
30
31
32
33
34
35
36
37
38
Dim Source 
 
    Source = Application.GetOpenFilename()
 
    If Source = "False" Then
        Exit Sub
    End If
 
 
With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;& Source" _
        , Destination:=Range("$A$1"))
        .Name = "Fichier Importé"
        .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 = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False 
    End With
Merci d'avance !