Traiter un fichier txt à partir d'une macro VBA Excel

Version imprimable

28/07/2011, 13h03
alaize

Traiter un fichier txt à partir d'une macro VBA Excel

Bonjour,

Est ce que quelqu'un pourrait m'aider à résoudre ce problème svp. Je ne m'en sors vraiment pas.

Je souhaiterais coder dans une macro excel la procédure suivante:

J'ai un fichier texte (une énorme base de données dépassant les capacités de Excel, cad que je ne peux pas l'ouvrir dans excel.) Mais j'ai besoin des données présentes dans ce fichier texte pour faire tourner ma macro excel.
Je voudrais donc via une macro vba excel lire ce fichier texte et rechercher toute les lignes du fichier texte contenant une référence (ex: pwd1011)
Copier dans une nouvelle feuille excel toutes les lignes du fichier texte qui contiennent ce mot.

Merci beaucoup par avance.

Lili

Salut.

Tu peux t'inspirer de ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub LireTXT()
  Dim ValeurLigne As String
  Dim Cellule As Range
 
  Set Cellule = Range("a2") 
 
  Open "D:\test.txt" For Input As #1   
  Do While Not EOF(1)
  Line Input #1, ValeurLigne
  If InStr(1, ValeurLigne, "pwd1011") <> 0 Then
    Cellule = ValeurLigne
    Set Cellule = Cellule(2)
  End If
  Loop
  Close #1
End Sub

28/07/2011, 15h25
Pierre Fauconnier

Cela étant dit, tu pourrais le faire sans VBA en utilisant MSQUERY