[VBA-E]Probleme quand Lecture Fichier Texte

Version imprimable

MOn fichier Texte

Citation:

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:

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

03/05/2006, 10h34
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 :wink:
03/05/2006, 10h42
Elstak

Et tu voudrais les dates sous quel format?

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

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

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
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

03/05/2006, 11h11
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 ... :

Citation:

Envoyé par "Ma fenêtre exécution (en bleu saisie ..)

?xlDMYFormat
4