Discussion :

[djodjo2050]

Bonjour à tous,

a partir d'un fichier excel convertit en txt (avec des point virgules pour le séparateur) je dois venir lire et écrire des données dans ce fichier txt. Je dois passé par le txt car le poste ou sera installé le programme ne dispose pas de licence office (excel entre autre). Cependant, le fichier txt (une fois modifié) sera exploité par un autre pc qui dispose de excel.

En vba je connais les syntaxes pour lire écrire dans une cellule et surtout naviguer en ligne et colone. Par contre dans un fichier txt avec des point virgule je ne connais rien.

Pouvez vous svp m'aider en me donnant les syntaxes correpondant aux question suivantes:

Comment ouvrir un fichier txt?
Comment accede t on à la ligne i et colone j dans un txt (avec les points virgules)?
Comment trouver une chaine de caractère "toto" dans une colone?
Comment écrire dans un txt exemple "toto" à la ligne i et colone j ?
Comment sauvegarder après les modifications faites?

Merci à tous pour votre aide et vos réponses

[MaelstroeM]

Pour lire il y a le TextFieldParser :

http://msdn2.microsoft.com/fr-fr/lib...63(VS.80).aspx

Pour écrire :

http://msdn2.microsoft.com/fr-fr/lib...er(VS.80).aspx

Pour ça :

Comment accede t on à la ligne i et colone j dans un txt (avec les points virgules)?
Comment trouver une chaine de caractère "toto" dans une colone?
Comment écrire dans un txt exemple "toto" à la ligne i et colone j ?

Il n'existe pas d'Objet gérant cela de façon native.
Il va falloir que tu le fasse toi même.

@+

[djodjo2050]

Bonjour,

Merci bcp MaelstroeM pour les liens.

j'ai trouvé et modifié ce code



J'ai créer un autre tableau cellule pour stocker le contenu du fichier et ainsi avoir acces à n'importe quel valeur comme dans une cellule excel avec le code suivant

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
Sub test2()
 
Dim cellule(80, 80) '
 
 
FN = FreeFile
Open "fichier.txt" For Input As #FN
    T = Split(Input(LOF(FN), #FN), vbCrLf)
Close #FN
'Ici, T contient tout le fichier. Chacun de ses éléments est une ligne
 
 
For i = i To UBound(T) 'lecture de chaque ligne (élément du tableau)
    T2 = Split(T(i), ";")   'séparer cette ligne aux points-virgules
 
    For j = 0 To UBound(T2)  'lecture du 2eme tableau qui contient les éléments
        'MsgBox T2(j)
        'MsgBox T(j)
 
        cellule(i + 1, j + 1) = T2(j) 'on remplie le tableau cellule de chaque élément ligne par ligne
        'MsgBox "" & cellule(i, j) & ""
    Next
Next
 
Stop

imaginons maintenant que mon fichier csv (ou txt) soit:

nom;prénom;age
boby;lapointe;50
jo;toto;19


Maintenant le probleme réside dans l'écriture du fichier txt au bon endroit.
Dans le fichier exemple et avec le code ci dessus cellule(3,2) vaut toto. comment écrire dans le fichier txt tatan à la place de toto et sauvegarder.

Je sais qu'il faut utiliser du genre Print #1, "tatan" mais je ne sais pas comment indiquer d'écrire à la 3éme ligne et après le 1er ";" (ou avant le 2ème ";")

Merci à tous et bon week end.