Bonjour thunder23
Sujet multi-traité sur le forum...
Tu n'as rien trouvé dans les archives du forum?
Effectuez une recherche sur Excel Downloads...
www.excel-downloads.com
Re
Tu as mal épluché alors
Regarde à droite de ton écran, dans les discussion similaires.
https://www.excel-downloads.com/threads/importer-une-partie-dun-fichier-txt.162911/
Sub Macro1_Bis()
Dim typeCol, Chemin$
Application.ScreenUpdating = False
Chemin = "C:\Users\STAPLE\Documents\bdd.txt"
typeCol = Array(4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin, Destination:=Cells(1))
.Name = "bdd"
.FieldNames = True
.PreserveFormatting = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileTabDelimiter = True
.TextFileColumnDataTypes = typeCol
.TextFileDecimalSeparator = "."
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Re
Cette macro est un peu élaguée et plus simple à modifier.
(toujours adaptée du code produit par l'enregistreur de macros)
PS: J'ai donc supprimé le précédent message.
Re
L’intérêt de cet méthode c'est tu peux actualiser la requête.
En quoi la présence d'une plage nommée te gêne?
Tu peux toujours mettre en commentaire cette ligne
'.Name = "bdd"
Mais cela ne changera pas grand chose
La réponse est dans le message#2 sous la forme d'un lienest-ce qu'il y a un moyen que ça ne créer pas de plage à chaque action de la macro?