Discussion :

[aviat3ur]

Bonjour,

Je début et je rencontre un problème. Je souhaite créer macro pour importer un fichier texte quelconque et que celui-ci s'affiche à partir de la cellule A10 et non comme a présent en A1.

Private Sub CommandButton1_Click()
fileToOpen = Application.GetOpenFilename()
Workbooks.OpenText Filename:=fileToOpen
Range("A10").Select
End Sub

Merci avance pour votre aide.

[Daniel.C]

Bonjour,

Ca dépend des séparateurs utilisés dans le fichier texte. Sers-toi de l'enregistreur de macros et de l'aide VBA pour comprendre ce que tu as enregistré. Puisque tu débutes, pour obtenir l'aide, clique n'importe où sur le mot "OpenText" et appuie sur "F1".

[aviat3ur]

Quand j'utilise l’enregistreur il enregistre le fichier que je sélectionne et moi je voudrais importer n'importe quelles fichiers textes.

L'enregistreur me donne ça :

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\Users\Lucas\Documents\Test.txt", Destination:=Range("$A$10"))
.Name = "Test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

[Daniel.C]

Non, il faut que tu ouvres le fichier texte comme tu ouvrirais un classeur Excel : Fichier, Ouvrir (précise ta version d'Excel, je pourrais être plus précis.

[Daniel.C]

D'abord, mets ton code entre délimiteurs (tu le mets en surbrillance et tu cliques sur l'icône "#"), sinon, tu vas te faire taper dessus par le modo. Tu adaptes ce que tu viens d'enregistrer :

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
filetoopen = Application.GetOpenFilename()
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & filetoopen, Destination:=Range("$A$10"))
    .Name = "Test"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 1252
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With