Importation des données Excel vers HF tres long

**chuba** · 22/06/2010, 08h54

Bonjour la communauté , voila j'ai une application interrogation de bdd. Dans mon application j'ai créer 2 boutons pour importer les données article.xls et client.xls correspondant aux fichier Articles et Clients. Dans le fichier Articles j'ai 6642 enregistrements et sa prend pres de 10 minutes pour importer les données alors que le fichier cLients qui comporte 550 enregistrements ne prend meme pas 30 secondes... Voiçi le code pour importer données Articles :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
HCréationSiInexistant(Article)
 
IDXls est un entier=xlsOuvre("C:\article1.xls") 
SI IDXls<>-1 ALORS 
	iTaille est un entier=xlsNbLigne(IDXls,Faux) 
	i est un entier=1 
    TANTQUE i <= 6642
 
 
 
		Article.NumArt=xlsDonnée(IDXls,i,1,Faux) 
		Article.designation=xlsDonnée(IDXls,i,2,Faux) 
		Article.modele=xlsDonnée(IDXls,i,3,Faux)
		Article.CLINIK=xlsDonnée(IDXls,i,4,Faux)
		Article.CM=xlsDonnée(IDXls,i,5,Faux)
		Article.DDED=xlsDonnée(IDXls,i,6,Faux)
		Article.EPROU=xlsDonnée(IDXls,i,7,Faux)
		Article.FORMAT=xlsDonnée(IDXls,i,8,Faux)
		Article.LACHAS=xlsDonnée(IDXls,i,9,Faux)
		Article.LOCHAS=xlsDonnée(IDXls,i,10,Faux)
		Article.MATHUA=xlsDonnée(IDXls,i,11,Faux)
		Article.MATCLI=xlsDonnée(IDXls,i,12,Faux)
		Article.NBNOY=xlsDonnée(IDXls,i,13,Faux)
		Article.NTYNOY=xlsDonnée(IDXls,i,14,Faux)
		Article.NBOIT=xlsDonnée(IDXls,i,15,Faux)
		Article.PDMOUL=xlsDonnée(IDXls,i,16,Faux)
		Article.PIEFOR=xlsDonnée(IDXls,i,17,Faux)
		Article.POIPI=xlsDonnée(IDXls,i,18,Faux)
		Article.SECT=xlsDonnée(IDXls,i,19,Faux)
		Article.DERPRI=xlsDonnée(IDXls,i,20,Faux)
		Article.PVUSI=xlsDonnée(IDXls,i,21,Faux)
		Article.USI1=xlsDonnée(IDXls,i,22,Faux)
		Article.USI2=xlsDonnée(IDXls,i,23,Faux)
		Article.USI3=xlsDonnée(IDXls,i,24,Faux)
		Article.AFFBLO=xlsDonnée(IDXls,i,25,Faux)
		Article.INIBLO=xlsDonnée(IDXls,i,26,Faux)
		Article.EFFBLO=xlsDonnée(IDXls,i,27,Faux)
		Article.POIEXP=xlsDonnée(IDXls,i,28,Faux)
		Article.DATBLO=xlsDonnée(IDXls,i,29,Faux)
		Article.PDFORM=xlsDonnée(IDXls,i,30,Faux)
		HAjoute(Article)
		i++
	FIN
 
 
 
 
 
SINON
	ErreurInfo()
FIN

Pouvez vous m'éclairer s'il vous plait ?

**mogwai162** · 22/06/2010, 09h23

Excel est long à lire... Tu peux peut etre passer par un csv : ça ira toujours un peu plus vite.

**chuba** · 22/06/2010, 09h32

humm d'accord alors cette lenteur est due à la lecture du fichier excel. Ok . C'etait juste pour savoir car les articles seront mis a jour 1 fois tous les 2 semaines. Un fichier csv .. en fait mon fichier excel est importé avec Microsoft query qui est connecté à une basse AS/400.

**mail.spam** · 22/06/2010, 10h06

Bonjour,

Tu peux aussi te connecter à tes bases AS400 par ODBC.

**chuba** · 22/06/2010, 14h08

oui , c'est ce que j'ai fait. Je viens d'avoir un autre probleme par rapport à l'importation. J'ai rajouter une colonne dans mon fichier excel ( par le biais de microsoft query et oDBC ) maintenant quand j'importe mes données j'ai l'erreur " Pas assez de mémoire " Dans le fichier HYper File , il crée les colonnes pour chaque rubrique mais ils ne remplit pas les données.
*

Quelqu'un sait comment résoudre ce probleme. Dans le manuel de programmation il est dit que pour cette erreur il faut , je cite : " FErmer une ou plusieurs applications ou libérez de l'espace disque et répétez l'opération " . Donc c'est ce que j'ai fait et sa ne fonctionne toujours pas . Par contre quand je retire la rubrique que je viens d'ajouter , miracle WD importe bien les données. Bizarre.J'ai déja essayé d'ajouter une autre rubrique , sa ne fonctionne toujours , je vais devenir dingue

**klbsjpolp** · 22/06/2010, 15h25

Bonjour,

J'aurais aussi pencher sur un problème de mémoire. Un fichier Excel de près de 7000 lignes c'est très gros même pour Excel. Évidemment, Windev n'est pas optimisé pour ça et la meilleur solution serait, comme le dit mail.spam, de te connecter directement à ta base AS/400. Tu t'éviterais surement plein de problèmes et des manipulations étranges.

**chuba** · 23/06/2010, 09h34

oUI mais mon tuteur de stage veux que je bosse sans l'accès natif as/400 car il faudrait en acheter une licence. On en a deja une mais il est installé sur l'ancien as400 et moi je bosse sur le nouveau ( avec les données qui provient de l'ancien ) . L'histoire est un peu bizarre , mais il faut que je me débrouille avec ecxel, j'ai toujours pas résolu le probleme de mémoire. Le fichier ecxel ne fait que 20 MO, dans les aides rien n'indique une limite de logiciel pour une taille aussi faible

**Lo²** · 23/06/2010, 09h39

Salut,

Un accès ODBC ne veut pas dire Accès Natif.

Si tu as un environnement avec AS/400 et PC, il y a de fortes chances que tu possèdes Client Access, qui est fourni avec un pilote ODBC... donc pas d'achat supplémentaire.

**frenchsting** · 23/06/2010, 12h08

Lo² a raison.

Par contre, tu peux utiliser l'activex excel. Je l'ai fait pour écrire des fichiers excel volumineux et ça marchait bien (en fonction de la puissance de la machine bien sûr).

Vérif activeX

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
// Chargement de l'ActiveX
ActiveX="Shell.Explorer"
 
// Instanciation OK ?
objTest est un objet OLE dynamique = ActiveX
SI objTest=Null ALORS
	libérer objTest
	FinProgramme("L'ActiveX Internet Explorer n'a pas pu être chargé")
FIN
libérer objTest
 
// Création d'un  objet automation dynamique
MonClasseur est un objet automation dynamique
 
// Instance de Excel existante ?
SI ObjetActif("Excel.Application") <> Null ALORS
	// Récupération de l'instance de Excel existante
	MonClasseur = ObjetActif("Excel.Application")
SINON
	// Allocation de l'objet automation "MonClasseur"
	MonClasseur = allouer un objet automation "Excel.Application"
FIN
SI MonClasseur = Null ALORS
	Erreur("Impossible de lancer Excel.")
	RETOUR
FIN

Ensuite, pour te promener dans ton fichier Excel :

Code :

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

1
2
3
4
5
TANTQUE i <= 6642        
	Article.NumArt=MonClasseur>>Range("A"+i)>>Value
	Article.designation=MonClasseur>>Range("B"+i)>>Value
....
FIN

**klbsjpolp** · 23/06/2010, 15h42

Je tiens à préciser que pour utiliser la solution de frenchsting, tu dois avoir Excel d'installer. Sinon, tu peux aussi piloter OO Calc.

**chuba** · 23/06/2010, 16h27

merci beaucoup pour votre aide mais j'ai résolus mon probleme differement , sur AS400 j'ai créer un fichier de donné qui ne regrouper que des article qui dataient de 2004 jusqu'à aujourd'hui , je suis passé de plus de 7000 enregistrement à 600. Quel soulagement maintenant le programme fonctionne nickel. Merci encore pour votre aide

Importation des données Excel vers HF tres long [WD7.5]

WinDev

Discussions similaires

Partager

Partager