Discussion :

[Denis_67]

Bonjour,

J'ai déjà importé et converti des tas de fichiers texte.
là je suis confronté à un problème de jeu de caractère.

Le séparateur est un [;] après vérification le code [;] me renvoie 63 au lieu de 59 pour un [;] tapé à mon clavier.
Donc je dois être dans un jeu de caractères différent

J'ai fait un enregistrement macro pour réouvir ce fichier, mais la macro générée ne tient pas compte du bon jeu de caractère, alors que j'avais bien collé la bonne valeur lors de l'enregistrement de la macro.
Du coup il ne me fais pas la conversion à l'ouverture.

de plus avec ce mode d'enregistrement tous les champs sont figés dans la partie qualification du type de données de chaque colonne.
Existe-t-il une autre méthodes plus universelle ?
Sinon il me reste l'ouverture chercher remplacer [;](63) par [;](59) puis convertir.

Merci pour vos conseils
Denis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 Workbooks.OpenText Filename:="C:\Users\Denis_67\Desktop\test_sp01.txt", Origin _
        :=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, 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), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _
        (14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), _
        Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array( _
        27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), _
        Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array( _
        40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), _
        Array(47, 1), Array(48, 1), Array(49, 1)), TrailingMinusNumbers:=True

[parmi]

Bonjour,

Avec les icônes qui s'affichent, c'est difficile de voir quel est le séparateur dont tu parles...

Tu écris ceci

Semicolon:=False

puis

Other:=True, OtherChar:=";"

Y a-t-il une raison particulière ?

[Denis_67]

Bonjours,

Voilà ce que c'est quand on ne préviualise pas son message ...

Je remplace les par [;] c'est bien du caractère point-virgule dont il s'agit.


Denis

[Denis_67]

Bonsoir,
Désolé ce problème est toujours actif.

Ne pas tenir compte des icones qui se sont générées par erreur.

donc je répète mon problème lorsque j'importe un fichier texte le point-virgule n'est pas reconnu comme tel.
J'ai essayé quasiment tous les jeux de caractères latin europe proposés dans l'import mais je me retrouve toujours avec un autre caractère.
Le séparateur est un [;] après vérification le code [;] me renvoie 63 au lieu de 59 pour un [;] tapé à mon clavier.

D'autres idées ?
Merci
Denis

[parmi]

Quand tu ouvres ton fichier dans le bloc-note, tu vois des ";" ?
Si oui, peut-être essayer de l'ouvrir avec Notepad++
Il n'est pas disponible par défaut; il faut le télécharger et l'installer, mais c'est un bon outil à posséder...

[Denis_67]

Bonjour Parmi,

Perso j'utilise PSpad editor, où je visualise des ;, demain au boulot, je vais me mettre en mode hexa pour voir le code réel du caractère.
Merci pour l'idée.
à suivre.
Denis

[Marc-L]

Bonjour,

visible en VBA via sa fonction AscW.

Sujet déjà traité dans une discussion de ce forum …



__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Denis_67]

Avec notepad++ j'ai récupéré le set de caracteres UTF-8 without BOM ce que PSpad ne montre pas !

Bref en tous cas, j'ai demandé au programmeur de revoir son format d'export.

Merci