Message d'accueil et fermeture fichier

Résolu

benji71 Messages postés 738 Date d'inscription Statut Membre Dernière intervention -
benji71 Messages postés 738 Date d'inscription Statut Membre Dernière intervention - 18 sept. 2014 à 23:57

Bonsoir à tous,

j'espère que vous allez bien.
j'aimerais vous demander votre aide pour aider un ami.
celui-ci me demande de l'aider à trouver un moyen pour réaliser deux macros.
n'étant pas très doué avec les macros, je propose d'y aller par étape.
il souhaiterai une première macro qui fasse en sorte que lorsqu'il ouvre son fichier, il ya ai un message qui dise "n'oubliez pas de fermer le fichier après avoir fini" [c'est en quelque sorte un message d'accueil et de bienvenue.

ensuite, il aimerait une seconde macro (tjrs sur le même fichier) qui fasse en sorte que si le fichier est ouvert et qu'il n'y a pas de manipulation sur le fichier, après 5 minutes sans intervention sur le fichier, celui-ci se ferme en ayant procéder à un dernier enregistrement.

je joins un fichier vide afin d'y placer vos éventuelles idées et/ou proposition.

merci de votre aide..voici le fichier https://www.cjoint.com/?3IqwLxtDrb1

je vous souhaite une belle soirée..

ben

A voir également:

Message d'accueil et fermeture fichier
Fichier bin - Guide
Fichier epub - Guide
Fichier rar - Guide
Comment réduire la taille d'un fichier - Guide
Fichier .dat - Guide

9 réponses

Réponse 1 / 9

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

message ouverture fichier:

code a mettre dans VBA Thisworkbook

Private Sub Workbook_Open()
    MsgBox "N'oubliez pas de fermer le fichier en fin d'utilisation !!!!!!!!"
End Sub

fermeture sur inactivite:

https://www.developpez.net/forums/d650615/logiciels/microsoft-office/excel/macros-vba-excel/time-out-application/

Réponse 2 / 9

benji71 Messages postés 738 Date d'inscription Statut Membre Dernière intervention 23

Bonjour à tous, bonjour f894009,

merci f894009 pour votre réponse.
elle est parfaite.
l'étape 1 est donc réalisée.. :-)
l'étape deux étant, de faire en sorte que le fichier s'enregistre et se ferme après 3 à 5 minutes sans mouvement dessus.
là aussi j'imagine que cela peut se faire via une macro...
quelqu'un(e) aurait-il/elle une idée pour moi ?

d'avance merci..et je poste le fichier inclus la premier macro : https://www.cjoint.com/?3IrowkETIY8

merci à tous de votre aide.

bàv,

ben

Réponse 3 / 9

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

il y a aussi ceci:

https://forum.excel-pratique.com/viewtopic.php?forum_uri=cours-astuces&t=35949&start=

Réponse 4 / 9

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Bonjour cs_le_pivert,

fichier modifie avec code de Lermite (CCM), ai mis son nom dans chaque module de son code : https://www.cjoint.com/?DIrp5bzj068

Deux constantes a ajouster pour delais attente et delais pour sauvegarde. Voir pour enlever les ' pour sauvegarde et fermeture

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour f894009,

Le message ne s'ouvre pas à l'ouverture. Il faut le mettre comme ceci:

Private Sub Workbook_Open()
    MsgBox "N'oubliez pas de fermer le fichier en fin d'utilisation !!!!!!!!", vbDefaultButton1, "Ouverture"
    Tempo = Tempo1
    TimerO
End Sub

Comment ce fait-il qu'il faille cliquer sur Execution, Réinitialiser pour pouvoir modifier les macro?

Réponse 6 / 9

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re cs_le_pivert

comme ecrit dans le code au dessus de Sub TimerO()

'Seule façon d'arrêter la macro, mettre un point d'arrêt dans la sub
'et cliquez sur le bouton <carré> dans la barre d'outils
Sub TimerO()

par contre si le fichier se ferme, pas de probleme, mais pour autre manip faudrait voir

Réponse 7 / 9

benji71 Messages postés 738 Date d'inscription Statut Membre Dernière intervention 23

Bonsoir à tous, bonsoir f894009 & cs_Le_pivert,

j'espère que vous allez bien.
merci pour vos interventions et votre aide.
si vous me le permettez, j'aurais besoin d'un complément information car comme indiqué, je suis pas doué pour la VBA.

visiblement lorsque j'ouvre le fichier j'ai bien mon message d'accueil. super :-)
après +/- 1'30, j'ai un message d'alerte avant fermeture. j'aimerais changer le moment ou ce message apparaît. je préférais qu'il se mette après 4'.
cela est-il possible ?

ou dois-je changer le temps si je veux que le fichier s'enregistre et se ferme

dans ces deux ligne ci ?:
Public Const Tempo1 = 3 'nombre de minutes d'inactivité sur le classeur
Public Const Tempo2 = 2 'nombre de minutes avant sauve et quitte

il est écrit dans la macro :
'Pour les tests.. ensuite supprimer le Stop et les apostrophes.
Stop
'ThisWorkbook.Save
'ThisWorkbook.Close

si je comprends bien, pour que la macro soit effective, je dois préalablement effacer le stop et retirer les ' devant les lignes
'ThisWorkbook.Save
'ThisWorkbook.Close

cela est-il correct ?

désolé de vous poser des autres questions mais c'est pour être certain d'avoir bien compris..

très belle nuit à vous..

ben

Réponse 8 / 9

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

faire comme c'est ecrit, simple non !!!!

Réponse 9 / 9

benji71 Messages postés 738 Date d'inscription Statut Membre Dernière intervention 23

bonsoir f894009,

merci de ta réponse. je vais essayer de trouver.

encore merci... très belle soirée à toi

neb

Votre réponse