fichier TXT

[BIGOPHONE]

Bonjour (bravo a Mr Thierry pour les exemple et solution sur VBA)
la question:
j ai un fichier texte
je voudrai par une macro extraire que certain mots a l interieure de ce fichier et qu il soit copier dans une feuille XLS

Merci d'avance

 

[JyM]

Salut Bigophone,

jamais fait ça,
il y a des commandes d'accès aux fichiers,
open output input close avec les modes d'accès en random, binaire
et tutti quanti.
Je crois que ça concerne surtout les fichiers textes.

Si tu arrives à faire qq chose avec, je serais bien curieux de voir fonctionner.

Bye
JyM

 

[bigophone]

bonjour
merci jym pour les reponses je vais faire des essais avec les commande que tu ma donné
j ais deja plus ou moins une solution mais il y a rien de nouveau
import du fichier texte par macro classic dans la premiere feuille
et trie de la feuille avec une marcro prie sur ce merveilleux site

 

[@+Thierry]

Bonjour Bigophone, JyM, le Forum

Merci pour les encouragements !

Sans connaître la structure de ton fichier TXT, il est quasiment impossible de te répondre clairement, ce qu'à fait Jym d'ailleurs.

Ceci dit, voici une approche de code qui te retournera sur la feuille active en colonne "A" uniquement les lignes du fichier Texte contenant le mot saisi en InputBox.

NB Ce code est subordonnée à la présence d'un fichier "AZERTY.txt" dans le répertoire : "C:\Mes documents\"

Option Explicit

Sub SearchReportStringInTxt()
Dim Reccord As String, SearchString As String
Dim i As Integer
SearchString = InputBox("Indiquer la String recherchée")

i = 1
Open "C:\Mes documents\AZERTY.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Reccord
If Not InStr(1, Reccord, SearchString, 1) = 0 Then
Range("A" & i) = Reccord
i = i + 1
End If
Loop
Close #1
End Sub

Maintenant, si on connait excatement la structure du fichier TXT on peut mieux faire...

Bon Dimanche
@+Thierry