Parcourir fichier texte (.TXT) en VBA [Résolu]

Signaler
Messages postés
131
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
18 mars 2012
-
Messages postés
131
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
18 mars 2012
-
Bonjour,
Je sollicite ENCORE votre aide !!! J'aimerai copier toutes les lignes d'un fichier texte (.TXT) qui commencent par « MG » dans un autre fichier texte (.TXT) qui ce trouvera dans un autre répertoire.

La macro ci-dessous parcours tous les fichier texte (.TXT) du dossier et en copie chaque ligne commençant par « MG » mais elle ne fonctionne pas?.



Dim Doss As String
Dim fs As FileSearch
Dim i As Long
Dim fso
Dim fic
Dim ficLire
Dim Lignes() As String
Dim LigneAEcrire As String
Dim Lireligne As String

Doss = "C:\Fichier"

Set fs = Application.FileSearch
Set fso = CreateObject("Scripting.FileSystemObject")
Set fic = fso.CreateTextFile("C:\test\fichier_modifié.txt", True)


ReDim Lignes(1 To 1)
With fs
.NewSearch
.LookIn = Doss
.FileName = "*.txt"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count ' Parcours de tous les dossiers
LigneAEcrire = ""
Do Until ficLire.atendofstream
Lireligne = ficLire.readline
If Left(Lireligne, 1) = "MG" Then
LigneAEcrire = LigneAEcrire & Lireligne & ";"
End If
Loop
Lignes(UBound(Lignes)) = LigneAEcrire
ReDim Preserve Lignes(1 To UBound(Lignes) + 1)
ficLire.Close
Next i
End With

For i = 1 To UBound(Lignes) - 1
fic.writeline Lignes(i)
Next i
fic.Close


Par contre il faudrait qu'il parcoure uniquement un fichier bien précis du répertoire.

Le tout en VBA excel.

Pourriez-vous m?aider.

Merci à tous et bonne journée !

22 réponses

Messages postés
131
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
18 mars 2012


Magasin   |col |hauteur  |adresse   | Equipement  |Date 1ere mise en service  
MG        |.   |.        |AF        |O            |20/05/2010           
MG        |.   |.        |AG        |N            |20/05/2011  
MG        |.   |.        |AZ        |O            |20/05/2009 
MG        |.   |.        |AA        |N            |20/05/2008
MG        |.   |.        |AC        |O            |20/05/2008           
MA        |.   |.        |AC        |O            |20/05/2008           
MB        |.   |.        |AC        |O            |20/05/2008  
MG        |.   |.        |AC        |O            |10/05/2007                      




merci
Messages postés
131
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
18 mars 2012

Merci beaucoup Renfield pour ta rapidité et surtout ta patience c'est vraiment cela qu'il me fallait.

Merci également à ucfoutu.

Bonne journée à vous.