Discussion :

[shadok6]

Bonjour,

j'ai un fichier txt de valeurs en 1 colonne, je souhaite l'ouvrir, y ajouter une 2ème colonne de valeurs, et l'enregistrer ainsi à nouveau en .txt, SANS l'OUVRIR avec Excel.
Car il peut arriver que ce fichier ait plus de 65536 lignes, et Excel me coupe les données au-delà. De plus à l'enregistrement Excel m'ajoute un retour à la ligne à la toute fin des valeurs, qui rend mon nouveau fichier .txt inexploitable derrière.

Je voudrais donc accéder au contenu de mon fichier .txt (par quel moyen?), stocker mes valeurs dans une variable tableau à 2 dimensions, ajouter ma 2ème colonne, et générer un nouveau fichier txt à partir de cette variable. Est-ce possible en VBA? ou faut-il chercher avec un autre langage de programmation ?
Merci de votre aide.

[neupont]

Voici grosso modo ce dont tu auras besoin :

Lire un fichier texte :

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
 
dim monTableau (100000, 2) as variant, i as long, j as long, fileName as string
 
fileName = "C:\exemple.txt"
 
Open fileName For Input As #1    ' Ouvre le fichier en lecture
i = 0
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, variable_string        ' Met la ligne dans la variable.
    monTableau(i,1) = variable_string 
    i = i+1
Loop
i = i-1
Close #1
 
 
... remplir la colonne 2 de monTableau

Ecrire dans un fichier texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Open fileName For Output As #1    ' Ouvre le fichier en écriture
for j = 0 to i-1
    Print #1, monTableau(j,1) ; ";" ; monTableau(j,2) 'ici j'ai supposé que tu voulais séparer tes deux colonnes par un point-virgule (en rouge), mais tu mets ce que tu veux
next j
Print #1, monTableau(i,1) ; ";" ; monTableau(i,2); 'la dernière ligne est traitée à part afin d'avoir le ; final qui empêche le dernier retour ligne (si j'ai bien compris le besoin)
Close #1

[decondelite]

Autre méthode qui n'ouvre pas le fichier texte "visiblement" dans Excel (mais en réalité il est bel et bien ouvert dans Excel):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Application.ScreenUpdating = false
Workbooks.Open("mon fichier texte.txt")
' tu travailles sur ton fichier texte
Workbooks("mon fichier texte.txt").Close
Application.ScreenUpdating = true

L'avantage de cette méthode, c'est qu'elle est plus simple à comprendre, et le fichier texte est plus simple à manipuler. Mais les inconvénients, c'est que ton fichier texte devra avoir une présentation bien définie (tabulations, retous à la ligne, etc...), et tu ne pourras pas voir de modifications à l'écran si tu travailles sur un autre "classeur" que "mon fichier texte.txt" pendant le traitement de ce fichier texte.

Est-ce que ce complément d'information t'a été utile?

[shadok6]

J'ai opté pour la 1è solution (par la méthode Input) qui marche à merveille (vraiment super ,du premier coup!!!) pour ne pas prendre de risques dans les cas ou mon fichier texte initial ferait plus de 65536 lignes.
Dans tous les cas un grand merci à tous les 2.