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