Discussion :

[Frego67]

Bonjour ,

Je sollicite votre aide et je vous remercie par avance pour le temps que vous passerez à m'aider.

Je travaille sur une macro d'import dans un ERP, celle-ci doit récupérer des données dans une base de données qui (selon moi) est celle sur laquelle le logiciel travaille directement.

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
 
nbligne est un entier
Pcleunik est un entier
NomEmploye est une chaîne
reqNom est une source de données
reqNomEmpl est une chaîne 
 
reqNom.Type = hAccèsHFClientServeur // Type de connexion
reqNom.Serveur = "XXXX" // Serveur de base de données
reqNom.BaseDeDonnées = "XXXX_17_03_2023" // Nom de la base de données
reqNom.Utilisateur = "XXXX" // Nom d'utilisateur
reqNom.MotDePasse = "XXXX" // Mot de passe
HOuvreConnexion(MaConnexion)
 
 
export est un xlsdocument = xlsOuvre("C:\Users\mathieu\Documents\testImport.xlsx")
nbligne = xlsNbLigne(export)
 
//pour toute les lignes du fichierXLS sauf la première (en-tête)
POUR i = 2 A nbligne
	//remise à zéro de la ligne
	HRAZ(SUIVIOP)
 
	//NomTable.attribut = xlsDonnée(FichierXLS,numéros_ligne,numéro_colonne)
	SUIVIOP.EMCLEUNIK = xlsDonnée(export, i, 8)
	Pcleunik = xlsDonnée(export, i, 8)
 
	//Récupération de la clé unique pour l'éxécution des requetes SQL
	SUIVIOP.DATEINTER = xlsDonnée(export, i, 7)
	// Initialisation de la source de données avec la requête SQL
		HExécuteRequêteSQL(reqNom, "SELECT EMPLOYE.NOM FROM EMPLOYE WHERE EMPLOYE.EMCLEUNIK = " + Pcleunik)
	// Exécution de la requête
		NomEmploye = HLitPremier(ReqNom)
	Info(NomEmploye)
 
	SUIVIOP.NOMOP = NomEmploye
//	il faudrait récupérer le nom de l'EMPLOYE EMPLOYE dont le emcleunik est en ligne 11
	SUIVIOP.NUMCOM = xlsDonnée(export, i, 5)
	SUIVIOP.TYPE = "MO"
	SUIVIOP.DOCUMENT = "PROJET"
	SUIVIOP.NBRHEURE = xlsDonnée(export, i, 4)
//	SUIVIOP.COUT_HORAIRE = xlsDonnée(export, i, 9)
	SUIVIOP.DUREE_INTER = xlsDonnée(export, i, 4)
	SUIVIOP.COMMENTAIRE = xlsDonnée(export, i, 6)
//	SUIVIOP.MATRICULE = xlsDonnée(export, i, 10)
 
	//Ajout de la ligne dans la table
	HAjoute(SUIVIOP,hIgnoreDoublon)
 
FIN

Avant de regarder un peu sur le net, cette macro tournait mais remontait "1" dans toute la boucle.
En initialisant la base de données , celle ne fonctionne pas et remonte un erreur :

Échec de l’exécution de la macro 'pMacOuvrage': Appel WL :
Traitement de 'pMacOuvrage' (pMacOuvrage), ligne 34
Fonction 'HLitPremier', syntaxe 3

J'ai masqué quelques éléments à fin de confidentialité. Est-ce que quelqu'un peut m'aider svp ?

[Voroltinquo]

Bonjour,
HLitPremier ne fait que lire l'enregistrement, i.e. il le charge en mémoire. L'affectation se fait en récupérant la valeur d'une colonne donnée.
Dans ton cas :

Code :

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

1
2
3
4
5
 
...
HLitPremier(ReqNom)
NomEmploye = ReqNom.NOM
...