macro auto a fermeture

[phil69]

bonjour le forum


je cherche un code qui à la fermeture d'un classeur me lance une macro avec
message (la fermeture va faire la mise a jour du dossier, etes vous sur de vouloir cloturer la journée .oui non
si clic sur oui lancement de la macro +sauvegarde
si clic non arret de la procedure de fermeture

phil69

ps :je suis nul en VBA alors pour toutes reponse entrez dans les details de la procedure

 

[vbacrumble]

Re : macro auto a fermeture

Bonsoir


Peux-t-on voir ton code pré-existant?


edition: bonsoir Job75

 

[job75]

Re : macro auto a fermeture

Bonjour phil69,

Macro à placer dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = MsgBox("la fermeture va faire la mise a jour du dossier, êtes-vous sur de vouloir cloturer la journée ?", 4) = 7
If Not Cancel Then
'---Votre Macro---
ThisWorkbook.Save
End If
End Sub

C'est le moment de faire des progrès. Voyez l'aide VBA avec les mots clés BeforeClose et MsgBox.

Edition : j'ai un peu rallongé la sauce. Et je salue vbacrumble que je n'avais pas vu 🙂

A+

 

[phil69]

Re : macro auto a fermeture

re

mon code pre existant n'est encore pa s etabli, ce sera un code style copier le contenu decelulle ,les coller dans une autre feuille et suprime le contenu d' autre celulles.

phil69

 

[phil69]

Re : macro auto a fermeture

re


j'ai essayé le code donné par job 75
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = MsgBox("la fermeture va faire la mise a jour du dossier, êtes-vous sur de vouloir cloturer la journée ?", 4) = 7
If Not Cancel Then
'---Votre Macro---
ThisWorkbook.Save
End If
End Sub
ça marche vous etes super

phil69

 

[Raja]

Re : macro auto a fermeture

Bonsoir,

A essayer dans ThisWorkbook :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If (MsgBox("Merci de choisir", vbOKCancel = vbOK)) Then Call prog
End Sub