Discussion :

[Duddy]

Bonjour à tous,

Grâce à beaucoup de discussions sur le forum, j'ai réussi a créer un fichier au format CSV. Ce fichier me sert de table de données pour alimenter un autre fichier excel.

Pour retrouver les informations désirées, j'ai créé une boucle qui parcours une liste et je regarde dans mon fichier CSV a l'aide d'une boucle imbriquée.

L'ennui est que mon fichier CSV est volumineux (6 Mo) et que la liste à renseigner est longue.

Aussi, existe t-il un moyen, sous EXCEL, plus rapide que ma méthode?

J'ai bien lu, dans certaines discussions, qu'il existait des requêtes (par QUERY je crois) mais je ne connais pas du tout.

Peux t-on rechercher avec une fonction un texte spécifique dans un fichier texte comme on peut le réaliser par FIND dans EXCEL et si l'occurence retournée n'est pas bonne poursuivre la recherche?

Merci à tous pour les réponses.

[decondelite]

Tu vas être heureux: tu as effectivment l'équivalent de FIND en VBA, et son nom est... find!

Tape find dans l'aide en ligne, et je pense que tu devrais pouvoir te débrouiller avec.

[Duddy]

Bonsoir,

Je connais FIND bien sur, par contre l'objet de la question était comment l'utiliser en VBA pour chercher dans un fichier TXT au lieu de parcourir la totalité des lignes une à une.

Suite à la question, j'ai continué à chercher une soluce.


Dans ma question, je demandais une idée pour supprimer la boucle imbriquée car le fichier XLS que parcours la 1ere boucle (env 300 lignes) lance la recherche dans un fichier CSV qui contient env 100 000 lignes.

Il ne faut pas être calé en maths pour comprendre que le temps de recherche sera long et en effet c'est long (env 5 H sur un vieux PC mais au boulot je n'ai que ça)

La soluce que j'ai pensé a été d'inverser la recherche. En effet, je regarde dans le fichier CSV et par FIND je cherche la solution dans le fichier XLS.

Le temps de traitement passe à environ 5 à 7 mn sur le même PC.

Pour ceux qui peuvent en avoir besoin je pose le bout de code que j'ai écrit mais je suis preneur d'une piste qui peut répondre à ma sollicitation initiale.

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
17
18
19
20
21
22
23
24
25
26
      'ouverture du fichier .csv
     vFichierCSV = "E:\DONNEES\COMMUN\Rel_appels\Table_Index.csv"
     'vFichierCSV = "E:\DONNEES\COMMUN\Relève appels\Table_Index.csv"
     Open vFichierCSV For Input As #1
     Do While Not EOF(1)
         Line Input #1, Texte
         Index = Empty
          On Error Resume Next
          Var = Split(Texte, ";")(6)
          'Var = "409002700118"
          Windows("MBAPEL.xls").Activate
          cells(1, 1).Select
 
          cells.Find(what:=(Var), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
          :=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
          reference = ActiveCell
          If reference <> "" And reference <> "SUB" And Split(Texte, ";")(0) = centre Then
                    Index = Split(Texte, ";")(7) & " " & Split(Texte, ";")(8) & "   " & Split(Texte, ";")(9) & " " & Split(Texte, ";")(10) & "   " & Split(Texte, ";")(11) & " " & Split(Texte, ";")(12)
                    Windows("MBAPEL.xls").Activate
                    If cells(1, 13) = "Observations" Then
                        ActiveCell.Offset(0, 11).Value = Index
                    Else: ActiveCell.Offset(0, 16).Value = Index
                    End If
          End If
     Loop
     Close #1

Merci à ceux qui prendront du temps pour apporter une réponse.