Bonjour,
je travaille actuellement à la mise à jour d'une macro qui récupère des données dans un fichier texte, afin d'acceder à des données.
en voici le code, ce qui vous donnera une petite idée de ce qu'il faut faire.
mon problème, c'est que le fichier en question fait plusieurs milliers de lignes (trop pour une page excel) et que je dois le lancer pour plusieurs fichiers résultat, c'est très longs
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
27
28
29
30 Open MonFichier For Input As #1 '---Recherche de la ligne d'entête--- Do Line Input #1, ligne Loop Until EOF(1) Or InStr(1, ligne, "Sub Activity2") '------------------------------------ 'Recherche des positions du champ + filtre qui sont stockés dans des variables globales For i = 0 To UBound(vector) If vector(i) = champ Then pchamp = i ElseIf vector(i) = filtre Then pfiltre = i End If Next i 'Parcourir le fichier upf et récupérer les données voulues Do Line Input #1, ligne vector = Split(ligne, ";", -1, vbBinaryCompare) If vector(pfiltre) = "IF" Then centre_if = centre_if + vector(pchamp) End If Loop Until EOF(1) Close #1 Recup_Hfinvest_Seed = centre_if
j'aimerais pouvoir acceder à ces données d'une façon similaire à celle présentée dans:
http://silkyroad.developpez.com/VBA/...ursFermes/#LII
avec pour requete :
mais, je n'y arrive pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 xSQL = "SELECT SUM(AR_DD) FROM [Feuil1$] " & _ "WHERE Center = 'IF'"
si quelqu'un pouvait m'aider, je pourais rentrez plus tot chez moi le soir
merci
Dr Gratesnif
Partager