Discussion :

[orditosh]

Bonjour, j'ai fait un code d'import

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
 
PROCEDURE ImporterDonnees(NomEta est une chaîne = "Donnee")
i est un entier
t est un entier
nXls est un entier
nbCol est un entier
nbLig est un entier
selecteur est une chaîne
 
selecteur = fSélecteur("", "", "Sélectionnez un fichier à importer", "Fichier Excel"+TAB+"*.xls", "*.xls", fselOuvre+fselExiste)
 
 
nXls = xlsOuvre(selecteur)
nbCol = xlsNbColonne(nXls)
nbLig = xlsNbLigne(nXls)
 
HGèreIntégrité("*", "*", hCardinalité + hEnModification + hEnSuppression, Faux)
 
 
POUR t=2 A nbLig
 
	//On commence par regarder si le nom existe	
	HLitRecherche(NomEta,"Nom",xlsDonnée(nXls,t,1),hIdentique)
	HLitRecherche(NomEta,"Date_int",xlsDonnée(nXls,t,2),hIdentique)
 
 
		SI PAS HTrouve ALORS  // Si existe pas alors on initialise
		{NomEta + ".Nom",indRubrique} = xlsDonnée(nXls,t,1)
		{NomEta + ".Date_int",indRubrique} = xlsDonnée (nXls,t,2)
		{NomEta + ".Classes",indRubrique} = xlsDonnée(nXls,t,3)
		{NomEta + ".Difficultes",indRubrique} = xlsDonnée(nXls,t,4)
		{NomEta + ".Pai",indRubrique} = xlsDonnée(nXls,t,5)
		{NomEta + ".Suivi",indRubrique} = xlsDonnée(nXls,t,6)
		{NomEta + ".Suites",indRubrique} = xlsDonnée(nXls,t,7)
		{NomEta + ".Notes",indRubrique} = xlsDonnée(nXls,t,8)
FIN
 
	HAjoute(NomEta) //Puis on ajoute
 
	FIN
 
 
 
 
 
xlsFerme(nXls)
TableAffiche(Fen_table.Table,taCourantBandeau)
 
SI selecteur = "" ALORS
	Info("Veuillez sélectionner un fichier à importer.")
SINON
	SI HErreurIntégrité() = Faux OU HErreurDoublon() ALORS
		Info("L'importation s'est déroulée avec succès !")
	SINON
	Erreur("Une erreur s'est produite, veuillez ré-essayer.")	
	FIN
FIN

Tout cela marchait mais, depuis que j'ai voulu que la loupe s'affiche en transformant mes données en CLE AVEC DOUBLONS, ce code ne marche plus comme avant.
Avant, il filtrait tous les enregistrements, si un enregistrement qui existe déjà à le meme NOM et la meme DATE qu'un enregistrement a importer, ce dernier ne s'importe pas.
Mais, maintenant, cela ne fonctionne plus !

[Runik]

Je pense que ton problème provient de ta recherche :

Code :

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

1
2
HLitRecherche(NomEta,"Nom",xlsDonnée(nXls,t,1),hIdentique)
HLitRecherche(NomEta,"Date_int",xlsDonnée(nXls,t,2),hIdentique)

Ton deuxième HLitRecherche écrase le compte rendu du premier qui n'est donc pas pris en compte.
La méthode la plus simple pour régler le problème serait de créer une clé composée Nom+Date dans ton fichier destination, ce qui te permettrait de ne faire qu'un seul HLitRecherche (et donc fonctionnerait )
C'est un coup de chance que ça ait marché jusqu'à présent si tu veux mon avis ...