Discussion :

[Jon Shannow]

Bonjour,

En attendant de choisir la méthode de création des tables, je m'attaque à l'import des données.

Et, dans un premier temps, il me faut créer une table de correspondance pour les anciennes familles d'articles, vers les nouvelles.

Comme tout est dans des fichiers excel, je me suis dit, hop, j'utilise xlsDocument (je ne connaissais pas, en Wd 5.5, je faisait par OLE).

Mais, j'ai un problème. Mon fichier n'est pas modifié !

Voici le code

Code WLangage :

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
 
LOCAL
	lo_xlsOut est un xlsDocument
	lo_xlsIn1	est un xlsDocument
	lo_XlsIn2	est un xlsDocument
 
	lin_NoLigOut	est un entier
	lin_TotOut		est un entier
	lin_noLigIn		est un entier
 
	lch_CodFam	est une chaîne
	lch_NlleFam	est une chaîne
	lch_Cherche	est une chaîne
 
	lbo_Trouve	est un booléen
	lo_Cellule	est un xlsCellule
 
 
  lo_xlsOut = xlsOuvre("J:\Documents\Projet ERP\Analyse\Familles articles\FAMART.XLSX",xlsEcriture)
 
//Là je récupère la nouvelle famille, en cherchant dans les classeurs lo_xlsIn1 et lo_xlsin2 
//Ça fonctionne, je récupère bien la valeur attendu
 
//C'est là que ça se gâte ! 
SI lbo_Trouve ALORS
  Trace( ChaîneConstruit( "[%1]",lo_xlsOut..Cellule[ lin_NoLigOut, "C"]))
  lo_Cellule = lo_xlsOut..Cellule[ lin_NoLigOut, "C"]
  Trace(ChaîneConstruit( "Cellule [%1]",lo_Cellule))
  lo_Cellule = lch_NlleFam
  Trace(ChaîneConstruit( "Après affectation Cellule [%1]",lo_Cellule))
  lo_xlsOut[ lin_TotOut, "C"] = lo_Cellule
  Trace( ChaîneConstruit( "Après affectation [%1]",lo_xlsOut[ lin_NoLigOut, "C"]))
  lo_xlsOut[lin_NoLigOut, "C"] = "DIODE"
  Trace( ChaîneConstruit( "Après 2eme affectation [%1]",lo_xlsOut[ lin_NoLigOut, "C"]))
fin

Voilà le résultat des Traces


"DIODE" est bien le nom de la nouvelle famille
Donc, la variable xlsCellule (lo_cellule) est bonne, mais le classeur n'est pas modifié !

Qu'est-ce que je rate ?

A noter, que, étant passé à Windev 26 (oui, je sais, faut être malade), j'ai essayé ce code en WD24 et j'obtiens le même résultat
J'ai essayé avec 3 à la place "C"
J'ai essayé en passant par la propriété ..Valeur
Mais rien n'y fait !

Merci de votre aide
JS

[Jon Shannow]

Information complémentaire

J'ai mis "TOTORE" dans la cellule à modifier, et j'ai teste le contenu de la cellule A (on ne sait jamais)

Voilà ce que j'obtiens


Du coup, c'est comme si l'affectation de la variable lo_cellule ne faisait rien, par contre l'affectation en dur de "DIODE" met 0 dans la cellule ! Je ne comprends rien !

[Jon Shannow]

PS : J'ai essayé avec Windev 22, et j'ai le même résultat.

[frenchsting]

Hello Jon,

Je crois que tu as une gourure dans ton code. Il faut écrire un truc du style :

Code :

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

lo_xlsOut[ lin_TotOut, "C"]..cellule = lo_Cellule

La page d'aide https://doc.pcsoft.fr/fr-FR/?1000017...YPE_xlsCellule

[Jon Shannow]

Merci frenchsting de ta réponse,

Hélas, j'ai essayé ça et ça ne marche pas non plus. J'ai épluché les pages d'aide de Windev, mais y a rien qui marche.

Quelqu'un a-t-il déjà utilisé ces syntaxes pour écrire dans un fichier excel ? La lecture se fait bien, c'est l'écriture qui pose problème.

[frenchsting]

Pas de bol sur ce coup-là...

As-tu essayé l'affectation directe ?

Code :

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

lo_xlsOut[ lin_TotOut, "C"] = lch_NlleFam

[jurassic pork]

hello,
chez moi ce code fonctionne en windev 16 :

Code :

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

1
2
3
4
5
6
7
DocExcel est un xlsDocument// Création du document Excel        
xlsAjouteFeuille(DocExcel,"Feuille_1",1)// Ajout d'une feuille *obligatoire*
DocExcel..Feuille = 1// On se place sur la feuille 1 *au cas ou*
DocExcel..Ligne[1]..Cellule[1] = "Ecriture 1"// Ajout d'une valeur dans la case[1,1] (A1)
DocExcel[2,"A"]= "Ecriture 2"  // écriture en A2
xlsSauve(DocExcel,"D:\temp\DocExcelTest.xlsx")// Sauvegarde du document
xlsFerme(DocExcel)// Fermeture du document *important*

[Jon Shannow]

J'ai essayé toutes ces syntaxes, et aucune ne fonctionnent

Je suis reparti sur le code de ma classe Excel de Windev 55 qui gère le lien OLE avec Excel.

Dommage.

[Jon Shannow]

Je viens d'essayer ton code jurassic pork, et ça fonctionne.

Ce serait donc un problème avec mon fichier XLS de départ ?

Je vais re-essayer autrement

[comico]

Bonjour
Le code de jurassic pork fonctionne également en version 24, pas de souci particulier pour écrire dans un fichier Excel.

[jurassic pork]

Est-ce que mon code seul fonctionne ? Si oui c'est qu'il y a quelque chose dans ton code qui l'empêche de fonctionner correctement : Sélection de feuille , Utilisation d'un document créé par Excel etc...

[EDIT] oops on a été 3 à écrire en même temps.
Ami calmant, J.P

[Jon Shannow]

Je viens de modifier mon code de la façon suivante.

J'ai utilisé un 4ème xlsDocument que j'ai créé de toute pièce, en suivant le principe du code de Jurassic Pork.

Puis, j'ai écrit dedans. Et ça marche.

C'est donc, soit l'écriture dans un fichier qui existe, soit le format de mon fichier excel (un xlsx enregistrer depuis un fichier dBase) qui pose problème.

Merci à vous tous pour votre aide.

JS

[rudolfrudolf]

Bonjour,

J'utilise souvent le xlsdocument pour modifier un fichier excel

Tu fais bien un xlssauve a la fin ?

je te joins un exemple qui marche chez moi mais en version 23.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
vnblig=xlsNbLigne(vficstatus2)
 
POUR i = 7 À vnblig
	HLitRecherche(prepa_cata,NPA6pos,Gauche(xlsDonnée(vficstatus2,i,7),6),hIdentique)
	SI HTrouve() = Vrai ET prepa_cata.NPA9pos <> "179100" ALORS
		vficstatus2[i,"M"] = prepa_cata.NET
		vficstatus2[i,"R"] = prepa_cata.BRUT
		vficstatus2[i,"X"] = prepa_cata.VILLA
	FIN
FIN
 
xlsSauve(vficstatus2)

ça lit un fichier excel le compare à une table hyperfile et si la condition est remplie met à jour le fichier excel

j'espère que ça pourras t'aider
PS oui j'utilise encore le hlitrecherche avec l'option hidentique et pas le hlitrecherchepremier pour moi c'est plus logique

PS2 merdum j'ai vu que tu as déjà résolu ton problème je laisse quand mème mon bout de code si ça peut aider

[Jon Shannow]

Je viens de voir que j'avais oublié de mettre résolu.

Pour donner le fin mot de l'explication, le fichier excel que j'utilisais provenais d'un fichier dBase converti.
Et, même sous excel, je n'arrivais pas à le modifier (enfin la sauvegarde se plantait).

J'ai copié tout le contenu, dans un nouveau classeur et ça a fonctionné.

Voilà,

Encore merci à vous tous pour votre aide

JS