Discussion :

[Aooka]

Bonjour à tous,

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
// Colonne Mois
FichierXLS..Cellule[nligne, "G"]	= ChaîneConstruit(
[
	=SI(A%1="";"";MOIS(A%1))
], nligne)				
 
// Colonne Semaine 
FichierXLS..Cellule[nligne, "H"]	= ChaîneConstruit(
[
	=SI(A%1="";"";NO.SEMAINE(A%1))
], nligne)
 
// Colonne Année
FichierXLS..Cellule[nligne, "I"]	= ChaîneConstruit(
[
	=SI(A%1="";"";ANNEE(A%1))
], nligne)

Ce code me renvoi sur Excel la macro mais non exécuté :


Si je vais dans l'Excel par la suite, je rentre dans ma cellule et je fais la touche entré : La macro s'exécute correctement.


Je souhaiterai que la macro s'éxécute automatiquement sans repasser à la main sur le fichier Excel. Avez-vous une méthode ?
J'ai déj essayé la fonction EnvoiTouche() (https://doc.pcsoft.fr/?3014014) mais sans succès.

Merci à tous,
Bonne journée,

[frenchsting]

bonjour,

Je viens de trouver ça dans l'aide PCSOFT : xlsRecalculeTout. Tu as de la chance, c'est une nouveauté de WD28.
https://doc.pcsoft.fr/?1410089617&na...etout_fonction

[Aooka]

Salut Frenchsting,

Je met toute ma fonction se sera plus simple pour vous je pense :

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
SELON nRes
	CAS Oui // Si on confirme le bouton export
		SI VerificationChampsObligatoires() = 1 ALORS // Si pas d'erreurs de saisie utilisateur
 
			FichierXLS			est un xlsDocument
			sCheminFichierXLS	est une chaîne	= INILit("config", "sCheminFichierXLS", "", gsCheminConfig)
 
			FichierXLS			= xlsOuvre(sCheminFichierXLS, xlsEcriture)
 
			SI PAS ErreurDétectée ALORS // Si la dernière fonction, ici xlsOuvre s'est bien exécuté
 
				// On vérifie que la feuille Saisie existe. 1 = OK / -1 = KO
				SI FeuilleExistante(FichierXLS) = 1 ALORS
 
					// On compte le nombre de ligne utilisé dans la feuille Saisie
					nligne est un entier = 1
					TANTQUE (xlsDonnée(FichierXLS, nligne, 1) <> "")
 
						nligne = nligne + 1
 
					FIN
 
					// On met le fichier en lecture seule pour les autres utilisateurs
					//fAttributLectureSeule(sCheminFichierXLS, Vrai)
 
					// On exporte la saisie utilisateur vers l'Excel
					FichierXLS..Cellule[nligne, "A"]	= SAI_Date.ValeurAffichée
					FichierXLS..Cellule[nligne, "B"]	= COMBO_Collaborateurs.ValeurAffichée
					FichierXLS..Cellule[nligne, "C"]	= COMBO_Categories.ValeurAffichée
					FichierXLS..Cellule[nligne, "D"]	= COMBO_ThemeProjet.ValeurAffichée
					FichierXLS..Cellule[nligne, "E"]	= SAI_Libelle.ValeurAffichée
					FichierXLS..Cellule[nligne, "F"]	= ChaîneVersNumérique(SAI_Heure.ValeurAffichée)
 
					// Colonne Mois
					FichierXLS..Cellule[nligne, "G"]	= ChaîneConstruit(
					[
						=SI(A%1="";"";MOIS(A%1))
					], nligne)			
 
					// Colonne Semaine 
					FichierXLS..Cellule[nligne, "H"]	= ChaîneConstruit(
					[
						=SI(A%1="";"";NO.SEMAINE(A%1))
					], nligne)
 
					// Colonne Année
					FichierXLS..Cellule[nligne, "I"]	= ChaîneConstruit(
					[
						=SI(A%1="";"";ANNEE(A%1))
					], nligne)
 
					ToastAffiche("av")
					xlsRecalculeTout(FichierXLS)
					ToastAffiche("ap")
 
					xlsSauve(FichierXLS)
					xlsFerme(FichierXLS)
 
					//fAttributLectureSeule(sCheminFichierXLS, Faux)
 
					ToastAffiche("Succès : Le fichier Excel Imputation_Informatique a bien été modifié puis sauvegardé et fermé.", toastCourt, cvMilieu, chCentre, VertPastel)
				SINON
					Erreur("Attention ! La feuille Saisie n'existe pas.")	
				FIN
			SINON
				Erreur("Attention ! le fichier est déjà ouvert sur un poste de travail !")
				ErreurInfo(errMessage)
			FIN	
		SINON
			Erreur("Attention ! Certains champs obligatoires n'ont pas été renseigné. Vérifiez votre saisie.")
		FIN
	AUTRE CAS
		ToastAffiche("Info : Vous avez choisi de ne pas modifier le fichier Excel.", toastCourt, cvMilieu, chCentre, BleuPastel)
FIN

Et clairement ça bloque sur :

Code :

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

1
2
3
ToastAffiche("av")
xlsRecalculeTout(FichierXLS)
ToastAffiche("ap")

Pour info mon Excel est bien fermé sur mon PC.

Mais la fonction xlsRecalculeTout ne recalcule pas mes 3 formule/macro visible dans le code ci-dessus. Elles sont toujours en brut dans l'excel. Donc obliger d'allé validé les formules à la main dans excel en entrant dans la cellule puis en faisant la touche entrée du clavier.


Je continue les recherches de mon côté mais je reste preneurs d'indications.

Merci d'avance,

[Aooka]

Suite à divers tests, je ne m'en sort toujours pas..

Deux exemples de codes avec résultats associés. Malheureusement aucun des deux exemples ne fonctionnent.

Exemple 1

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
nRes est un entier 
nRes = Confirmer("Êtes-vous sûr de vouloir modifier l'Excel Imputation_Informatique ?")
 
SELON nRes
	CAS Oui // Si on confirme le bouton export
		SI VerificationChampsObligatoires() = 1 ALORS // Si pas d'erreurs de saisie utilisateur
			gFichierXLS			= xlsOuvre(gsCheminFichierXLS, xlsEcriture)
 
			SI PAS ErreurDétectée ALORS // Si la dernière fonction, ici xlsOuvre s'est bien exécuté
 
				// On vérifie que la feuille Saisie existe. 1 = OK / -1 = KO
				SI FeuilleExistante(gFichierXLS) = 1 ALORS
 
					// On compte le nombre de ligne utilisé dans la feuille Saisie
					nligne est un entier = 1
					TANTQUE (xlsDonnée(gFichierXLS, nligne, 1) <> "")
						nligne = nligne + 1
					FIN
 
					// On exporte la saisie utilisateur vers l'Excel
					gFichierXLS..Cellule[nligne, "A"]	= SAI_Date.ValeurAffichée
					gFichierXLS..Cellule[nligne, "B"]	= COMBO_Collaborateurs.ValeurAffichée
					gFichierXLS..Cellule[nligne, "C"]	= COMBO_Categories.ValeurAffichée
					gFichierXLS..Cellule[nligne, "D"]	= COMBO_ThemeProjet.ValeurAffichée
					gFichierXLS..Cellule[nligne, "E"]	= SAI_Libelle.ValeurAffichée
					gFichierXLS..Cellule[nligne, "F"]	= ChaîneVersNumérique(SAI_Heure.ValeurAffichée)
 
					// Colonne Année
					CelluleAnnee est une xlsCellule
					CelluleAnnee  = ChaîneConstruit(
					[
						=SI(A%1="";"";ANNEE(A%1))
					], nligne)
					gFichierXLS..Cellule[nligne, "I"] = CelluleAnnee
 
					// Colonne Mois
					CelluleMois est une xlsCellule
					CelluleMois  = ChaîneConstruit(
					[
						=SI(A%1="";"";MOIS(A%1))
					], nligne)			
					gFichierXLS..Cellule[nligne, "G"] = CelluleMois
 
					// Colonne Semaine
					CelluleSemaine est une xlsCellule
					CelluleSemaine  = ChaîneConstruit(
					[
						=SI(A%1="";"";NO.SEMAINE(A%1))
					], nligne)			
					gFichierXLS..Cellule[nligne, "H"] = CelluleSemaine
 
					xlsSauve(gFichierXLS) 
					xlsFerme(gFichierXLS)
 
					ToastAffiche("Succès : Le fichier Excel Imputation_Informatique a bien été modifié puis sauvegardé et fermé.", toastCourt, cvMilieu, chCentre, VertPastel)
				SINON
					Erreur("Attention ! La feuille Saisie n'existe pas.")	
				FIN
			SINON
				Erreur("Attention ! le fichier est déjà ouvert sur un poste de travail !")
				ErreurInfo(errMessage)
			FIN	
		SINON
			Erreur("Attention ! Certains champs obligatoires n'ont pas été renseigné. Vérifiez votre saisie.")
		FIN
	AUTRE CAS
		ToastAffiche("Info : Vous avez choisi de ne pas modifier le fichier Excel.", toastCourt, cvMilieu, chCentre, BleuPastel)
FIN

Résultat :


Exemple 2

Ce qui change dans le code de l'exemple 2 :
Ajout de : xlsRecalculeTout(gFichierXLS)
Ajout de .Formule (gFichierXLS..Cellule[nligne, "H"].Formule = CelluleSemaine)
Le résultat ci-dessous après le code semble mieux. En effet ça n'affiche plus la macro dans Excel en dur mais ça affiche cette fois-ci un vrai résultat. Mais ce résultat est toujours le même et est faux.

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
nRes est un entier 
nRes = Confirmer("Êtes-vous sûr de vouloir modifier l'Excel Imputation_Informatique ?")
 
SELON nRes
	CAS Oui // Si on confirme le bouton export
		SI VerificationChampsObligatoires() = 1 ALORS // Si pas d'erreurs de saisie utilisateur
			gFichierXLS			= xlsOuvre(gsCheminFichierXLS, xlsEcriture)
 
			SI PAS ErreurDétectée ALORS // Si la dernière fonction, ici xlsOuvre s'est bien exécuté
 
				// On vérifie que la feuille Saisie existe. 1 = OK / -1 = KO
				SI FeuilleExistante(gFichierXLS) = 1 ALORS
 
					// On compte le nombre de ligne utilisé dans la feuille Saisie
					nligne est un entier = 1
					TANTQUE (xlsDonnée(gFichierXLS, nligne, 1) <> "")
						nligne = nligne + 1
					FIN
 
					// On exporte la saisie utilisateur vers l'Excel
					gFichierXLS..Cellule[nligne, "A"]	= SAI_Date.ValeurAffichée
					gFichierXLS..Cellule[nligne, "B"]	= COMBO_Collaborateurs.ValeurAffichée
					gFichierXLS..Cellule[nligne, "C"]	= COMBO_Categories.ValeurAffichée
					gFichierXLS..Cellule[nligne, "D"]	= COMBO_ThemeProjet.ValeurAffichée
					gFichierXLS..Cellule[nligne, "E"]	= SAI_Libelle.ValeurAffichée
					gFichierXLS..Cellule[nligne, "F"]	= ChaîneVersNumérique(SAI_Heure.ValeurAffichée)
 
					// Colonne Année
					CelluleAnnee est une xlsCellule
					CelluleAnnee  = ChaîneConstruit(
					[
						=SI(A%1="";"";ANNEE(A%1))
					], nligne)
					gFichierXLS..Cellule[nligne, "I"].Formule = CelluleAnnee
 
					// Colonne Mois
					CelluleMois est une xlsCellule
					CelluleMois  = ChaîneConstruit(
					[
						=SI(A%1="";"";MOIS(A%1))
					], nligne)			
					gFichierXLS..Cellule[nligne, "G"].Formule = CelluleMois
 
					// Colonne Semaine
					CelluleSemaine est une xlsCellule
					CelluleSemaine  = ChaîneConstruit(
					[
						=SI(A%1="";"";NO.SEMAINE(A%1))
					], nligne)			
					gFichierXLS..Cellule[nligne, "H"].Formule = CelluleSemaine
 
					xlsRecalculeTout(gFichierXLS)
 
					xlsSauve(gFichierXLS) 
					xlsFerme(gFichierXLS)
 
					ToastAffiche("Succès : Le fichier Excel Imputation_Informatique a bien été modifié puis sauvegardé et fermé.", toastCourt, cvMilieu, chCentre, VertPastel)
				SINON
					Erreur("Attention ! La feuille Saisie n'existe pas.")	
				FIN
			SINON
				Erreur("Attention ! le fichier est déjà ouvert sur un poste de travail !")
				ErreurInfo(errMessage)
			FIN	
		SINON
			Erreur("Attention ! Certains champs obligatoires n'ont pas été renseigné. Vérifiez votre saisie.")
		FIN
	AUTRE CAS
		ToastAffiche("Info : Vous avez choisi de ne pas modifier le fichier Excel.", toastCourt, cvMilieu, chCentre, BleuPastel)
FIN

Résultat :

Le résultat sort n'importe quoi :
Année : 1900 alors que la date est bien en 2023. Semaine 3 mois 1 et c'est toujours ces mêmes valeurs peut importe la date sur laquelle la formule ce base.
A savoir que si je me met sur une celule avec la valeur 1900 par exemple et que je fais la touche entré du clavier alors la bonne valeur s'affiche oit : 2023. Idem pour le numéro de semaine et le numéro de mois.
Dans le premier exemple pareil, ont voit les formules en dur et si je fais "entrée", ça fonctionne et j'ai la bonne valeur. C'est vraiment le binzzz !

Je finis par conclure que la seule méthode est de passé par le pilote OLE. Ce ue je ne peux pas faire car le programme doit fonctionner sans licence excel.

Si quelqu'un a une idée de génie je suis preneur, sinon je ferai tout autrement.

Encore merci pour ceux qui prennent le temps de lire et répondre

PS : dans excel que ma date soit au format standard ou date ne change rien

Bonne fin de journée à tous

[tbc92]

Déjà un point de vocabulaire. Il n'y a pas du tout de macro, mais des formules dans ce que tu manipules. Si tu as cherché de l'aide en tapant 'Macro', c'est normal que tu n'aies rien trouvé.

Je ne connais pas la nouvelle syntaxe avec les variables de type xlsCellule.
Je repartirais de ton tout premier code, mais j'ajouterais .Formule ( ou ..Formule avec le symbole POINT répété 2 fois ?) :

Code :

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

1
2
3
4
5
// Colonne Mois
FichierXLS..Cellule[nligne, "G"].Formule	= ChaîneConstruit(
[
	=SI(A%1="";"";MOIS(A%1))
], nligne)

Par défaut, l'attribut modifié est l'attribut VALEUR, et ici, tu as besoin de modifier l'attribut FORMULE.

Et en fait, je décomposerais en 2 instructions :

Code :

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

1
2
3
4
5
6
sch est une chaine 
sch	= ChaîneConstruit(
[
	=SI(A%1="";"";MOIS(A%1))
], nligne)
FichierXLS..Cellule[nligne, "G"].Formule	= sch

En fait, je ferais encore autrement. Les commandes xlsxxx de Windev sont pratiques, mais si on veut aller LOIN dans la manipulation d'excel, on est assez vite bloqué.
Le pilotage d'excel par les commandes OLE est sans limite. D'ailleurs, ce que les ingénieurs de PCSoft font, c'est qu'ils utilisent ce pilotage via OLE, et qu'ils ont encapsulé quelques fonctions Excel. Quand on utilise les fonctions XLSxxx, on est donc limité aux fonctionnalités qu'ils ont choisies.
Mais je peux comprendre qu'un utilisateur moins 'avancé' utilise les fonctions XLSxxx

[frenchsting]

Bonjour,

Je plussoie tbc92.

J'allais donner également l'idée de passer par OLE. Le gros inconvénient de cette méthode est que Excel doit être installé sur le poste qui utilise l'application.

[Aooka]

Merci pour vos réponses.

Bon je crois qu'il n'y a pas le choix, je n'arrive clairement pas à faire valider cette formule sur excel via les fonction XLS de Windev28.
Donc, en effet OLE obligé de se que je vois et de se que vous me dite.
Je laisserai cette partie à faire à la main par les utilisateurs.

Je met le topic en résolu.
Merci encore à tous & bon week-end en avance

[Holig]

Salut,
je sais que le topic date un peu, mais j'avais la meme problematique que toi.
À savoir, que les formules ne se calculaient pas à l'ouverture du fichier Excel malgré la fonction xlsRecalculeTout

J'ai rajouté :

Code :

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

MonDoc..RecalculAuChargement = Vrai

Avant : xlsRecalculeTout(MonDoc)

Donc avec :

Code :

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

1
2
	MonDoc..RecalculAuChargement = Vrai
	xlsRecalculeTout(MonDoc)

Toutes les formules fonctionnent et sont bien recalculées à l'ouverture du document dans excel.
Si ça peut aider un autre dev rencontrant ce probleme
Olivier