caractère séparateur sous excel VBA

Version imprimable

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:

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!:D

23/06/2009, 14h54
Fvandermeulen

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

Code:

Other:=True, OtherChar :=":"

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

A+
23/06/2009, 14h56
aalex_38
Pour moi il n'y a que 3 valeurs possibles :
Code:

1 2 3 xlTextQualifierNone xlTextQualifierDoubleQuote default. xlTextQualifierSingleQuote
Essai peut être avec :

Code:

.TextFileOtherDelimiter = ":"

Edit : TextFileFixedColumnWidths permet en effet de définir pour chaque collonne dans un array la largeur de ces dernières.
23/06/2009, 15h00
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 :ccool:
23/06/2009, 15h07
mmmxtina

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

alors j'ai tester ton truc aalex_38

Code:

.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!;)
23/06/2009, 15h28
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 ;)

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

Code:

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!:D