import texte avec assistant import en vba

[lestards]

bonjour / bonsoir

j ai un fichier texte que je souhaite importer automatiquement avec comme séparateur "espace" et ":"

j ai essayé avec un querytable mais il bloque a la fin sur le refresh
voici le code si jamais .....

Sub import_DEX()
'
' import_DEX Macro
'

'
    Cells.Select
    Range("E11").Activate
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Dim nomfichier As String
    nomfichier = "ACCESSOIRE!Q1.Value"
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;CHEMINS!B3.value", Destination:=Range("$A$1"))
        .name = nomfichier
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileOtherDelimiter = ":"
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
      .Refresh BackgroundQuery:=False
    End With
End Sub

sinon je joint un fichier avec un exemple avant et après si il y a une meilleure solution

merci a vous d avance

 

[ERIC S]

Re : import texte avec assistant import en vba

Bonjour

pourquoi ne pas utiliser l'enregistreur de macro et le menu conversion avec comme séparateurs le tab, la virgule et les deux points

    Range("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=True, OtherChar:= _
        ":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
        Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

 

[lestards]

Re : import texte avec assistant import en vba

Celui qui a rendu un service doit se taire, c'est à celui qui a reçu de parler. (Sénèque)

puisque c est a moi de parler,

Merci !! c est exactement ce que je cherchai !!