Discussion :

[cott333]

Bonjour à tous!

Le code ci dessous me permet de copier coller les données d'un fichier texte dont le chemin est déja indiqué dans le code sans ouvrir le fichier texte.
(Cela vient d'un macro enregistrée: Data\ insert data from a txt file)

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
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\ACBSextract8000.TXT" _
        , Destination:=Range("$A$2"))
        .Name = "ACBSextract8000"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 9, 1, 2)
        .TextFileFixedColumnWidths = Array(10, 6, 8, 3, 11, 17, 2, 16, 14, 8, 4, 1, 18)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Le truc c'est que j'aimerais que ce soit l'utilisateur qui indique le fichier à ouvrir et à organiser car tous les mois le nom du fichier change.
Donc en gros mettre en variable le chemin du fichier et ouvrir le "browser" pour l'utilisateur afin qu'il selectionne le fichier

J'ai fais quelque manip mais je ne sais pas comment rendre variable le chemin d'acces du fichier.
J'ai bien essayé la fonction "GETOPENFILE" mais ca ne fait qu'ouvrir un fichier selectionné.

Enfin voila si quelqu'un peut juste m'aider à rendre variable le chemin d'accès du fichier txt ce serait super...

Merci à tous!

[Pragmateek]

Tu y étais presque
Ce dont tu as besoin est la fonction GetOpenFileName :

Code :

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

1
2
3
4
Sub test()
    Dim name As String
    name = Application.GetOpenFilename(Title:="Selection du fichier pour extract")
End Sub

[cott333]

Merci beaucoup! C'est exactement la fonction que je recherchais!

Problème maintenant, c'est que quand je remplace le chemin de ma macro par
"name" j'ai une erreur qui apparait

Run time error 1004
Excel cannot find the text file to refresh this external data range.
Check to make sure the text file has not been moved or renamed, then try the refresh again

Une idée?

[cott333]

Ok j'ai reussi normalement.

Il fallait que je mette la variable après "TEXT;"
Je l'avais mis a l'intérieur...pas très intuitif

Merci beaucoup sinon !