Discussion :

[Seth2]

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 !

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Source = Application.GetOpenFilename()
 
    If Source = "False" Then
        Exit Sub
    End If

Ceci ne marche pas. En cas d'abandon, GetOpenFilename ne renvoie pas une chaine de caractère "False" mais un booléen.
Il faut donc écrire le test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If Source = False Then

Je m'étonne que tu utilises les QueryTables pour simplement ouvrir un fichier texte.
A mon avis, il serait plus simple d'utiliser Workbooks.OpenText (à moins qu'il y ait des spécificités que tu ne dis pas)
https://msdn.microsoft.com/fr-fr/lib.../ff837097.aspx

[Seth2]

Effectivement avec le Workbooks.OpenText ca marche, merci beaucoup !