Discussion :

[hadaf]

Bonsoir à tous
j 'ai plusieurs fichier xls a importer leurs données vers ma base HF mon problème se voit lors de l'enregistrement des données pour mieux me comprendre voici un exemple:
fichier xls1 contient : quatre colonnes ----> l'importation et l'enregistrement est bien réussi
fichier xls2 contient : trois colonnes ----> ici j'aperçois l'ajout du quatrième colonne alors qu il y a que trois.
NB: que les fichiers xls utilise les mêmes colonne la seul déférences c le nombre des colonne.
voici mon code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
// mise en place d'un code pour importer les données d'un fichier EXCEL 
t est un entier
 
MaFeuille est un xlsDocument
sNomFichierXls est une chaîne
sNomFichierXls = fSélecteur("", "", ...
"Sélectionnez un fichier.....", ...
"Tous fichiers (*.*)"+TAB+"*.*", "*", fselOuvre + fselExiste)
SI sNomFichierXls = "" ALORS RETOUR
MaFeuille = xlsOuvre(sNomFichierXls,xlsCompatible)
 
nligne est un entier
nligne = xlsNbLigne(MaFeuille,Vrai)
//afficher des renseignements du fichier xls
POUR c=11 A 11
	LIB_SansNom6..Libellé=xlsDonnée(MaFeuille,c,12,Faux)
	LIB_SansNom3..Libellé=xlsDonnée(MaFeuille,c,8,Faux)
	LIB_SansNom4..Libellé=xlsDonnée(MaFeuille,c,4,Faux)	
FIN
POUR f = 9 A 9
	LIB_SansNom5..Libellé=xlsDonnée(MaFeuille,f,4,Faux)
	LIB_SansNom7..Libellé=xlsDonnée(MaFeuille,f,12,Faux)
FIN
Maclass est un entier
POUR b = 5 A 5
	nEval est un entier =xlsDonnée(MaFeuille,b,9,Faux)//num evaluation
   nSemestr est un entier=xlsDonnée(MaFeuille,b,7,Faux)//num semestre
   sMatr est une chaîne=xlsDonnée(MaFeuille,b,11,Faux)//code matiére 
 
 
SI xlsDonnée(MaFeuille,b,15,Faux)=1061101010 ALORS
	Maclass=1
FIN
SI xlsDonnée(MaFeuille,b,15,Faux)=1062101010 ALORS
	Maclass=2
FIN
SI xlsDonnée(MaFeuille,b,15,Faux)=1063101010 ALORS
	Maclass=3
FIN
SI xlsDonnée(MaFeuille,b,15,Faux)=1064101010 ALORS
	Maclass=4
FIN
SI xlsDonnée(MaFeuille,b,15,Faux)=1065101010 ALORS
	Maclass=5
FIN
SI xlsDonnée(MaFeuille,b,15,Faux)=1066101010 ALORS
	Maclass=6
FIN
FIN
SAI_matr=sMatr
SAI_class=Maclass
// nous partirons de la ligne 2 pour ne pas prendre en compte les entêtes de colonne.
POUR t = 16 A nligne
 snumnat est une chaîne=xlsDonnée(MaFeuille,t,3,Vrai)
	SI sMatr="#0017#" ALORS
		// Recherche l'enregistrement
		HLitRecherchePremier (CC2,numnat,snumnat )
		SI HTrouve(CC2) ALORS
			CC2.cLSS=Maclass
			CC2.AMZE1=xlsDonnée(MaFeuille,t,7,Vrai)
			HModifie(CC2)
		SINON
			CC2.cLSS=Maclass
			CC2.numnat=snumnat
			CC2.AMZE1=xlsDonnée(MaFeuille,t,7,Vrai)
			HAjoute(CC2,hIgnoreIntégrité)
		FIN
 
	FIN
 
	SI sMatr="#0011#" ET Maclass=1 ALORS
		JAUGE_1..Visible=Vrai
 
		POUR I = JAUGE_1..BorneMin _A_ JAUGE_1..BorneMax
			JAUGE_1 = I
 
		HLitRecherchePremier (CC2,numnat, snumnat)
		SI HTrouve () ALORS
			CC2.cLSS=1
			CC2.A3E1=xlsDonnée(MaFeuille,t,7,Vrai)
			CC2.A6E1=xlsDonnée(MaFeuille,t,9,Vrai)
			CC2.A4E1=xlsDonnée(MaFeuille,t,11,Vrai)
			CC2.A1E1=xlsDonnée(MaFeuille,t,13,Vrai)
			CC2.A5E1=xlsDonnée(MaFeuille,t,15,Vrai)
			HModifie(CC2)
		SINON
			CC2.cLSS=1
			CC2.numnat=snumnat 
			CC2.A3E1=xlsDonnée(MaFeuille,t,7,Vrai)
			CC2.A6E1=xlsDonnée(MaFeuille,t,9,Vrai)
			CC2.A4E1=xlsDonnée(MaFeuille,t,11,Vrai)
			CC2.A1E1=xlsDonnée(MaFeuille,t,13,Vrai)
			CC2.A5E1=xlsDonnée(MaFeuille,t,15,Vrai)
			HAjoute(CC2,hIgnoreIntégrité)
			FIN
			FIN
			JAUGE_1..Visible=Faux
 
	FIN
	SI sMatr="#0011#" ET Maclass=2 ALORS
 
		// Recherche l'enregistrement
		HLitRecherchePremier (CC2,numnat, snumnat)
		SI HTrouve()
			CC2.cLSS=2
			CC2.A3E1=xlsDonnée(MaFeuille,t,7,Vrai)
			CC2.A6E1=xlsDonnée(MaFeuille,t,9,Vrai)
			CC2.A4E1=xlsDonnée(MaFeuille,t,11,Vrai)
			CC2.A1E1=xlsDonnée(MaFeuille,t,13,Vrai)
			HModifie(CC2)
		SINON
			CC2.cLSS=2
			CC2.numnat=snumnat 
			CC2.A3E1=xlsDonnée(MaFeuille,t,7,Vrai)
			CC2.A6E1=xlsDonnée(MaFeuille,t,9,Vrai)
			CC2.A4E1=xlsDonnée(MaFeuille,t,11,Vrai)
			CC2.A1E1=xlsDonnée(MaFeuille,t,13,Vrai)
			HAjoute(CC2,hIgnoreIntégrité)
		FIN
		FIN
 
	FIN

[hadaf]

je viens de trouver une solution très simple c de déclarer les autre colonne null comme : fichierX.xx=""

[Hemgé]

Bonjour

Je n'ai pas décortiqué votre code, mais sauf erreur, vous n'utilisez pas XlsNbColonne.
Cette instruction devrait vous permettre d'adapter votre import en fonction du nombre de colonnes.

Hemgé

[jdsetls]

Bonjour,
Une autre méthode plus rapide consiste à mettre le fichier Excel en presse papier, puis à déverser le presse-papiers dans une zone de texte.
Ensuite vous déversez la variable dans un tableau vierge.
Enfin vous transférez votre tableau ligne à ligne.
L'avantage est que vous pouvez ajouter autant de feuilles Excel dans la même variable et tout faire en une fois.

Code :

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

1
2
3
4
5
6
7
8
Voici un exemple de code transférant une sélection Excel vers Table1 :
tablesupprimetout(Table_vierge.table1)
babouin = extraitchaine(zone_de_résultats, rangpremier, rc)
tableajoute(Table_vierge.table1, babouin)
tantque babouin <> EOT
babouin = extraitchaine(zone_de_résultats, rangsuivant, rc)
tableajoute(Table_vierge.table1, babouin)
fin

Notez que l'usage du presse-papiers est très rapide et permet un contrôle visuel.
Cordialement