Discussion :

[alaize]

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

[Pierre Fauconnier]

Salut.

Tu peux t'inspirer de ceci

Code :

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

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

[Pierre Fauconnier]

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