Discussion :

[niko8181]

bonjour
je dois développer un outil sous VBA EXCEL 2000 :
je souhaiterais avoir un bouton qui lorsqu'on clique dessus scanne des codes articles qui sont dans la colonne A, vérifie des infos pour chacun d'eux dans un fichier txt, puis affiche un résultat dans la colonne B.

Pb: Le fichier txt en question comporte + de 100.000 lignes.

Comment puis-je m'y prendre, y-a-t-il un moyen de faire des requêtes SQL directement dans le fichier txt par ODBC, sans avoir à l'importer dans une feuille excel ? (puisqu'on ne peut pas l'importer à cause de sa taille)

Merci de votre aide

[mercatog]

fais l'import sur plusieurs feuilles, regarde la faq ou tutos dédiés à cela

[niko8181]

merci mais je voudrais vraiment éviter d'importer les données txt dans le fichier xls pour ne pas l'alourdir

[Basicnav]

Bonjour,

mais tu cherches quoi exactement dans ce fichier de 100000 lignes ?!
Une référence, du texte, un numéro de ligne ?

[niko8181]

en fonction du code article, je vais recherche la valeur d'un champ (ok ou ko)
Mais peu importe à la limite ce que je vais rechercher...
Je pense pouvoir me débrouiller avec une requête ODBC utilisant le Microsoft text driver pour accéder à mon fichier txt.
Si quelqu'un l'a déjà fait, je veux bien un coup de pouce, sinon je posterai la solution lorsque j'y serai arrivé.

[AlainTech]

Bonjour,

Un petit exemple:

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
Sub TextSql()
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim strSql As String
  With cn
    .ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=C:\Documents and Settings\xxxxxx\Mes documents\Alain\Developpez\;Extensions=asc,csv,tab,txt;"
    .Open
  End With
  strSql = "SELECT * FROM PourSql.txt"
  rs.Open strSql, cn, adOpenKeyset
  Do While Not rs.EOF
    ' Ton traitement
    rs.MoveNext
  Loop
  rs.Close
  cn.Close
End Sub