Discussion :

[Cupidon]

J'ai un pgm qui permet d'ouvrir des fichiers texte sous Excel, à raison d'un fichier par onglet. Le fichier est ouvert avec l'option delimiter tab. Puis, les colonnes A à L sont supprimées. Ensuite, le pgm applique un nouveau formatage à la colonne A, c'est-à-dire delimiter other ;. C'est l'option qu'on retrouve dans le menu Data/Text to columns (version anglais).

Le pgm fait bien le formatage pour le premier fichier mais les suivants sont mauvais. C'est comme si il avait gardé l'option delimiter other ; pour l'ouverture des fichiers suivants. D'ailleurs ce pb apparaît lorsque l'on fait manuellement.

Qqn a-t-il une idée?

Voici le bout de pgm qui permet d'ouvrir le fichier et et de formater la colonne A, sachant que c'est mis dans un boucle qui parcourt le contenu du répertoire où se trouvent les fichiers :

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
 
With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & rep & fic, Destination:=Range("A1"))
        .name = proc
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Columns("A:L").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:=";", _
        FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    Selection.ColumnWidth = 18.71
    Columns("A:A").Select
    Selection.NumberFormat = "0000000000"

[ouskel'n'or]

Hello,

Je ne sais pas si je vais répondre à ta question mais une chose me semble bizarre... Tu mets :
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:=";"

Comme le ; en anglais, se nomme Semicolon, il y a contradiction dans ton code. Vérifie...

Tu dis

A+

[Cupidon]

Merci ouskel'n'or.
En fait, j'ai fait ça en enregistrant la manip sous forme de macro. Le code vient de lui.

Il fait très bien le formattage pour le premier fichier mais pour les suivants, il fait n'importe quoi. En faisant la manip, on peut avoir le même pb. C'est-à-dire qu'il retient la dernière action qui consistait à ajouter le ";" comme délimiteur pour la colonne A. Il faut désactiver cette option lorsque l'on ouvre le fichier suivant. Seulement, avec la macro, ça plante.

J'ai essayé de rajouter l'option "Other=false" pour l'ouverture du fichier mais il refuse celle-ci. Du coup, je ne sais pas comment forcer la désactivation de cette option.

[SfJ5Rpw8]

dans le code de lecture essai le rajout de :

Code :

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

.TextFileOtherDelimiter = ""

[Cupidon]

J'ai essayé, le résultat est le même.

[Cupidon]

J'ai contourné le pb en faisant deux boucles.
La première concerne l'ouverture de chaque fichier dans chaque onglet.
La deuxième concerne le formatage de la première colonne.
Ainsi, le pgm ne se mélange pas les pinceaux dans les options.

Un truc pénible est qu'il affiche une boîte de confirmation lors du formatage. On doit répondre par Ok. Quand il y a une dizaine de fichiers, voir davantages, ça devient lourd.

Qqn peut-il me dire si il y a un moyen de supprimer cette boîte?
Je rappelle ici le code du formatage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For cpt = 1 To fin - 1
        Sheets("Sheet" & cpt).Select
        Columns("A:A").Select
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:=";", _
            FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
        Selection.ColumnWidth = 13.14
        Columns("A:A").Select
        Selection.NumberFormat = "0000000000"
    Next cpt

[ouskel'n'or]

Code :

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

Application.DisplayAlerts = false

Y'a qu'ça de vrai !

A+

[Cupidon]

Merci bcp, ça marche!

PS : j'étais à La Tronche pendant plusieurs années avant d'atterrir à Bruxelles.

[ouskel'n'or]

Bruxelles ? C'est à côté de quelle ville ?

[AlainTech]

[mode troll on]
Près de quelle ville???

Y va s'en prendre une, lui...
[mode troll off]