Encore merci Jm
Peut être les deux
j'ai une erreur d'exécution mais uniquement à la première ouverture du fichier excel
Dim fichier$
fichier = Application.GetOpenFilename("Tous les fichiers (*.txt),*.txt")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=Range("H2"))
.FieldNames = -1: .PreserveFormatting = -1
.RefreshStyle = 1: .SaveData = -1: .AdjustColumnWidth = -1
.TextFilePlatform = -535: .TextFileStartRow = 1: .TextFileParseType = xlDelimited
.TextFileTextQualifier = 1: .TextFileSemicolonDelimiter = -1
.TextFileColumnDataTypes = Array(1, 1, 1, 1): .
Refresh BackgroundQuery:=False
End With
End Sub
si j'exécute une deuxième fois pas d'erreur.