Bonjour amis programmeurs et programmeuzes,

me revoila pour de nouvelles aventures, aujourd'hui comment remplacer le texte d'un fichier texte en utilisant des cellules de excel.

Alors voila, j'ai un fichier texte nommé machin.ftp(fichier texte de commandes dos) qui contient ceci :

open 0.0.0.0
user
pass
get truc1.txt
quit
exit

je transfere ce fichier dans excel et je rentre les infos nécéssaires a la connection (l'ip, le nom d'utilisateur, le pass et le numero de truc.txt)

ensuite avec une macro je voudrai remplacer ce que contient mon machin.ftp avec les infos des cellules.
Voici le code macro que j'utilise pour changer les infos :

   temoin = 1
   Open "C:\machin.ftp" For Input Access Read As 1
   Do While Not EOF(1)                     'boucle jusqu'a ce qu'il n'y est plus de valeurs
      Line Input #1, textline              'La ligne lue est retournée dans la variable Textline
      Range("A" & temoin).Value = textline 'A chaque ligne une nouvelle cellule de la colonne A
      temoin = temoin + 1
      Loop
   Close #1
  
   'change ip
   cell = Range("A1").Value
   Mid(cell, 6, 9) = TextBox1.Value
   Range("A1").Value = cell

   'change user
   cell = Range("A2").Value
   Mid(cell, 0, 15) = TextBox2.Value
   Range("A2").Value = cell

   'change pass
   cell = Range("A3").Value
   Mid(cell, 0, 15) = TextBox3.Value
   Range("A3").Value = cell

   'Change le numéro de truc
   cell = Range("A4").Value
   Mid(cell, 10, 1) = TextBox4.Value
   Range("A4").Value = cell



Voila, et maintenant j'aimerais envoyer ces données dans le fichier machin.ftp mais je ne vois pas comment faire.

Quelqu'un aurait une idée??

merci d'avance

Salut,
Le fichier d'origine peut il etre remplacer?

Si oui
- Efface ton fichier
- Open Fic Nam For Append
- Boucle pour Print
- Close


@+: Ju£i€n
Pensez: Réponse acceptée

Voila le texte que j'ai rajouté a la fin du code que j'ai donné plus haut, mais ca efface tout le contenu du fichier machin.ftp :


   'rentre le texte dans le FTP
   'effece le contenu du fichier...
   temoin = 1
   Open "C:\machin.ftp" For Output As 1
   Print #1, ""
   Close #1
  
   '...le remplace par le contenu des cellules
   Open "C:\machin.ftp" For Append As 1
   Do While Not EOF(1)
   Range("A" & temoin) = textline
   Print #1, textline
   temoin = temoin + 1
   Loop
   Close #1

je vais essayer de mettre les fonctions open et close dans la boucles pour voir.
  

Salut,
Que contient le fichier Avant at Apres?



@+: Ju£i€n
Pensez: Réponse acceptée

Ca marche pas non plus,la je vois pas, en faisant une boucle avec le print dedans ca devrait fonctionner Oo

avant le fichier contient ce que j'ai mis plus haut :
open 10.0.0.15
ftp
ftp
get truc.txt
disconnect
quit
exit

et lorsque je lance la macro, le fichier est vide.

PS : pour les essais je n'essaye de changer que le numéro de truc.txt

Je me demandais si le probleme ne venais pas de la condition de la boucle "not EOF(1), alors je l'ai remplacer par "temoin <8) mais c'est le meme résultat.

   temoin = 1
   Open "C:\Année.ftp" For Output As 1
   Do While Not EOF(1)
   Range("A" & temoin).Value = textline
   Print #1, textline
   temoin = temoin + 1
   Loop
   Close #1

j'ai enle vé la partie append et j'ai fait ma boucle dans le output mais c'est le meme résultat :(

en suivant cette voix j'ai enlever la partie output et n'ai garder que la partie append
Résultat : le fichier n'est pas ecrasé, ni vidé mais rien n'est ajouté!

La je comprend plus trop ce qui se passe, c'etait censé rajouté le texte demandé non??