message d'accueil et fermeture fichier Résolu/Fermé

Question

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 


Configuration: Windows 7 / Chrome 37.0.2062.120

f894009 · Answer

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/

benji71 · Answer

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

cs_Le Pivert · Answer

Bonjour, 

il y a aussi ceci:

 https://forum.excel-pratique.com/viewtopic.php?forum_uri=cours-astuces&t=35949&start=

f894009 · Answer

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

cs_Le Pivert · Answer

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?

f894009 · Answer

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

benji71 · Answer

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

f894009 · Answer

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

benji71 · Answer

bonsoir f894009, 

merci de ta réponse. je vais essayer de trouver. 

encore merci... très belle soirée à toi

neb

Message d'accueil et fermeture fichier

9 réponses

Discussions similaires