Re : importer des données txt avec choix de fichier permis à l'utilisateur
salut pierrejean
merci de ta réponse
J'ai bien la fenêtre qui s'ouvre afin de choisir le fichier à importer.
Mais on sait tous très bien qu'Excel est difficilement domptable du premier coup.
Le truc c'est que les données à importer doivent faire l'objet d'un tri.
Dans ma première macro, lorsque j'enregistrais la procédure d'importation, c'était nickel parceque je faisais le tri sur les colonnes à importer ou non.
Mais avec ce rajout, l'utilisateur peut certes choisir son fichier mais doit mettre en forme l'importation. Ce que bien entendu jé désirerais lui éviter.
encore un 'ti coup de pouce.
J'y arrives pô malgré mes essais.
Thksssssss.
Ci-joint mon dernier code
Sub extraction_vf2()
Application.Dialogs(xlDialogOpen).Show
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, Destination:=Range("B1"))
.Name = "REQ02364_20070430_115039"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = False
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 2, 2, 9, 2, 2, 2, 9, 9, 9, 2, 2, 2, 9, 2, 1, 2, _
2, 2, 2, 2, 9, 2, 2, 2, 2, 9, 2, 9, 9, 9, 2, 2, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub