MOn fichier Texte

N°;N° Client;Motif;Thème;Action 1;Action 2;État;Statut;Demandeur;Date de création;Date d ’effet souhaitée;Date d ’effet réelle;Compétence destinataire;CDC destinataire;Média du contact;CDC créateur;CDC modificateur;Date de modification;N° Contrat;N° Mobile;N° Compte;N° Contact
"1-BMFVO2";"3787368";"Gestion Forfaits / Services";"Fiche Incident Réseau";"SMS";"FIR > 48h";"A traiter";"Ouvert";"Payeur";"02/05/2006 11:10:19";;;"Réseau";;"Appel entrant";"VEPRIEUR";"VEPRIEUR";"02/05/2006 11:10:19";"10003566755";"664132795";"1.3633313";...............................
et mon code VBA pour lire le fichier texte

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Workbooks.OpenText Filename:=cRepertoire + "Output.txt", Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, 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))
Voila ça fonctionne a partir du 12 du moi mais avant il me met en format américain les dates cad pour reprendre l'exemple il me mettra 05/02/2006 .

Je crois que c'est un bug de windows XP , mais je ne suis pas certain.

MErci . Antoine