Bonjour,
Je suis débutant et j'ai besoin de votre aide. Enfait, mes données sont stockées dans des fichiers dont l'extension est txt. Comment puis-je faire des calculs dans une feuille excel sur ces données dont la source est ces fichiers txt?
Bonjour,
Je suis débutant et j'ai besoin de votre aide. Enfait, mes données sont stockées dans des fichiers dont l'extension est txt. Comment puis-je faire des calculs dans une feuille excel sur ces données dont la source est ces fichiers txt?
Comment se présentent tes données dans ton fichier texte ?
Par ligne sans séparateur ?
Par ligne avec séparateur ? Lequel ?
A+
Effectivement les données sont en lignes avec des entêtes dans la première ligne et le separateur utilisé est l'espace.
A+
Je ne vois pas, je peux interpréter ça de deux manières,
ouEntête_Ligne1
Donnée1 Donnée2 Donnée3 Donnée4 Donnée5 Donnée6
Entête_Ligne2
Donnée1 Donnée2 Donnée3 Donnée4 Donnée5 Donnée6
Mais bon, dans le premier cas tu n'as pas d'espace pour l'entête et donc, tu peux tester la ligne et si elle ne contient pas d'espace, c'est l'entête ; la ligne suivante, les données de la ligne ; le nombre d'espaces + 1 le nombre de colonnes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Entête_Ligne1 Donnée1 Donnée2 Donnée3 Donnée4 Donnée5 Donnée6 Entête_Ligne2 Donnée1 Donnée2 Donnée3 Donnée4 Donnée5 Donnée6 Entête_Ligne3 Donnée1 Donnée2 Donnée3 Donnée4 Donnée5 Donnée6
Sinon, le premier mot de la ligne est l'entête.
Je prends la première hypothèse. Tu devrais pouvoir t'en sortir avec ça
Si c'est la seconde hypothèse, tu devrais pouvoir trouver tout seul
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 Open "D:\LeFichier.Text" For Input As #1 While Not EOF(1) Input #1, ligne if instr(LaLigne," ") = 0 then entête = LaLigne else LeTableau = Split(LaLigne) 'donne un tableau des valeurs de chaque colonne de la ligne 'on passe dans Excel NoLigne = NoLigne + 1 For i = 1 to Ubound(LeTableau) Cells(NoLigne, i) = LeTableau(i) Next endif Wend Close #1![]()
A+
En fait les données sont sous cette formeMerci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Date Devise Ietr Portefeuille Etranger CT Portefeuille Etranger MT Placement a terme devises Comptes etranger remu 2/1/2007 AED 1 0 0 4 2/1/2007 CAD 1 0 0 2 2/1/2007 CHF 1 0 0 21 2/1/2007 DKK 1 0 0 0do
Alors tu as beaucoup plus simple, ouvre ton fichier.txt avec Excel, séparateur " " (espace)
Attention : Tu auras un pb pour la première ligne dans laquelle tu devras remplacer, dans le fichier texte (avec NotePad ou un autre éditeur de texte) les espaces présents dans les noms d'entêtes par underscore, sinon, pour "Portefeuille Etranger" tu auras deux colonnes en entête (alors qu'avec "Portefeuille_Etranger" tu n'en auras qu'une.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Workbooks.OpenText Filename:="D:\Fichier.txt", Origin:= _ xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _ , Space:=False, Other:=True, OtherChar:=" "
Si tu utilises le code que je t'ai passé, idem pour l'entête
Par contre, tu "peux" supprimer
mais tu n'es pas obligé, le code fonctionnera tel quel puisque toutes les lignes auront des espaces.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 if instr(LaLigne," ") = 0 then entête = LaLigne else ' et le endif
Ceci dit, j'espère qu'il n'y a qu'un seul espace à la fois comme séparateur et non plusieurs...
Tu dis
A+
Partager