Bonjour,

Ma question peu paraître un peu bête mais, un code peut il être exécuté à une vitesse différente en fonction d'un PC ?

Ex: avec un Pentium 4 dual core et un i7

Mon code ci-dessous s'exécute en 9 sec. Je voudrais diviser le temps par deux.
9 sec avec mon Pentium 4 dual core 3 Ghz et 3 Go ram

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
 
lxls_fichierExcel=xlsOuvre("C:\MO.xls",xlsEcriture)
SI ErreurDétectée = Faux ALORS
	Li_nbligneFichierExcel=1
	ls_contenuFichierTexte= fChargeTexte("C:\SPE.txt")
	POUR TOUTE CHAINE ls_ligneFichierTexte DE ls_contenuFichierTexte SEPAREE PAR RC
		toto=Gauche(ls_ligneFichierTexte,12)
		tata=Droite(ls_ligneFichierTexte,10)
		lxls_fichierExcel[Li_nbligneFichierExcel,"A"]=toto
		lxls_fichierExcel[Li_nbligneFichierExcel,"B"]=tata
		Li_nbligneFichierExcel++
	FIN
	// Lecture d'une cellule pour test
	ResDonnée= xlsDonnée(lxls_fichierExcel,2,26,Faux)
	xlsSauve(lxls_fichierExcel)
	xlsFerme(lxls_fichierExcel)
 
FIN
// Ouverture d'un fichier externe
IDFichier = fOuvre("C:\INF.txt", foLectureEcriture)
// Écriture dans ce fichier
ResEcriture = fEcrit(IDFichier, ResDonnée)
ls_contenuFichierTexte2= fChargeTexte("C:\INF.txt")
POUR TOUTE CHAINE Ls_ligneFichierTexte2 DE ls_contenuFichierTexte2 SEPAREE PAR RC
FIN
 
 
SI ls_contenuFichierTexte2 = "1" ALORS
	TableInsèreLigne(TABLE_TY,1, 1)
	TableSupprime(TABLE_TY, 2 )
	TableEnregistre(TABLE_TY)
 
FIN
 
 
 
SI ls_contenuFichierTexte2 = "1" ALORS
	TableInsère(TABLE_De,+TAB+ls_contenuFichierTexte2)
	TableSupprime(TABLE_De,2)
	TableEnregistre(TABLE_De)	
FIN