Quelle est la limite d'une variable tableau

Bonjour,

Je souhaite intégrer une fichier CSV dans une variable tableau afin de pouvoir pointer rapidement sur l'enregistrement voulu.

Exemple :
NO CLI NOM PRENOM CPSTL VILLE
Fichier CSV chaque enregistrement est comme ceci 12345678;DURAND;ALEXANDRE;75000;PARIS
je déclare 4 variables tableau nom, prenom, cpstl et ville
l'index du tableau est le numéro de client.

le problème est la taille du tableau

Par la suite lors d'une demande d'information d'un numéro de client la réponse est immédiate.

pour info aussi dans le fichier CSV il y a 204.342 enregistrements.

Dans l'attente de lecture

Lionel COUVRAT

Bonjour,

fais ce test et tu le sauras des que ça bug place le curseur de la sourie sur t et tu liras sa valeur!

Code:

---

1 2 3 4 5 6

dim tb() t=0 do redim tb(t) t=t+1 loop

---

Re bonjour,

je viens de faire le test avec ton code
au lieu de commencer à 0 j'ai commencer plus loin
alors résultats :

50000000 trop grand (erreur exécution 7, mémoire insuffisante)
40000000 ca passe

je ne peux donc pas utiliser un tableau car j'ai des no client supérieur à la limite

Merci

Bonjour,

tu peux utiliser un dictionnaire complémentaire qui contient :

- en item : l'indice du client dans ton tableau client
- en clé : le numéro de client

ainsi, tu n'as plus besoin d'avoir un tableau de client qui contient autant d'éléments que le numéro de client maximal

un exemple réalisé sur excel :

- les colonnes vont de A à E
- j'ai crée 1 millions de clients fictifs
- la création du dictionnaire à 1 millions d'entrées prend environ 1 minutes
- ensuite, son interrogation est instantanée


pour générer le dictionnaire, il faut lancer la procédure CreaDictionnaire
ensuite, on peut utiliser la procédure Cherche pour récupérer les informations voulues

Code:

---

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

Public MonDico Public TabClient   Sub CreaDictionnaire()   ' dictionnaire Set MonDico = CreateObject("Scripting.dictionary")   ' tableau avec les clients TabClient = Range(Cells(2, 1), Cells(Rows.Count, 5).End(xlUp))   ' pour chaque ligne du tableau (= chaque client) For i = LBound(TabClient, 1) To UBound(TabClient, 1) ' on crée une entrée dans le dictionnaire ' clé = numéro du client ' item = index du tableau client MonDico.Add TabClient(i, 1), i Next i   MsgBox "Dictionnaire crée"   End Sub   Sub Cherche()   ' interrogation de la troisième colonne de mon client 294420 ' (= son prénom) MsgBox TabClient(MonDico(294420), 3)   End Sub

---

Ps : pour utiliser un dictionnaire, il faut cocher la référence "Microsoft Scripting Runtime" dans ton VBE si ce n'est pas déjà fait

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() serveur = "C:\MyTest\" GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & serveur & ";Extended Properties=""TEXT;HDR=YES;FMT=Delimited(;)""" Set cnx = CreateObject("adodb.connection") cnx.Open GenereCSTRING Set RS = CreateObject("adodb.recordset") RS.Open "select * from [Classeur1.csv];", cnx ActiveCell.CopyFromRecordset RS RS.Close cnx.Close End Sub

---

Bonjour joe.levrai

Quelle idée excellente de créer un dictionnaire.
chose que je ne connais pas, il va falloir que je me penche sur le sujet
car en fait je dois mémoriser 5 fichiers CSV avec beaucoup d'enregistrement
qui on en commun un numéro de client.

Merci



Bonjour rdurupt

Je vois l'idée général de ton code, c'est une connexion au fichier CSV qui me plait assez
mais est ce que je peut faire une recherche et ressortir des infos.
Comme je l'ai dis a joe.levrai j'ai 5 fichiers CSV à mémoriser.
cette idée est pas mal car elle travaille directement sur le fichier CSV

Dans l'attente de te lire

Lionel COUVRAT

Oui

Code:

---

1 2 3

select champ1,champ2 from csv.csv where champ1='toto';   select * from Csv1.Csv as frm1 inner join csv2.csv as frm2 on frm1.Num_Client=frm2.Num_Cient where frm1.localisation='Bordeaux';

---

re rdurupt

Un select comme en sql.

je viens ce coller tes deux codes

mais pour le select j'ai l'erreur : erreur de compilation case attendu.
de plus le résultat du select je le récupère dans quoi ?

Je te joint ce que j'ai écris (il y a peut de changement par rapport à toi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test()   serveur = "C:\couvratl\A_conserver\Excel\Recherche_donnees\" GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & serveur & ";Extended Properties=""TEXT;HDR=YES;FMT=Delimited(;)""" Set cnx = CreateObject("adodb.connection") cnx.Open GenereCSTRING Set RS = CreateObject("adodb.recordset") RS.Open "select * from [cdfast_clipro8.csv];", cnx ActiveCell.CopyFromRecordset RS RS.Close cnx.Close   select NOM,CODCLI from cdfast_clipro8.csv where CODCLI='89999907';   End Sub

---

alors là?????

Question

lorsque tu lis le fichier CSV, les données se mettent dans la colonne A d'une feuille sur Excel.
quel est la commande qui fait cela dans ton script ?
est ce que je peux la remplacer par une mémorisation dans un tableau ?

Rs contient le résultat de ta requête. range("A1").CopyFromRecordset RS ! copie la equête comme un tableau.

Code:

---

1 2 3 4

while rs.eof=false 'la requête est vide false/true; oui/non rs("Champ1").valeur 'retourne la valeur du champ1 de 'enregistrment1 rs.movenext 'passe à l'enregistrement suivant. wend

---

Code:

---

1 2 3 4

dim Mytableau() mytableau=rs.getrows 'retourne le resultat de la requête sous forme de tableau for i=0 to unbound(mytableau) next

---

Merci

Pour info,

si tu souhaites utiliser un dictionnaire, après avoir utilisé la procédure de rdurupt qui met sous tableau les données de ton CSV

n'oublie jamais que l'index de départ du dictionnaire sera 1
en l'absence d'option "Base 1" dans ton module, le tableau MyTableau aura quant à lui un index de départ à 0


ça n'a que peu d'incidence, mais c'est bon à savoir pour ne pas avoir de décalage malencontreux

Merci

Bonjour,

après avoir chercher voici ce que j'ai fait et qui fonctionne

Code:

---

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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

Option Explicit   Dim Dicolc As Object Dim schemin As String Dim sfichier As String Dim senr As String Dim ttab() As String Dim iitem As Double Dim ipremier As Integer   Sub CreaDictionnaire()   ' Déclaration du dictionnaire Set Dicolc = CreateObject("Scripting.dictionary")   ' Déclaration du fichier à traiter schemin = "C:\couvratl\A_conserver\Exemples_excel\" sfichier = "zdonnees.csv"   ipremier = 0 Open schemin & sfichier For Input As #1 While Not EOF(1) Line Input #1, senr ttab() = Split(senr, ";") If ipremier = 0 Then ' Ne pas traiter le premier enr. Titre ipremier = 1 Else iitem = Val(ttab(0)) 'Convertion de la donnée en valeur 'MsgBox "ttab -> " & iitem & Chr(13) & "senr -> " & senr   Dicolc.Add iitem, senr ' - Il est possible de choisir le format de l'item du dictionnaire ' - Cela peut être un item string ou un item de valeur ' - Les conséquences seront pour la recherche ' Si string il faut faire une recherche avec une donnée string ' exemple -> MsgBox Dicolc.Item("2") ' Si valeur il faut faire une recherche avec une donnée numérique ' exemple -> MsgBox Dicolc.Item(2) End If Wend Close #1   MsgBox "Dictionnaire crée"   iitem = 2 MsgBox Dicolc.Item(iitem)     End Sub

---

je vous joint aussi les données du fichier zdonnees.csv

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Numéro;Nom;Prénom;cpstl;ville 1;NOM1;PRENOM1;86000;VILLE1 2;NOM2;PRENOM2;86100;VILLE2 3;NOM3;PRENOM3;86200;VILLE3 4;NOM4;PRENOM4;75000;VILLE4 5;NOM5;PRENOM5;85000;VILLE5 6;NOM6;PRENOM6;18000;VILLE6 7;NOM7;PRENOM7;64000;VILLE7 8;NOM8;PRENOM8;36000;VILLE8 9;NOM9;PRENOM9;37000;VILLE9 10;NOM10;PRENOM10;75000;VILLE10

---

Je vais maintenant tester sur mes fichiers CSV reels

Merci pour tous vos idées et vos réponses

Lionel