Discussion :

[triaguae]

bonjour,

dans une feuille excel, j'importe des données d'un fichier txt dont le séparateur est la virgule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim strFiles As String
 
'1 - Affiche la boîte de dialogue Ouvrir pour D-1
 
strFiles = Application.GetOpenFilename _
(FileFilter:="Fichier texte(*.txt),*.txt" _
, Title:="Sélectionnez le fichier à ouvrir pour D-1")
 
 
 
'2 - Je rempli la feuille active du data à partir de R1
 
ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFiles _
, Destination:=Range("R1")).Refresh

je ne sais pas comment spécifier le séparateur donc les données ne sont pas réparties dans les colonnes
je sais comment faire avec un opentext mais cela m'ouvre un vouveau fichier excel et je ne veux pas
merci

[oOVaveOo]

Bonjour,
Au pire, tu peux faire un "convertir" avec la virgule comme séparateur, ça remettra les données sur plusieurs colonnes.

Toutefois, je pense que le choix du séparateur est possible mais je ne connais pas, désolé.

[triaguae]

ça y est je viens de trouver (enfin plutôt mon pc!!) : en enregistrant une macro
je mets quand même le code, si cela peut servir àqqn

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim strFiles As String
 
'1 - Affiche la boîte de dialogue Ouvrir pour D-1
 
strFiles = Application.GetOpenFilename _
(FileFilter:="Fichier texte(*.txt),*.txt" _
, Title:="Sélectionnez le fichier à ouvrir pour D-1")
 
 
 
'2 - Je remplis la feuille active du data à partir de R1
 
With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strFiles _
        , Destination:=Range("R1"))
        .Name = "20081021i9910291A_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With