Discussion :

[timmy1]

Bonjour à tous,

Voila j'ai un fichier txt dans le même répertoire qu'une base access.
Lorque la base access est ouverte je détecte le répertoire ou elle a été mise, et je voudrai ensuite modifier certaine ligne de mon fichier texte ou doit figurer le nom du répertoire.
Mais pas moyen de faire fonction ma fonction...

Voila le code

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
Dim ligne As String
myrep = rep_actif()
fich_mvt = myrep & "\appli\list_fint.txt"
        Open fich_mvt For Output As #1
      While Not EOF(1)
      Input #1, ligne
      'si la ligne contient fichouv je remplace
      If InStr(ligne, "fichouv") <> 0 Then
       Print #1, myrep & "\\APPLI\\zz.SVT"
       End If
       'si la ligne contient fichsauv je remplace
       If InStr(ligne, "fichsauv") <> 0 Then
       Print #1, myrep & "\\APPLI\\fint.txt"
       End If
     Wend
     Close #1

Si vous avez la solution ...


Merci d'avance

[number7]

Tu ouvre ton fichier avec OUTPUT, ce qui ne permet que l'écriture.

Je te conseil d'ouvrir deux fichier

1 - ton fichier list_fint.txt en lecture (For Input)

2 un nouveau fichier en écriture (For output)

Finalement tu écrase list_fint.txt avec ton nouveau fichier