<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"><channel><category>pcsoft.fr.windev</category><copyright>Copyright 2026, PC SOFT</copyright><lastBuildDate>18 Nov 2019 12:19:04 Z</lastBuildDate><pubDate>18 Nov 2019 12:19:04 Z</pubDate><description>Bonjour,&#13;
&#13;
Cela fait 2 jours que je sèche sur ce problème.&#13;
J'ai mis en place sur la classe de pilotage Word une captation de l'évènement Close &#13;
&#13;
https://docs.microsoft.com/fr-fr/office/vba/api/word.document.close(even)&#13;
&#13;
via le code suivant, qui fonctionne très bien :&#13;
&#13;
[code:wl]&#13;
	:m_pautWord&gt;&gt;Documents&gt;&gt;Open(sDocAOuvrir)&#13;
	:m_Doc= :m_pautWord&gt;&gt;ActiveDocument	&#13;
	AutomationEvénement(Evenement_Close,:m_Doc,"Close") //Se déclenchera si le document est fermé.&#13;
[/code]&#13;
&#13;
[code:wl]&#13;
	PROCEDURE Evenement_Close()&#13;
	:DocumentFermé = Vrai&#13;
[/code]&#13;
&#13;
J'ai voulu mettre en place la même chose sur ma classe de pilotage Excel , en ayant vu que l'évènement a capter n'était pas Close mais BeforeClose :&#13;
&#13;
https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.beforeclose&#13;
&#13;
J'ai donc mis en place le code suivant :&#13;
&#13;
[code:wl]&#13;
	:m_pautExcel&gt;&gt;Workbooks&gt;&gt;Open(sClasseur)&#13;
	:m_Excel= :m_pautExcel&gt;&gt;ActiveWorkbook	&#13;
	//On branche l'évènement Close sur le doc en cours&#13;
	AutomationEvénement(Evenement_Close,:m_Excel,"Workbook_BeforeClose")&#13;
[/code]&#13;
&#13;
[code:wl]&#13;
PROCEDURE Evenement_Close(Cancel est un booléen)&#13;
&#13;
	:DocumentFermé = Vrai &#13;
&#13;
	RENVOYER Cancel&#13;
[/code]&#13;
&#13;
Peu importe le nom que je donne à l'évènement "BeforeClose" ,"WorkbookBeforeclose" etc , l'erreur suivante m'est renvoyée : &#13;
	Vous avez appelé la fonction AutomationEvénement.&#13;
	L'événement "NomDeLevenement" n'est pas reconnu.&#13;
&#13;
&#13;
Pourtant je le retrouve bien dans Excel : &#13;
https://hostimage.windev.io/images/EvenementBeforeClose_6f78ad1b13ed28b76d956f4ba3d1528b.png&#13;
&#13;
Auriez-vous une idée ? &#13;
&#13;
Merci d'avance.</description><ttl>30</ttl><generator>WEBDEV</generator><language>fr_FR</language><link>https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/234625-evenement-automation-excel-beforeclose/read.awp</link><title>Evenement Automation Excel BeforeClose</title><managingEditor>moderateur@pcsoft.fr (El moderador)</managingEditor><webMaster>webmaster@pcsoft.fr (El webmaster)</webMaster></channel></rss>
