heu t'a pas bien vu
on va pa y arriver on est arrivé
Staple1600 Allo!!! rien a voir avec le datatype
je parle de la destination qui se met toujours a droite au lieu d'en dessous
non!!non!!non!!!! je viens de vérifierSi je te parle de ton post #87 avec ton code.
Le dernier code que tu as publié m'inverse le mois et le jour
re
non!!non!!non!!!! je viens de vérifier
@Staple1600 on s'en fou de ca j'importe tout moi aussi au depart
ce que je veux dir c'est le collage des données ne se font pas verticalement
même si la destination est bien A rows.count end(xlup).offset(1)
je l'avais déjà remarqué parmi les moult détails qui me plaisent pas avec querytable(sur .txt)
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
For i = 20 To Right(Year(Date) + 1, 2): tout = Replace(tout, "/" & i, "/20" & i): Next
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText tout: .PutInClipboard: End With
With Sheets(1).Cells(1, 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
.EntireColumn.NumberFormat = "dd/mm/yyyy"
.EntireColumn.HorizontalAlignment = xlRight
End With
End Sub
oui oui c'est bon maintenantelle fonctionne je te dis
Cells(Rows.Count, 1).End(3)(2)
Sub Macro1_Cinquo()
Dim typeCol, Chemin$
Application.ScreenUpdating = False
Chemin = "C:\Users\STAPLE\bdd\bdd.txt"
typeCol = Array(4, 1, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin, Destination:=Cells(Rows.Count, 1).End(3)(2))
.FieldNames = True
.PreserveFormatting = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePlatform = 850
.TextFileStartRow = 4
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileTabDelimiter = True
.TextFileColumnDataTypes = typeCol
.TextFileDecimalSeparator = "."
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub
xlDMYFormat | 4 | Format de date JMA. |
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