Discussion :

[jean68]

Bonjour,

Dans VBA pour excel j'ouvre un fichier texte pour recuperer des informations

Code :

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

1
2
3
Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
     Line Input #NumFichier, Chaine

quand l'information me convient, j'aimerai supprimer l'enregistrement du fichier, quelle est la syntax? et comment dois-je ouvrir le fichier ? merci!
Jean

[laetitia]

bonjour jean68 le forum regarde avec l instruction KILL
ex:

Code :

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

Kill "C:\Donnees\Dossier\nom fichier.txt"

[jean68]

bonjour laetitia, merci mais ce n'est pas tout le fichier que je veux supprimer mais qu'un enregistrement de ce fichier

[Krovax]

Qu'appelle tu un "enregistrement"?

Tu veux supprimer des ligne du fichier?

Si c'est ça je ne crois pas que cela sera possible car tu ouvre le fichier pour le lire

Code :

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

Open NomFichier For Input As #NumFichier

Dans des cas un peu près similaire j'ai tendance a ouvrir un fichier pour écrire

Code :

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

Open NomFichier For output As #NumFichier

Je lis une ligne de mon premier fichier et si elle me conviens je l'écrit dans le deuxième.

[jean68]

merci
oui un enregistrement = une ligne du fichier
Je me doute que je ne l'ouvre pas bien, il faut l'ouvrir en update, quelqu'un a la syntax? et comment on supprime la ligne? avec quelle commande?

merci!
Jean

[DeaD78]

Bonjour,

Est-ce cela que tu veux faire ?

Code :

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

1
2
3
4
5
6
7
8
Sub test()
 
Workbooks.Open ("C:\Documents and Settings\andre.dorian\Bureau\Classeur1.xls")
If Range("A2").Value = "1" Then
    Rows(2).Delete
End If
 
End Sub

Ici, j'ouvre un fichier nommé Classeur1 se trouvant sur mon bureau. Si je trouve la valeur 1 en A2 alors je supprime l'ensemble de la ligne.