Discussion :

[mmmxtina]

Bonjour tout le monde!!!

J'ai un soucis!
Je dois importer un fichier texte sous excel, mais le problème c'est que mon séparateur c'est ":" et pas ";", donc cu coup c'est mal délimiter.
je vous montre le code:

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
With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & Monchemin _
            , Destination:=Range("A1"))
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = xlMSDOS
            .TextFileStartRow = 1
            .TextFileParseType = xlFixedWidth
            .TextFileTextQualifier = xlTextQualifierDoubleQuote          'ça ne fonctionne pas avec les ":"            
            .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 _
            , 1, 1, 1, 1, 1)
            .TextFileFixedColumnWidths = Array(3, 14, 32, 32, 5, 20, 10, 30, 9, 12, 8, 32, 5, 32, 2, 15, 1 _
            , 10, 1, 20, 10, 9)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With

Une idée? j'ai repris la fonction d'un collègue il me semble qu'il a paramétrer la taille des colonne, m'enfin pas trop compris j'avou.

Merciiiiiiiii à tous d'avance!

[Fvandermeulen]

Salut,
le DoubleQuote = ";" pour pouvoir délimiter par les ":" il faut utiliser

Code :

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

Other:=True, OtherChar :=":"

Si tu veux tu peux utiliser l'enregistreur de macro pour ce genre de truc, c'est facile.

A+

[aalex_38]

Pour moi il n'y a que 3 valeurs possibles :

Code :

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

1
2
3
xlTextQualifierNone 
xlTextQualifierDoubleQuote default. 
xlTextQualifierSingleQuote

Essai peut être avec :

Code :

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

.TextFileOtherDelimiter = ":"

Edit : TextFileFixedColumnWidths permet en effet de définir pour chaque collonne dans un array la largeur de ces dernières.

[Krovax]

Le plus simple est encore d'utiliser l'enregistreur de macro et de le faire une fois avec les paramètre que tu veux
Et tu aura quelque chose que ressemble a ce que t'as donné Fvandermeulen il te suffira de l'adapter (tu as déjà un exemple ca devrais aller vite

[mmmxtina]

Re tout le monde!! et merci pour toutes ces réponses!

alors j'ai tester ton truc aalex_38

Code :

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

.TextFileOtherDelimiter = ":"

ça me donne la même chose.

Fvandermeulen, excel reconnai pas, il me dit qu'il y a une errezur en fait je ne vois pas trop comment l'inserrer dans le code.

Et Krovax, je vois pas trop comment faire une macro? enfin si je sias comment on fiat une maccro, mais en gros ce que tu propose c'est de demander à excel d'enregistrer quand je lance ma fonction c'est ça? j'aii pas trop compris.

HELP HELP! merci!

[Krovax]

oui tu l'ance l'enregistreur de macro tu fait ton importation a la main (donnée/ données externe/importer des données) tu choisi tes option tu coupe l'enregistreur de macro. Puis tu va dans l'éditeur de macro pour voir le code. Il y a souvent quelque truc a modifier mais pour voir quoi tu as un code c'est un peu le jeu des 7 erreurs


Un lien pour l'utilisation de l'éditeur et de l'enregistreur
http://silkyroad.developpez.com/VBA/DebuterMacros/

Au pire tu demande un cour rapide a ton collègue, a mon avis c'est comme cela qu'il a fait

[mmmxtina]

Merci Krovax, ça marche niquel maintenant!!
voici le code pour ce que ça interresse:

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
With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & Monchemin _
            , Destination:=Range("A1"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = ":"
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        End With

En fait c'est ce que tu m'avai dit aalex_8, mais jc pas j'avai du enlevé un truc ou quoi....

Merci à tous et bonne journée!