Sub test()
Dim tout As String, x, fichier As String, tbl, colonnes
fichier = "C:\Users\polux\DeskTop\bdd.txt"
fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier")
If fichier = "" Then Exit Sub
x = InputBox("tapez les numero de colonnes séparée par une virgule", "liste des colonnes")
If x <> "" Then colonnes = Split(x, ",")
x = FreeFile: Open fichier For Binary Access Read As #x: tout = String(LOF(x), " "): Get #x, , tout: Close #x
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText tout: .PutInClipboard: End With
With Sheets(1).Cells(1, 1)
.Parent.Activate
.CurrentRegion.Clear
.EntireColumn.NumberFormat = "mm/dd/yyyy"
.Select
ActiveSheet.Paste
DoEvents
tbl = Application.Index(.CurrentRegion.Value, Evaluate("ROW(" & 1 & ":" & .CurrentRegion.Rows.Count & ")"), colonnes)
.CurrentRegion.ClearContents
.EntireColumn.NumberFormat = "m/d/yyyy"
.Resize(UBound(tbl), UBound(tbl, 2)) = tbl
.Select
End With
End Sub
Oui oui je viens de faire la modif c'est juste que ça m'est arrivé avant que je te pose la question (#63)??????????
With Sheets(1).Cells(1, 1)
.Parent.Activate
Sub test()
Dim tout As String, x$, fichier As String, tbl, colonnes
Application.ScreenUpdating = False
fichier = "C:\Users\polux\DeskTop\bdd.txt"
fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier")
If fichier = "" Then Exit Sub
x = InputBox("tapez les numero de colonnes séparée par une virgule", "liste des colonnes")
If x <> "" Then colonnes = Split(x, ",")
x = FreeFile: Open fichier For Binary Access Read As #x: tout = String(LOF(x), " "): Get #x, , tout: Close #x
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText tout: .PutInClipboard: End With
With Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Parent.Activate
'.CurrentRegion.Clear
.EntireColumn.NumberFormat = "mm/dd/yyyy"
.Select
ActiveSheet.Paste
DoEvents
tbl = Application.Index(.CurrentRegion.Value, Evaluate("ROW(" & 1 & ":" & .CurrentRegion.Rows.Count & ")"), colonnes)
.CurrentRegion.ClearContents
.EntireColumn.NumberFormat = "m/d/yyyy"
.Resize(UBound(tbl), UBound(tbl, 2)) = tbl
.Select
End With
End Sub
c'est bon on est ok je peux virer la maquette ?