Bonjour la communauté,
Après avoir fouillé le web, je fais appel à votre expertise car ce problème parait simple mais je n'arrive pas a m'en dépatouiller...
Je souhaite que ma macro VBA importe un fichier texte présent dans un dossier. Je ne connais pas le nom de fichier a l'avance car chaque jour, c'en sera un nouveau.
J'ai utilisé la fonction d'enregistrement pour avoir un bout de code, et ça marche nickel. Puis j'ai ajouté la fonction "Application.GetOpenFilename" pour laisser l'utilisateur choisir le fichier, mais ça ne marche plus... j'obtiens "erreur d’exécution 1004, impossible de trouver le fichier texte..."
Quelqu'un saurait comment résoudre ça?
voici mon code:
Merci d'avance,
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 Sub Macro1() Dim File_Name As String File_Name = Application.GetOpenFilename With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;File_Name" _ , Destination:=Range("$A$1")) .Name = "List" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 65001 .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) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub
oekoniko
Partager