Msg aprés fermeture auto fichier XL

[Bcar]

Bonjour,
Dans le cadre de l'utilisation d'un fichier XL en reseau j'ai ajoute une macro pour fermer automatiquement le fichier si inactivité > 5mn.
Je souhaiterai avertir l'utilisateur apres la fermeture du fichier. Comment faire?
Merci par avance pour votre aide.

 

[Gibson94]

Bonjour Bcar, le forum,

Je comprends bien que tu veuilles informer l'utilisateur qu'un fichier vient d'être fermé, mais ne voyant pas comment celà peut-être possible dans la mesure ou le fichier est fermé, alors où mettre ta macro? Il est tellement plus simple d'ouvrir une boîte de dialogue au moment de la fermeture pour signaler que le fichier va être fermé. La différence à mes yeux pour l'utilisateur ne sera que quelques milli-secondes...

 

[Bcar]

Bonjour Gibson 94 et merci de t'etre interessé à ma question.
J'ai effectivement essayé ce que tu preconises mais le fichier ne se fermait qu'apres validation de la msgbox, donc si l'utilisateur a deserté son poste c'est pas efficace.
Au travers de mes lectures j'ai cru comprendre que si on utilise une procedure evenementielle de niveau application on pouvait resoudre le pb mais je n'arrive pas à l'adapter.
A bientot,
Bcar.

 

[Gibson94]

Re,

Effectivement, si l'utilisateur est parti, il ne reste plus qu'à transiter par la messagerie propre au PC pour qu'un mail soit envoyé par la macro avant fermeture.

 

[MichelXld]

bonsoir Bcar , bonsoir cher Gibson94

Si les utilisateurs disposent tous d'Internet Explorer , tu pourrais peut etre ajouter la macro ci joint dans ta procédure de fermeture automatique :
Création d'une fenetre Internet Explorer et affichage d'un message d'information, depuis Excel


bonne soirée
MichelXld [file name=message_alerte_IE.zip size=528]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/message_alerte_IE.zip[/file]

 

[Bcar]

Bonsoir MichelXld,
Je viens d'essayer ton code et ca marche!
J'ai cependant une requete, comment afficher le nom du fichier en clair dans le msg?
Merci pour ton aide,
Bcar.

 

[MichelXld]

bonjour

dans ce cas tu remplaces la ligne

LeTexte = 'Le classeur a été fermé après 5 minutes d'inactivité ...'

par

LeTexte = 'Le classeur ' & ThisWorkbook.Name & ' a été fermé après 5 minutes d'inactivité ...'


bonne journée
MichelXld

 

[Bcar]

Bonsoir MichelXld
Drolement matinal!
Merci pour l'info ça marche comme je souhaite.
Slts,
Bcar.