Discussion :

[toniox]

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

[khany]

Peux-tu aussi tagger tes questions stp comme demandé ici :

http://www.developpez.net/forums/sho...d.php?t=112760

Je l'ai fait cette fois-ci mais n'oublie plus !

merci

[Elstak]

Et tu voudrais les dates sous quel format?

Vois comment les convertir (à l'aide de l'enregistreur de macro).

[toniox]

Merci j'ai enregistré une macro ça marche comme ça .Qu'en pensez vous?

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
31
32
33
34
 
Sub LectureFichier()
 
'
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;G:\USERS\Antoine\Ventil\output.txt", Destination:=Range("A1"))
        .Name = "output"
        .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 = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 4, 4, _
                             1, 1, 1, 1, 1, 4, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

[SfJ5Rpw8]

dans ta fonction VBA as tu essayer de changer le format d'importation de tes données ... le champ FieldInfo..? ..tu retrouve pour chaque colonnes
un tableau Array(13, 1) , avec comme premier élément (ici 13) le n° de la colonne de 1 à ..., et comme 2° éléments une des constantes
xlColumnDataType ..

• xlGeneralFormat Standard
• xlTextFormat Texte
• xlMDYFormat date MJA
• xlDMYFormat date JMA
• xlYMDFormat date AMJ
• xlMYDFormat date MAJ
• xlDYMFormat date JAM
• xlYDMFormat date AJM
• xlEMDFormat date EMD
• xlSkipColumn non distribuée

tu peu connaitre la valeur d'une de ces constante en l'affichant dans la fenêtre exécution par exemple ... :

?xlDMYFormat
4