Fermeture et enregistrement automatique

[Tybo]

Bonjour/bonsoir,

j'aimerai faire en sorte que mon classeur se ferme et s'enregistre automatiquement au bout de XX minutes.

J'ai récupéré le code trouvé sur ce post :
https://www.excel-downloads.com/threads/fermeture-automatique-fichier-si-inactif.69279/

qui est un peu plus compliqué, moi je voudrai juste qu'il y ait une alerte, un décompte, qu'il s'enregistre et se ferme automatiquement au bout de XX min.

Comment faire ?????

D'avance merci.

Je tiens à préciser que je suis vraiment débutant en macro Excel....

 

[lapix]

Re : Fermeture et enregistrement automatique

Bonsoir,

Tu peux mettre ce code :


Application.OnTime Now + TimeValue("00:XX:00"), "Enregistre"

XX= le nombre de minutes que tu veux (toujours sur 2 caracteres)
Il suffit de le mettre dans workbook_open,

et dans un module :

sub enregistre()
Thisworkbook.save
Application.OnTime Now + TimeValue("00:XX:00"), "enregistre"
endsub

 

[Tybo]

Re : Fermeture et enregistrement automatique

Désolé, je suis vraiment débutant, qu'appelles tu "mettre dans workbook_open".

Lorsque je vais dans VBE, dois-je mettre Application.OnTime Now + TimeValue("00:XX:00"), "Enregistre" dans ThisWorkbook ???

Et l'autre code, je le mets dans un module, ça je maitrise....

Merci de me répondre.

 

[lapix]

Re : Fermeture et enregistrement automatique

Bonjour

Quand tu es dans VBA (ALT+F11) tu vas effectivement cliquer sur 'thisworkbook' et dans la partie droite ou tu as marqué General, tu clique workbook
Là tu sera dans la procedure workbook_open ou tu peux coller le premier morceau

 

[Tybo]

Re : Fermeture et enregistrement automatique

Encore merci pour la réponse seulement ça ne marche pas. J'ai l'impression que le classeur s'enregistre bien mais ne se ferme pas.

Ci dessous un impr Ecran du code. Est-ce quelque chose cloche ????

 

[lapix]

Re : Fermeture et enregistrement automatique

Tu m'excuseras, j'avais zappé le "se ferme"

Donc, en fait tu peux supprimer la macro Enregistre,
et tu rajoutes dans ThisWorkbook_open, juste avant le End Sub :

ThisWorkBook.close